Changeset 2977 for trunk/gui/scripts/visviewer.tcl

Timestamp:

Apr 25, 2012, 11:31:03 AM (12 years ago)

Author:

gah

Message:

fix multiple for about icons for 2 page tools with manual-resim set

File:

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

trunk/gui/scripts/visviewer.tcl

@@ -40 +40 @@
     #private variable _idleTimeout 5000;    # 5 seconds
     #private variable _idleTimeout 0;       # No timeout
+    private variable _logging 0
 
     protected variable _dispatcher "";  # dispatcher for !events
@@ -163 +164 @@
     pack $itk_component(plotarea) -fill both -expand yes
     set _image(plot) [image create photo]
+
+    global env
+    if { [info exists env(VISRECORDER)] } {
+        set _logging 1
+    }
     eval itk_initialize $args
 }
@@ -421 +427 @@
 
 #
-# ReceiveBytes --
+# StartWaiting --
 #
 #    Read some number of bytes from the visualization server. 
@@ -544 +550 @@
 #
 itcl::body Rappture::VisViewer::SendEcho {channel {data ""}} {
+    if { $_logging }  {
+        set f [open "/tmp/recording.log" "a"]
+        puts $f $data
+        close $f
+    }
     #puts stderr ">>($data)"
     if {[string length $itk_option(-sendcommand)] > 0} {