Changeset 2622 for trunk

Timestamp:

Oct 13, 2011 2:07:04 PM (13 years ago)

Author:

gah

Message:

 

File:

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

trunk/gui/scripts/vtkstreamlinesviewer.tcl

@@ -353 +353 @@
     pack $itk_component(streamlines) -padx 2 -pady 2
 
+    itk_component add cutplane {
+        Rappture::PushButton $f.cutplane \
+            -onimage [Rappture::icon cutbutton] \
+            -offimage [Rappture::icon cutbutton] \
+            -variable [itcl::scope _settings(cutplane-visible)] \
+            -command [itcl::code $this AdjustSetting cutplane-visible] 
+    }
+    $itk_component(cutplane) select
+    Rappture::Tooltip::for $itk_component(cutplane) \
+        "Show/Hide cutplanes"
+    pack $itk_component(cutplane) -padx 2 -pady 2
+
+
     if { [catch {
         BuildVolumeTab
@@ -2645 +2658 @@
 
     # Compute the value of the point
-    set t [expr 1.0 - (double($imgY) / double($imgHeight-1))]
-    set value [expr $t * ($_limits(vmax) - $_limits(vmin)) + $_limits(vmin)]
+    if { [info exists _limits(vmax)] && [info exists _limits(vmin)] } {
+        set t [expr 1.0 - (double($imgY) / double($imgHeight-1))]
+        set value [expr $t * ($_limits(vmax) - $_limits(vmin)) + $_limits(vmin)]
+    } else {
+        set value 0.0
+    }
     set tipx [expr $x + 15] 
     set tipy [expr $y - 5]