Changeset 3f0542d in tol for tolbase/lib/toltk/tolinspe.tcl

Timestamp:

Apr 28, 2010, 1:19:50 PM (16 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

edb4791

Parents:

140c02c

Message:

fixes #896

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

File:

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

tolbase/lib/toltk/tolinspe.tcl

@@ -1857 +1857 @@
     set tcl_ref [ lindex $obj_info 0 ]
     set obj_addr [ ::tol::info address $tcl_ref ]
-    set class [ Tol_ClassOf $obj_addr ]
-    if { $class ne "" } {
+    if { [ Tol_ObjIsClassOf $obj_addr "@MenuDesc" ] } {
+      set class [ Tol_ClassOf $obj_addr ]
       lappend instances($class) $obj_addr
       set name_inst [ lindex $obj_info 1 ]
@@ -1874 +1874 @@
   set menu_info [ list ]
   foreach c [ array names instances ] {
-      lappend menu_info [ list $c $menu_class($c) $instances($c) ]
+    lappend menu_info [ list $c $menu_class($c) $instances($c) ]
   }
   set menu_info
@@ -1886 +1886 @@
     } ] } msg ]
   if { $try } {
-    puts "ERROR TolGui_GetMenuEntries : $msg"
+    puts "ERROR TolGui_GetObjMenu : $msg"
     set result ""
   } else {