Changeset f752ef9 in tol for tolbase/lib/byswidget/bfunctions/bftoltcl.tcl

Timestamp:

Oct 30, 2008, 5:04:18 PM (18 years ago)

Author:

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

Branches:

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

Children:

fd65ddb

Parents:

dacdfcd8

Message:

fixing bug 607, transforming functions TclInfoVar and TclInfoRef to the new tol::info var format

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

File:

• tolbase/lib/byswidget/bfunctions/bftoltcl.tcl (modified) (3 diffs)

tolbase/lib/byswidget/bfunctions/bftoltcl.tcl

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