Changeset a6e4c78 in tol for tolbase/lib/toltk/tolinspe.tcl

Timestamp:

Jan 23, 2009, 4:20:42 PM (18 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

8e1d5d3

Parents:

699674f

Message:

hidden members in NameBlock are not shown in inspector

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

File:

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

tolbase/lib/toltk/tolinspe.tcl

@@ -658 +658 @@
   variable ht_funcs
   variable blt_functree
+  variable gra_parent
 
   #puts "InsertChild: args=$args [info level 1]"
@@ -665 +666 @@
   set path    [lindex $args 3]
   set desc    [lindex [lindex $args 4] 0]
+
+  if { ( $gra_parent eq "NameBlock" ) && 
+       [ regexp {(.+::)?_[^.](.*)} $name => p1 p2 ] } {
+    return
+  }
+
   if {[llength [lindex $args end]] >= 2} {
     #set ref [list [lindex [lindex $args end] 0] [lrange [lindex $args end] 1 end]]
@@ -843 +850 @@
         set node_prefix [lindex $leaf_info 0]
         set _tolset $tolset
-                puts "OpenObject: node_prefix = $node_prefix"
         if { [string equal $parent1 "root-pool"] } {
           #Tolcon_Trace "OpenObject. tolset=$tolset"
@@ -887 +893 @@
         #set set_ref [eval list [list $tolset] $tolindex]
         set set_ref [eval list $tolset $tolindex]
-        #puts "OpenObject: set_ref = $set_ref"
+        variable gra_parent [ GetParentGrammar $set_ref ]
         ::tol::forallchild $set_ref ::TolInspector::InsertSubset
         set tolset $_tolset
@@ -1059 +1065 @@
   variable has_button 0
   variable blt_tree
-
+  variable gra_parent
+
+  if { ( $gra_parent eq "NameBlock" ) && 
+       [ regexp {(.+::)?_[^.](.*)} [lindex $args 1] => p1 p2 ] } {
+    return
+  }
   #puts "InsertSubset, args=$args"
   set grammar [lindex $args 0]
@@ -1522 +1533 @@
   #puts "SelectSet: tolset=$tolset tolindex=$tolindex"
   set set_ref [eval list $tolset $tolindex]
-  #puts "SelectSet: set_ref = $set_ref"
+  variable gra_parent [ GetParentGrammar $set_ref ]
   ::tol::forallchild $set_ref ::TolInspector::_InsertChild
   #  set selecting_set 0
+}
+
+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
+  } else {
+    set gra_parent [ lindex [ tol::info var $parent ] 0 ]
+  }
+  set gra_parent
 }