Changeset 5725

Timestamp:

Jun 22, 2015, 2:27:24 AM (9 years ago)

Author:

ldelgass

Message:

Add debug tracing methods

File:

• trunk/gui/scripts/visviewer.tcl (modified) (2 diffs)

trunk/gui/scripts/visviewer.tcl

@@ -44 +44 @@
     #private variable _idleTimeout 0;       # No timeout
 
+    protected variable _debug 0
     protected variable _serverType "???";# Type of server.
     protected variable _sid ""      ;   # socket connection to server
@@ -85 +86 @@
     protected method ColorsToColormap { colors }
     protected method Connect { servers }
+    protected method DebugOff {} {
+        set _debug 0
+    }
+    protected method DebugOn {} {
+        set _debug 1
+    }
+    protected method DebugTrace { args } {
+        if { $_debug } {
+            puts stderr "[info level -1]: $args"
+        }
+    }
     protected method DisableWaitDialog {}
     protected method Disconnect {}