diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-22 15:29:53 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-22 15:29:53 (GMT) |
commit | 68fc0a0ef4781d53802b28f569935acedc875a92 (patch) | |
tree | a61c0e8557619f26c7f56678a0da6eff1883868c /library/iconlist.tcl | |
parent | 127c180c66bf291cae359b4c83fcfce3961af8be (diff) | |
download | tk-68fc0a0ef4781d53802b28f569935acedc875a92.zip tk-68fc0a0ef4781d53802b28f569935acedc875a92.tar.gz tk-68fc0a0ef4781d53802b28f569935acedc875a92.tar.bz2 |
Use some more "(x|y)view scroll units" automatic rounding in bindings.
Diffstat (limited to 'library/iconlist.tcl')
-rw-r--r-- | library/iconlist.tcl | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/library/iconlist.tcl b/library/iconlist.tcl index 30352a1..65c66b1 100644 --- a/library/iconlist.tcl +++ b/library/iconlist.tcl @@ -509,11 +509,7 @@ package require Tk 8.6 if {$noScroll || $::tk_strictMotif} { return } - if {$amount > 0} { - $canvas xview scroll [expr {(-119-$amount) / 120}] units - } else { - $canvas xview scroll [expr {-($amount / 120)}] units - } + $canvas xview scroll [expr {$amount/-120.0}] units } method Btn1 {x y} { focus $canvas |