Changeset 3971 for trunk/gui

Timestamp:

Oct 1, 2013 8:11:18 PM (11 years ago)

Author:

ldelgass

Message:

allow outline in 3d image view

File:

• trunk/gui/scripts/vtkimageviewer.tcl (modified) (5 diffs)

trunk/gui/scripts/vtkimageviewer.tcl

@@ -228 +228 @@
         outline                 0
         saveOpacity             100
-        saveOutline             0
         stretchToFit            0
         view3D                  0
@@ -1453 +1452 @@
             if { $bool } {
                 set _settings(opacity) $_settings(saveOpacity)
-                set _settings(outline) 0
             } else {
                 set _settings(opacity) 100
-                set _settings(outline)  $_settings(saveOutline)
             }
             AdjustSetting opacity
-            AdjustSetting outline
-            if { $bool } {
+            if { $bool } {
                 $itk_component(opacity) configure -state normal
                 $itk_component(opacity_l) configure -state normal
-                $itk_component(outline) configure -state disabled
                 if {$_view(ortho)} {
                     SendCmd "camera mode ortho"
@@ -1472 +1467 @@
                 $itk_component(opacity) configure -state disabled
                 $itk_component(opacity_l) configure -state disabled
-                $itk_component(outline) configure -state normal
                 SendCmd "camera mode image"
             }
@@ -1523 +1517 @@
         }
         "outline" {
-            if { $_settings(view3D) } {
-                SendCmd "outline visible 0"
-            } else {
-                set _settings(saveOutline) $_settings(outline)
-                set bool $_settings(outline)
-                SendCmd "outline visible $bool"
-            }
+            set bool $_settings(outline)
+            SendCmd "outline visible $bool"
         }
         "stretchToFit" {
@@ -1697 +1686 @@
         -font "Arial 9"
 
-    itk_component add outline {
-        checkbutton $inner.outline \
-            -text "Outline" \
-            -variable [itcl::scope _settings(outline)] \
-            -command [itcl::code $this AdjustSetting outline] \
-            -font "Arial 9"
-    } {
-        ignore -font
-    }
+    checkbutton $inner.outline \
+        -text "Outline" \
+        -variable [itcl::scope _settings(outline)] \
+        -command [itcl::code $this AdjustSetting outline] \
+        -font "Arial 9"
 
     checkbutton $inner.backing \