Changeset 67102d7 in tol for tolbase/lib/toltk/tolinspe.tcl

Timestamp:

Mar 29, 2011, 7:35:03 PM (16 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

22737cb

Parents:

ad30f62

Message:

fixes #1147, private members are shown depending in the value of

TolConfigManager::Config::Various::View::PrivateMembers

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

File:

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

tolbase/lib/toltk/tolinspe.tcl

@@ -1171 +1171 @@
       }
     } else {
-      # es un miembro oculto
-      list -show 0
+      # es un miembro oculto, 
+      set showPrivate [ Tol_GetViewPrivateMembers ]
+      list -show $showPrivate -fcolor "gray75" -name "_$p4"
     }
   } else {
@@ -1965 +1966 @@
     eval $OnBusyCmd 0
   }
+}
+
+proc Tol_GetViewPrivateMembers { } {
+  set viewOpt 0
+  catch {
+    # no funciona 
+    tol::console eval {
+      Real __getViewPrivateMembers_tmp__ =
+      TolConfigManager::Config::Various::View::PrivateMembers;
+    }
+    set x [ lindex [ tol::info variable { Real __getViewPrivateMembers_tmp__ } ] 2 ]
+    tol::console stack release __getViewPrivateMembers_tmp__
+    set viewOpt [ expr { int( $x ) } ]
+    
+  } msg
+  #puts "Tol_GetViewPrivateMembers: $msg"
+  return $viewOpt
 }