Changeset 4429

Timestamp:

Jun 25, 2014 1:25:10 PM (10 years ago)

Author:

ldelgass

Message:

Rename isosurfaceoutline setting to outline

File:

• branches/1.3/gui/scripts/vtkisosurfaceviewer.tcl (modified) (5 diffs)

branches/1.3/gui/scripts/vtkisosurfaceviewer.tcl

@@ -251 +251 @@
         -isosurfacelighting             1
         -isosurfaceopacity              60
-        -isosurfaceoutline              0
         -isosurfacevisible              1
         -isosurfacewireframe            0
         -legendvisible                  1
         -numcontours                    10
-        -xgrid                          0
+        -outline                        0
         -xcutplaneposition              50
         -xcutplanevisible               1
-        -ygrid                          0
+        -xgrid                          0
         -ycutplaneposition              50
         -ycutplanevisible               1
-        -zgrid                          0
+        -ygrid                          0
         -zcutplaneposition              50
         -zcutplanevisible               1
+        -zgrid                          0
     }
     array set _changed {
@@ -1079 +1079 @@
         }
     }
-    InitSettings -cutplanesvisible -isosurfacevisible -isosurfaceoutline
+    InitSettings -cutplanesvisible -isosurfacevisible -outline
     if { $_reset } {
         # These are settings that rely on a dataset being loaded.
@@ -1495 +1495 @@
             SendCmd "contour3d edges $bool"
         }
-        "-isosurfaceoutline" {
+        "-outline" {
             set bool $_settings($what)
             SendCmd "outline visible 0"
@@ -1671 +1671 @@
     checkbutton $inner.outline \
         -text "Outline" \
-        -variable [itcl::scope _settings(-isosurfaceoutline)] \
-        -command [itcl::code $this AdjustSetting -isosurfaceoutline] \
+        -variable [itcl::scope _settings(-outline)] \
+        -command [itcl::code $this AdjustSetting -outline] \
         -font "Arial 9"
 
@@ -2245 +2245 @@
     SendCmd "outline color [Color2RGB $itk_option(-plotforeground)] $tag"
     SendCmd "outline visible $style(-outline) $tag"
-    set _settings(-isosurfaceoutline) $style(-outline)
+    set _settings(-outline) $style(-outline)
     set _settings(-isosurfaceedges) $style(-edges)
     #SendCmd "contour3d color [Color2RGB $settings(-color)] $tag"