Ticket #929: ej2.tol

Class @Ejemplo {
  Real a
};

@Ejemplo ej1 = [[ Real a = 1 ]];

Real MenuManager::defineTypeLabel("@Ejemplo", [[ 
  Text label = "Ejemplo" 
]]);

NameBlock nm = [[
  Real invoke(NameBlock instance, Set extra) {
    WriteLn("algo");
  0};
  Real check(NameBlock instance, Set extra) {
    True
  }
]];

Real nm.check(NameBlock instance, Set extra) {
  True
};

/*
// Para la definición del submenú como una opción más
Real MenuManager::defineMenuCommand("@Ejemplo", [[ 
  Text name = "Submenu",
  Text label = "sub",
  Text image = "",
  Real flagGroup = 0,
  // Code CmdInvoke = nm::method //¿qué ocurres si tiene método 'invoke'?
  // el método 'CheckState' sin embargo sí que podría tener sentido
]]);
*/


Real MenuManager::defineMenuCommand("@Ejemplo", [[ 
  Text name = "Submenu/T1",
  Text label = "tonteria",
  Text image = "",
  Real flagGroup = 0,
  Code CmdInvoke = nm::invoke,
  Code CmdCheckState = nm::check 
]]);

Real MenuManager::defineMenuCommand("@Ejemplo", [[ 
  Text name = "Submenu/T2",
  Text label = "tonteria2",
  Text image = "",
  Real flagGroup = 0,
  Code CmdInvoke = nm::invoke,
  Code CmdCheckState = nm::check // úsese nm::check para evitar el error
]]);