Changeset 8e1d5d3 in tol for tolbase/lib/toltk

Timestamp:

Jan 23, 2009, 4:49:37 PM (18 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

b96bc27

Parents:

a6e4c78

Message:

trimming parent nameblock withing tolinspector tree

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

File:

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

tolbase/lib/toltk/tolinspe.tcl

@@ -120 +120 @@
   variable node_prefix
 
+  variable gra_parent ""
   # tree widget containing the TOL objects.
   variable ht_tree   ;# is a ::blt::treeview
@@ -1074 +1075 @@
   set grammar [lindex $args 0]
   if {$grammar eq "Set" || $grammar eq "NameBlock"} {
-    set name    [lindex $args 1]
+    if {![ regexp {(.+::)?(.+)} [ lindex $args 1 ] ==> p1 name ] } {
+      set name [ lindex $args 1 ]
+    }
     set content [lindex $args 2]
     set idx     [lindex $args 5]