Changeset 228e337 in tol for tolbase/lib/toltk/MenuManager.tcl

Timestamp:

Aug 3, 2010, 11:55:47 AM (16 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

715cfed

Parents:

b3da993

Message:

fixes #954, no se crea el objeto intermedio target.

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@2440 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tolbase/lib/toltk/MenuManager.tcl (modified) (1 diff)

tolbase/lib/toltk/MenuManager.tcl

@@ -93 +93 @@
     Real %RV = {
       Set objAddress = %S;
-      Anything target = If( %G, {
+      Real GuiTools::MenuManager::invokeEntry( "%N", If( %G, {
         EvalSet( objAddress, Anything( Text addr ) { 
           GetObjectFromAddress( addr )
         } )
-      }, GetObjectFromAddress( objAddress[ 1 ] ) );
-      Real GuiTools::MenuManager::invokeEntry( "%N", target )
+      }, GetObjectFromAddress( objAddress[ 1 ] ) ) )
     }
   } ]