Changeset a437416 in tol

Timestamp:

Jul 29, 2010, 5:22:12 PM (16 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

9ef1972

Parents:

12c4619

Message:

fixes #953

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

File:

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

tolbase/lib/toltk/tolinspe.tcl

@@ -1608 +1608 @@
   variable item_id 1
   variable OnSelectItem
-
+  variable knownReference
+
+  set knownReference ""
   ClearHiertables
   $ht_vars column  configure Index -hide yes
@@ -1627 +1629 @@
         #Tolcon_Trace "Code : -- $vinfo --"
         InsertChild $grammar $var [lindex $vinfo 2] [lindex $vinfo 3] [list [lindex $vinfo 4]] 1  
-      } elseif { [string equal $grammar "Set"] } {
+      } elseif { $grammar eq "Set" || $grammar eq "NameBlock" } {
         #Tolcon_Trace "Set : -- $vinfo --"
+        if { $grammar eq "NameBlock" } {
+          set knownReference [ list "NameBlock" $var ]
+        }
         InsertChild $grammar $var [lindex $vinfo 2] [lindex $vinfo 3] [list [lindex $vinfo 4]] \
           $item_id [lindex $vinfo 5] [lindex $vinfo 6] [lindex $vinfo 7]