Changeset 2390 for trunk

Timestamp:

Aug 16, 2011, 3:50:37 PM (13 years ago)

Author:

gah

Message:

 

File:

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

trunk/gui/scripts/nanovisviewer.tcl

@@ -914 +914 @@
         SendCmd "cutplane state $_settings($this-${axis}cutplane) $axis $vols"
         set pos [expr {0.01*$_settings($this-${axis}cutposition)}]
-        SendCmd "cutplane position $pos $axis $vols"
+        set vol [lindex $vols 0]
+        SendCmd "cutplane position $pos $axis $vol"
     }
     SendCmd "volume data state $_settings($this-volume) $vols"
@@ -1223 +1224 @@
             if { [isconnected] } {
                 set vols [CurrentVolumes -cutplanes] 
- puts stderr "cutplanes=$cutplanes"
-                SendCmd "cutplane state $bool $axis $vols"
+                set vol [lindex $vols 0]
+                SendCmd "cutplane state $bool $axis $vol"
             }
             if { $bool } {
@@ -1884 +1885 @@
             set newpos [expr {0.01*$newval}]
             set vols [CurrentVolumes -cutplanes]
-            SendCmd "cutplane position $newpos $axis $vols"
+            set vol [lindex $vols 0]
+            SendCmd "cutplane position $newpos $axis $vol"
         }
         default {