#refs 963, se sube una funcion ::MenuManager::addObservers para intersectar los eventos Before y After asociados a la invocacion de una opcion de menu
proc onDeleteVariable { when } {
puts "estoy $when"
return 1
}
::MenuManager::addObservers "MMS.Delete_Variable" "Before" onDeleteVariable
::MenuManager::addObservers "MMS.Delete_Variable" "after" onDeleteVariable
El script debe retornar como resultado 0 ó 1
El valor $when (Before o After) se concatena al script antes de ejecutarlo.
Si alguno de los observadores del "Before" retorna 0 la opcion de menu
no se invoca.
git-svn-id: https://www.tol-project.org/svn/tolp/trunk@2466 be4846ae-f051-483a-831f-b64e7d08527f