Changeset 3654

Timestamp:

May 15, 2013, 1:10:54 PM (11 years ago)

Author:

mmc

Message:

Switched the order of +/- buttons for integer spinners.

Location:

trunk/gui/scripts

Files:

• gauge.tcl (modified) (2 diffs)
• spinint.tcl (modified) (2 diffs)

trunk/gui/scripts/gauge.tcl

@@ -139 +139 @@
     }
 
+    itk_component add spinup {
+        button $itk_component(spinner).up -image [Rappture::icon intplus] \
+            -borderwidth 1 -relief raised -highlightthickness 0 \
+            -command [itcl::code $this bump 1]
+    } {
+        usual
+        ignore -borderwidth -highlightthickness
+        rename -background -buttonbackground buttonBackground Background
+    }
+    pack $itk_component(spinup) -side left -expand yes -fill both
+
     itk_component add spindn {
         button $itk_component(spinner).down -image [Rappture::icon intminus] \
@@ -148 +159 @@
         rename -background -buttonbackground buttonBackground Background
     }
-    pack $itk_component(spindn) -side left -expand yes -fill both
-
-    itk_component add spinup {
-        button $itk_component(spinner).up -image [Rappture::icon intplus] \
-            -borderwidth 1 -relief raised -highlightthickness 0 \
-            -command [itcl::code $this bump 1]
-    } {
-        usual
-        ignore -borderwidth -highlightthickness
-        rename -background -buttonbackground buttonBackground Background
-    }
-    pack $itk_component(spinup) -side right -expand yes -fill both
+    pack $itk_component(spindn) -side right -expand yes -fill both
 
     itk_component add presets {

trunk/gui/scripts/spinint.tcl

@@ -67 +67 @@
     pack $itk_component(controls) -side right
 
+    itk_component add up {
+        button $itk_component(controls).spinup \
+            -image [Rappture::icon intplus] \
+            -borderwidth 1 -relief raised -highlightthickness 0 \
+            -command [itcl::code $this bump up]
+    } {
+        usual
+        ignore -borderwidth -highlightthickness
+        rename -background -buttonbackground buttonBackground Background
+    }
+    pack $itk_component(up) -side left -expand yes -fill both
+
     itk_component add down {
         button $itk_component(controls).spindn \
@@ -77 +89 @@
         rename -background -buttonbackground buttonBackground Background
     }
-    pack $itk_component(down) -side left -expand yes -fill both
-
-    itk_component add up {
-        button $itk_component(controls).spinup \
-            -image [Rappture::icon intplus] \
-            -borderwidth 1 -relief raised -highlightthickness 0 \
-            -command [itcl::code $this bump up]
-    } {
-        usual
-        ignore -borderwidth -highlightthickness
-        rename -background -buttonbackground buttonBackground Background
-    }
-    pack $itk_component(up) -side right -expand yes -fill both
+    pack $itk_component(down) -side right -expand yes -fill both
 
     eval itk_initialize $args