Changeset 3654 for trunk/gui/scripts/spinint.tcl

Timestamp:

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

Author:

mmc

Message:

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

File:

• trunk/gui/scripts/spinint.tcl (modified) (2 diffs)

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