Changeset ef0bbb1 in tol for tolbase/lib/toltk

Timestamp:

Aug 6, 2010, 3:06:06 PM (16 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

15ee97c

Parents:

67afb90

Message:

#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

File:

• tolbase/lib/toltk/MenuManager.tcl (modified) (3 diffs)

tolbase/lib/toltk/MenuManager.tcl

@@ -1 +1 @@
 namespace eval ::MenuManager {
+  variable observers
+}
+
+proc ::MenuManager::addObserver { event when script } {
+  variable observers
+
+  if { $when ne "Before" || $when ne "After" } {
+    error "::MenuManager::addObserver -- valor invalido '$when' para el argumento when, debe ser Before o After"
+  }
+  lappend observers($event,$when) $script
+}
+
+proc ::MenuManager::invokeObservers { event when } {
+  variable observers
+
+  if { [ info exists observers($event,$when) ] } { 
+    foreach script $observers($event,$when) {
+      set result [ eval uplevel \#0 $script $when ]
+      if { !$result } {
+        return 0
+      }
+    }
+  }
+  return 1
 }
 
@@ -88 +112 @@
   variable typesSelected
 
+  if { ![ invokeObservers $name "Before" ] } {
+    return 0
+  }
   set SOA [ TclList2SetOfText $objSelection ]
   set rvar "__invokeCommand__"
@@ -104 +131 @@
   set value [ lindex $info 2 ]
   tol::console stack release $rvar
+  invokeObservers $name "After"
   return $value
 }