Changeset 29c8edd in tol for tolbase/lib/toltk/tolinspe.tcl

Timestamp:

Mar 17, 2011, 4:49:44 PM (16 years ago)

Author:

Pedro Gea <pgea@…>

Branches:

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

Children:

b9ea255

Parents:

a0464f4

Message:

Se resuelven las dos primeras propuestas.
Refs #1130

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

File:

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

tolbase/lib/toltk/tolinspe.tcl

@@ -195 +195 @@
   # columns Content Path & Description
   #(pgea) se oculta la columna correspondiente a la referencia
-  $ht column insert end Content Path Description\
+  $ht column insert end Content Description Path\
       -bg white -justify left -activetitlebackground gray90 -pad 3
   $ht column insert end Reference -hide yes
-  foreach c {Index Content Path Description} {
+  foreach c {Index Content Description Path} {
     $ht column configure $c -text [mc "$c"]
   }
@@ -1152 +1152 @@
 
 proc ::TolInspector::FilterNameBlockMember { name } {
-  set st_reg [ regexp {(.+::)?(_)?(\.)?(.*)} $name => p1 p2 p3 p4 ]
+  set st_reg [ regexp {(.+::)?(_)?(\.)?(.*)} $name => p1 p2 p3 p4 p5]
   if { !$st_reg } {
     list -show 1 -fcolor "black" -name $name
   } elseif { $p2 eq "_" } {
     if { $p3 eq "." } {
-      # es un miembro de solo lectura
-      list -show 1 -fcolor "gray50" -name "_.$p4"
+      if { [string match {autodoc.member.*} $p4] } {
+        # es un elemento de autodocumentacion y no se muestra
+        list -show 0
+      } {
+        # es un miembro de solo lectura
+        list -show 1 -fcolor "gray50" -name "_.$p5"
+      }
     } else {
       # es un miembro oculto