diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-11-07 14:23:32 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-11-07 14:23:32 (GMT) |
| commit | 640ca4ad25d6efe409faf5551bbb2f4102011e62 (patch) | |
| tree | 0de72c99a6495d3dadd2dc7b89c2239027dcd61d /library | |
| parent | 0788f6fc1ac0b467bdc3e53a74ba66de5da2278f (diff) | |
| parent | 054420d1e3b71ea9d657396bb42d92472b0d7e88 (diff) | |
| download | tk-640ca4ad25d6efe409faf5551bbb2f4102011e62.zip tk-640ca4ad25d6efe409faf5551bbb2f4102011e62.tar.gz tk-640ca4ad25d6efe409faf5551bbb2f4102011e62.tar.bz2 | |
merge trunk
Diffstat (limited to 'library')
| -rw-r--r-- | library/scale.tcl | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/library/scale.tcl b/library/scale.tcl index d9e7d27..fb9b81b 100644 --- a/library/scale.tcl +++ b/library/scale.tcl @@ -223,7 +223,13 @@ proc ::tk::ScaleIncrement {w dir big repeat} { set inc [$w cget -resolution] } if {([$w cget -from] > [$w cget -to]) ^ ($dir eq "up")} { - set inc [expr {-$inc}] + if {$inc > 0} { + set inc [expr {-$inc}] + } + } else { + if {$inc < 0} { + set inc [expr {-$inc}] + } } $w set [expr {[$w get] + $inc}] |