Changeset 00feab6 in tol

Timestamp:

Nov 27, 2008, 5:58:30 PM (18 years ago)

Author:

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

Branches:

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

Children:

c9cb341

Parents:

01994af

Message:

Some functions in the menu "Features" not working because of errors in TclRefToNameTol

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

File:

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

tolbase/lib/byswidget/bfunctions/bftoltcl.tcl

@@ -125 +125 @@
   # eval
   set cmd "::tol::info variable {$obj $args}"
-  #puts "cmd: $cmd"
+  #puts "TclInfoRef: cmd=$cmd"
   if {![catch {set lst [eval $cmd]}]} {
     set lstNam [list GRAMMAR NAME CONTENT PATH DESC ISFILE\
@@ -202 +202 @@
 #                         namVarFat[x][y][z] (variable with father)
 #/////////////////////////////////////////////////////////////////////////////
-  Tolcon_Trace "TclRefToNameTol: ref-> $ref"
   set ref [lindex $ref 0]
+  #puts "TclRefToNameTol: ref=$ref"
   # the object belongs to a set?
   if {[expr [llength $ref] == 1]} {
     set namTol $ref
   } else  {
-    array set infRef [TclInfoRef [lrange $ref 0 1]]
+    #array set infRef [TclInfoRef [lrange $ref 0 1]]
+    array set infRef [TclInfoRef $ref]
     set namTol $infRef(NAME)
-    #Tolcon_Trace "TclRefToNameTol: namTol -> $namTol"
+    #puts "TclRefToNameTol: namTol=$namTol"
     # name ?
-    if {[string length $namTol]} {
+  #if {[string length $namTol]} {
       # ckeck parameters
-      if {[expr [llength $ref] > 2]} {
-        set lstInx [lrange $ref 2 end]
-        foreach ind $lstInx {
-          set namTol $namTol\[$ind\]
-        }
-      }
-    } else  {
-      set namTol {}
-    }
-  }
-  Tolcon_Trace "TclRefToNameTol: Nombre de la variable a usar -> $namTol"
+      #if {[expr [llength $ref] > 2]} {
+        #set lstInx [lrange $ref 2 end]
+        #foreach ind $lstInx {
+          #set namTol $namTol\[$ind\]
+        #}
+      #}
+    #} else  {
+      #set namTol {}
+    #}
+  #}
+  #puts "TclRefToNameTol: namTol=$namTol"
   return $namTol
 }