Changeset e206a36 in tol for tolbase/lib/toltk

Timestamp:

Jun 24, 2010, 2:03:18 PM (16 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

3468ee1

Parents:

d50bed3

Message:

Refs #921
Cannot call UsingNAmeBlock in modules and packages
So it's needed to prefix GuiTools members

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

File:

• tolbase/lib/toltk/tolinspe.tcl (modified) (2 diffs)

tolbase/lib/toltk/tolinspe.tcl

@@ -1858 +1858 @@
     set tcl_ref [ lindex $obj_info 0 ]
     set obj_addr [ ::tol::info address $tcl_ref ]
-    if { [ Tol_ObjIsClassOf $obj_addr "@MenuDesc" ] } {
+    if { [ Tol_ObjIsClassOf $obj_addr "GuiTools::@MenuDesc" ] } {
       set class [ Tol_ClassOf $obj_addr ]
       lappend instances($class) $obj_addr
@@ -1893 +1893 @@
   set try [ catch {
     tol::console eval [ string map [ list %A $obj_addr ] {
-      @MenuDesc __aux_menu__ = GetObjectFromAddress("%A");
+      GuiTools::@MenuDesc __aux_menu__ = GetObjectFromAddress("%A");
       Set __gui_menu_entries__ = __aux_menu__::getMenuEntries(?)
     } ] } msg ]