Changeset 16f893d in tol for tolbase

Timestamp:

Jan 26, 2009, 6:51:39 PM (18 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

2235a4c

Parents:

5834e8a

Message:

* empty log message *

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

File:

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

tolbase/lib/toltk/tolinspe.tcl

@@ -904 +904 @@
         set set_ref [eval list $tolset $tolindex]
         variable gra_parent [ GetParentGrammar $set_ref ]
+        puts "gra_parent $set_ref = $gra_parent"
         ::tol::forallchild $set_ref ::TolInspector::InsertSubset
         set tolset $_tolset
@@ -1574 +1575 @@
 
 proc ::TolInspector::GetParentGrammar { set_ref } {
-  set parent [ lrange $set_ref 0 end-1 ]
-  set root [ lindex $parent 0 ]
-  if { ( [ llength $parent ] <= 2 ) &&
-       ( $root eq "File" || $root eq "Console" ) } {
-    set gra_parent $root
+  set root [ lindex $set_ref 0 ]
+  set L [ llength $set_ref ]
+  if { ( $root eq "File" && $L <= 2 ) } {
+    set root
   } else {
-    set gra_parent [ lindex [ tol::info var $parent ] 0 ]
-  }
-  set gra_parent
+    lindex [ tol::info var $set_ref ] 0
+  }
 }