Changeset 2235 for trunk/gui/scripts

Timestamp:

Apr 29, 2011, 8:30:30 AM (14 years ago)

Author:

gah

Message:

 

Location:

trunk/gui/scripts

Files:

• visviewer.tcl (modified) (1 diff)
• vtkviewer2.tcl (modified) (3 diffs)

trunk/gui/scripts/visviewer.tcl

@@ -540 +540 @@
 #
 itcl::body Rappture::VisViewer::ReceiveEcho {channel {data ""}} {
-    #puts stderr "<<line $data"
+    puts stderr "<<line $data"
     if {[string length $itk_option(-receivecommand)] > 0} {
         uplevel #0 $itk_option(-receivecommand) [list $channel $data]

trunk/gui/scripts/vtkviewer2.tcl

@@ -347 +347 @@
         set _height 500
     }
+    puts stderr "screen size $_width $_height"
     SendCmd "screen size $_width $_height"
     set _resizePending 0
@@ -352 +353 @@
 
 itcl::body Rappture::VtkViewer2::EventuallyResize { w h } {
+    puts stderr "EventuallyResize $w $h"
     set _width $w
     set _height $h
     $_arcball resize $w $h
     if { !$_resizePending } {
-        $_dispatcher event -after 100 !resize
+        $_dispatcher event -after 10 !resize
         set _resizePending 1
     }
@@ -1098 +1100 @@
     }
 }
-
 
 #