diff options
Diffstat (limited to 'library/ttk/spinbox.tcl')
| -rw-r--r-- | library/ttk/spinbox.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/ttk/spinbox.tcl b/library/ttk/spinbox.tcl index d11bc74..9f002cd 100644 --- a/library/ttk/spinbox.tcl +++ b/library/ttk/spinbox.tcl @@ -134,7 +134,7 @@ proc ttk::spinbox::Adjust {w v min max} { # Otherwise cycle through numeric range based on # -from, -to, and -increment. # -proc ttk::spinbox::Spin {w dir {factor 1.0}} { +proc ttk::spinbox::Spin {w dir {factor -1.0}} { variable State if {[$w instate disabled]} { return } @@ -146,7 +146,7 @@ proc ttk::spinbox::Spin {w dir {factor 1.0}} { set State($w,values) [$w cget -values] set State($w,values.length) [llength $State($w,values)] - set d [expr {($dir/$factor)}] + set d [expr {-($dir/$factor)}] set d [expr {int($d > 0 ? ceil($d) : floor($d))}] if {$State($w,values.length) > 0} { set value [$w get] |