Changeset 3899 for trunk/gui/scripts/vtkisosurfaceviewer.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/vtkisosurfaceviewer.tcl (modified) (2 diffs)

trunk/gui/scripts/vtkisosurfaceviewer.tcl

@@ -1507 +1507 @@
     set font "Arial 8"
     set lineht [font metrics $font -linespace]
-    set c $itk_component(view)
     set w 12
     set h [expr {$_height - 2 * ($lineht + 2)}]
-    if { $h < 1} {
+    if { $h < 1 } {
         return
     }
@@ -2289 +2288 @@
         "move" {
             set axis [lindex $args 0]
-            set a [string toupper $axis]
-            set oldval $_settings(cutplane${a}Position)
             set newval [lindex $args 1]
             if {[llength $args] != 2} {