Changeset 16d39fe in tol for tolbase/lib/toltk

Timestamp:

Jan 24, 2009, 11:46:00 AM (18 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

8b75c1f2

Parents:

817b775

Message:

fixed bug when finding Grammar of objects within Console

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

File:

• tolbase/lib/toltk/tolinspe.tcl (modified) (1 diff)

tolbase/lib/toltk/tolinspe.tcl

@@ -1575 +1575 @@
 proc ::TolInspector::GetParentGrammar { set_ref } {
   set parent [ lrange $set_ref 0 end-1 ]
-  if { ( [ llength $parent ] <= 2 ) && ( [ lindex $parent 0 ] eq "File" ) } {
-    set gra_parent File
+  set root [ lindex $parent 0 ]
+  if { ( [ llength $parent ] <= 2 ) &&
+       ( $root eq "File" || $root eq "Console" ) } {
+    set gra_parent $root
   } else {
     set gra_parent [ lindex [ tol::info var $parent ] 0 ]