Ticket #954: GuiTools_Ej01.tol

#Require GuiTools;

Class @Ejemplo {
  Real value
};

Real Fun(NameBlock instance, Set extraData) {
  Fun_Group([[instance]], extraData)
};

Real Fun_Group(Set instances, Set extraData) {
  Set EvalSet(instances, Real(NameBlock instance) {
    WriteLn(Name(instance));
  1});
  1
};

Real GuiTools::MenuManager::defineMenuCommand("@Ejemplo", [[ 
  Text name = "Ejemplo_Fun",
  Text label = "Escribe nombre",
  Text image = "",
  Real flagGroup = 0,
  Code CmdInvoke = Fun
]]);

Real GuiTools::MenuManager::defineMenuCommand("@Ejemplo", [[ 
  Text name = "Ejemplo_Fun_Group",
  Text label = "Escribe nombres",
  Text image = "",
  Real flagGroup = 1,
  Code CmdInvoke = Fun_Group
]]);

@Ejemplo ej1 = [[ Real value = 2 ]];
@Ejemplo ej2 = [[ Real value = 3 ]];

// La llamada a "Escribe nombre" sobre una de las instancias devuelve
//> target

// Sin embargo lLa llamada a "Escribe nombres" sobre la selección de las
// dos intancias, devuelve sus nombres:
//> ej1
//> ej2