Changeset 3899 for trunk/gui/scripts/vtkviewer.tcl

Timestamp:

Aug 27, 2013 12:38:22 PM (8 years ago)

Author:

ldelgass

Message:

Add cutplane visibility button to nanovis viewers.

File:

• trunk/gui/scripts/vtkviewer.tcl (modified) (3 diffs)

trunk/gui/scripts/vtkviewer.tcl

@@ -1613 +1613 @@
     set font "Arial 8"
     set lineht [font metrics $font -linespace]
-    set c $itk_component(legend)
     set w 12
     set h [expr {$_height - 2 * ($lineht + 2)}]
-    if { $h < 1} {
+    if { $h < 1 } {
         return
     }
@@ -2132 +2131 @@
     $itk_component(zCutScale) set 100
     $itk_component(zCutScale) configure -state disabled
-    #$itk_component(zCutScale) configure -state disabled
     Rappture::Tooltip::for $itk_component(zCutScale) \
         "@[itcl::code $this Slice tooltip z]"
@@ -2660 +2658 @@
         "move" {
             set axis [lindex $args 0]
-            set oldval $_axis(${axis}position)
             set newval [lindex $args 1]
             if {[llength $args] != 2} {