Changeset b9ea255 in tol

Timestamp:

Mar 17, 2011, 5:09:16 PM (16 years ago)

Author:

Pedro Gea <pgea@…>

Branches:

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

Children:

387ce2b

Parents:

29c8edd

Message:

(Cont.) Se resuelven las dos primeras propuestas.
Refs #1130

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

File:

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

tolbase/lib/toltk/tolinspe.tcl

@@ -1152 +1152 @@
 
 proc ::TolInspector::FilterNameBlockMember { name } {
-  set st_reg [ regexp {(.+::)?(_)?(\.)?(.*)} $name => p1 p2 p3 p4 p5]
+  set st_reg [ regexp {(.+::)?(_)?(\.)?(.*)} $name => p1 p2 p3 p4]
   if { !$st_reg } {
     list -show 1 -fcolor "black" -name $name
@@ -1162 +1162 @@
       } {
         # es un miembro de solo lectura
-        list -show 1 -fcolor "gray50" -name "_.$p5"
+        list -show 1 -fcolor "gray50" -name "_.$p4"
       }
     } else {