Changeset bb8cc0a in tol for tolbase/lib/byswidget/bfunctions

Timestamp:

Nov 4, 2008, 3:13:04 PM (18 years ago)

Author:

Liván Ramírez Dorta <livanr68@…>

Branches:

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

Children:

1fa4a38

Parents:

8545aac

Message:

Submenu 'Funciones' didn't show due to an error in TclInfoRef

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

File:

• tolbase/lib/byswidget/bfunctions/bftoltcl.tcl (modified) (1 diff)

tolbase/lib/byswidget/bfunctions/bftoltcl.tcl

@@ -125 +125 @@
   # eval
   set cmd "::tol::info variable {$obj $args}"
-  puts "cmd: $cmd"
+  #puts "cmd: $cmd"
   if {![catch {set lst [eval $cmd]}]} {
     set lstNam [list GRAMMAR NAME CONTENT PATH DESC ISFILE\
                      HASSUBSET SUBTYPE STRUCT]
     for {set i 0} {$i < [llength $lstNam]} {incr i} {
-      set inf([lindex $lstNam $i]) [lindex $lst [expr $i+2]]
+      set inf([lindex $lstNam $i]) [lindex $lst [expr $i]]
     }
     #parray inf