Changeset 3901 for trunk/gui

Timestamp:

Aug 27, 2013 11:12:39 PM (11 years ago)

Author:

ldelgass

Message:

Reset cutplane visible state on rebuild

File:

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

trunk/gui/scripts/nanovisviewer.tcl

@@ -963 +963 @@
 
         InitSettings light2side light transp isosurface grid axes \
-            cutplaneVisible xcutplane ycutplane zcutplane
+            xcutplane ycutplane zcutplane
 
         if {"" != $_first} {
@@ -977 +977 @@
     }
     # Outline seems to need to be reset every update.
-    InitSettings outline
+    InitSettings outline cutplaneVisible
     # nothing to send -- activate the proper ivol
     SendCmd "volume state 0"
@@ -1837 +1837 @@
     $inner configure -borderwidth 4
 
+    checkbutton $inner.visible \
+        -text "Show Cutplanes" \
+        -variable [itcl::scope _settings($this-cutplaneVisible)] \
+        -command [itcl::code $this AdjustSetting cutplaneVisible] \
+        -font "Arial 9"
+
     # X-value slicer...
     itk_component add xCutButton {
@@ -1917 +1923 @@
     $itk_component(zCutScale) set 50
     $itk_component(zCutScale) configure -state disabled
-    #$itk_component(zCutScale) configure -state disabled
     Rappture::Tooltip::for $itk_component(zCutScale) \
         "@[itcl::code $this SlicerTip z]"
 
     blt::table $inner \
-        1,1 $itk_component(xCutButton) \
-        1,2 $itk_component(yCutButton) \
-        1,3 $itk_component(zCutButton) \
-        0,1 $itk_component(xCutScale) \
-        0,2 $itk_component(yCutScale) \
-        0,3 $itk_component(zCutScale) 
-
-    blt::table configure $inner r0 r1 c* -resize none
-    blt::table configure $inner r2 c4 -resize expand
+        0,1 $inner.visible              -anchor w -pady 2 -cspan 4 \
+        1,1 $itk_component(xCutScale) \
+        1,2 $itk_component(yCutScale) \
+        1,3 $itk_component(zCutScale) \
+        2,1 $itk_component(xCutButton) \
+        2,2 $itk_component(yCutButton) \
+        2,3 $itk_component(zCutButton)
+
+    blt::table configure $inner r0 r1 r2 c* -resize none
+    blt::table configure $inner r3 c4 -resize expand
     blt::table configure $inner c0 -width 2
     blt::table configure $inner c1 c2 c3 -padx 2