Changeset 3394 for trunk/gui/scripts/vtkstreamlinesviewer.tcl

Timestamp:

Feb 28, 2013 11:37:18 AM (11 years ago)

Author:

gah

Message:

fix up stats reporting in servers

File:

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

trunk/gui/scripts/vtkstreamlinesviewer.tcl

@@ -495 +495 @@
 
     # Must reset camera to have object scaling to take effect.
-    #SendCmd "camera reset"
+    SendCmd "camera reset"
     #SendCmd "camera zoom $_view(zoom)"
     set _resizePending 0
@@ -1054 +1054 @@
                     lappend info "dataset_label" [$dataobj hints label]
                     lappend info "dataset_size"  $length
+                    lappend info "dataset_tag"   $tag
                     SendCmd "clientinfo [list $info]"
                 }
@@ -1140 +1141 @@
         PanCamera
         Zoom reset
+        SendCmd "camera reset"
         set _reset 0
     }
@@ -1581 +1583 @@
             }
             foreach dataset [CurrentDatasets -visible] {
-                puts stderr "streamlines colormode $_colorMode ${name} $dataset"
-                puts stderr "cutplane colormode $_colorMode ${name} $dataset"
                 SendCmd "streamlines colormode $_colorMode ${name} $dataset"
                 SendCmd "cutplane colormode $_colorMode ${name} $dataset"
@@ -1749 +1749 @@
                 puts stderr [$fieldData GetArrayName $i]
             }
-            puts stderr "point \#arrays=[$pointData GetNumberOfArrays]"
             for { set i 0 } { $i < [$pointData GetNumberOfArrays] } { incr i } {
                 set name [$pointData GetArrayName $i]
@@ -2397 +2396 @@
 itcl::body Rappture::VtkStreamlinesViewer::ReceiveLegend { colormap title vmin vmax size } {
     set _legendPending 0
-    puts stderr "ReceiveLegend colormap=$colormap title=$title range=$vmin,$vmax size=$size"
     set _limits(vmin) $vmin
     set _limits(vmax) $vmax
@@ -2607 +2605 @@
             set x [expr $x1 + [winfo rootx $itk_component(view)]]
             set y [expr $y2 + [winfo rooty $itk_component(view)]]
-            puts stderr "combo x=$x y=$y"
             tk_popup $itk_component(fieldmenu) $x $y
         }