Changeset 6437 for trunk

Timestamp:

Jul 22, 2016, 10:57:04 AM (8 years ago)

Author:

ldelgass

Message:

Make VisViewer? debug console toplevel window per viewer instance. Fixes errors
when mutliple viewer instances (e.g. multiple outputs using the same viewer
class) try to use a single debug console.

File:

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

trunk/gui/scripts/visviewer.tcl

@@ -140 +140 @@
     private variable _trace 0;          # Protocol tracing for console
     private variable _logging 0;        # Command logging to file
+    private variable _console;          # Debug console window path
     # Number of milliseconds to wait before idle timeout.  If greater than 0,
     # automatically disconnect from the visualization server when idle timeout
@@ -154 +155 @@
     set _servers(vtkvis)  "localhost:2010"
     private common _done;               # Used to indicate status of send.
+    private common _consoleCnt 0;
 }
 
@@ -216 +218 @@
         set _trace 1
     }
+    incr _consoleCnt
+    set _console ".renderconsole$_consoleCnt"
+
     eval itk_initialize $args
 }
@@ -226 +231 @@
     interp delete $_parser
     array unset _done $this
+    if {[winfo exists $_console]} {
+        destroy $_console
+    }
 }
 
@@ -706 +714 @@
 #
 itcl::body Rappture::VisViewer::BuildConsole {} {
-    toplevel .renderconsole
-    wm protocol .renderconsole WM_DELETE_WINDOW [itcl::code $this HideConsole]
-    set f .renderconsole
+    toplevel $_console
+    wm protocol $_console WM_DELETE_WINDOW [itcl::code $this HideConsole]
+    set f $_console
     frame $f.send
     pack $f.send -side bottom -fill x
@@ -763 +771 @@
 #
 itcl::body Rappture::VisViewer::DebugConsole {} {
-    if { ![winfo exists .renderconsole] } {
+    if { ![winfo exists $_console] } {
         BuildConsole
     }
@@ -769 +777 @@
         $this configure -sendcommand [itcl::code $this TraceComm]
         $this configure -receivecommand [itcl::code $this TraceComm]
-        wm deiconify .renderconsole
+        wm deiconify $_console
     } else {
         $this configure -sendcommand ""
         $this configure -receivecommand ""
-        wm withdraw .renderconsole
+        wm withdraw $_console
     }
 }