Changeset 4430 for trunk/gui

Timestamp:

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

Author:

ldelgass

Message:

refactor grid settings names

File:

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

trunk/gui/scripts/vtkisosurfaceviewer.tcl

@@ -242 +242 @@
         -numcontours                    10
         -outline                        0
-        -xaxisgrid                      0
         -xcutplaneposition              50
         -xcutplanevisible               1
-        -yaxisgrid                      0
+        -xgrid                          0
         -ycutplaneposition              50
         -ycutplanevisible               1
-        -zaxisgrid                      0
+        -ygrid                          0
         -zcutplaneposition              50
         -zcutplanevisible               1
+        -zgrid                          0
     }
     array set _changed {
@@ -958 +958 @@
         PanCamera
         set _first ""
-        InitSettings -xaxisgrid -yaxisgrid -zaxisgrid -axismode \
+        InitSettings -xgrid -ygrid -zgrid -axismode \
             -axesvisible -axislabelsvisible 
         foreach axis { x y z } {
@@ -1331 +1331 @@
             SendCmd "axis labels all $bool"
         }
-        "-xaxisgrid" - "-yaxisgrid" - "-zaxisgrid" {
+        "-xgrid" - "-ygrid" - "-zgrid" {
             set axis [string tolower [string range $what 1 1]]
             set bool $_settings($what)
@@ -1756 +1756 @@
     checkbutton $inner.gridx \
         -text "Show X Grid" \
-        -variable [itcl::scope _settings(-xaxisgrid)] \
-        -command [itcl::code $this AdjustSetting -xaxisgrid] \
+        -variable [itcl::scope _settings(-xgrid)] \
+        -command [itcl::code $this AdjustSetting -xgrid] \
         -font "Arial 9"
     checkbutton $inner.gridy \
         -text "Show Y Grid" \
-        -variable [itcl::scope _settings(-yaxisgrid)] \
-        -command [itcl::code $this AdjustSetting -yaxisgrid] \
+        -variable [itcl::scope _settings(-ygrid)] \
+        -command [itcl::code $this AdjustSetting -ygrid] \
         -font "Arial 9"
     checkbutton $inner.gridz \
         -text "Show Z Grid" \
-        -variable [itcl::scope _settings(-zaxisgrid)] \
-        -command [itcl::code $this AdjustSetting -zaxisgrid] \
+        -variable [itcl::scope _settings(-zgrid)] \
+        -command [itcl::code $this AdjustSetting -zgrid] \
         -font "Arial 9"