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/ttk | |
| 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/ttk')
| -rw-r--r-- | library/ttk/utils.tcl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/library/ttk/utils.tcl b/library/ttk/utils.tcl index 4827aa3..3729254 100644 --- a/library/ttk/utils.tcl +++ b/library/ttk/utils.tcl @@ -298,12 +298,12 @@ proc ttk::bindMouseWheel {bindtag callback} { # bind TtkScrollable <MouseWheel> \ - { %W yview scroll [expr {%D/-120}] units } + { %W yview scroll [expr {%D/-120.0}] units } bind TtkScrollable <Option-MouseWheel> \ - { %W yview scroll [expr {%D/-12}] units } + { %W yview scroll [expr {%D/-12.0}] units } bind TtkScrollable <Shift-MouseWheel> \ - { %W xview scroll [expr {%D/-120}] units } + { %W xview scroll [expr {%D/-120.0}] units } bind TtkScrollable <Shift-Option-MouseWheel> \ - { %W xview scroll [expr {%D/-12}] units } + { %W xview scroll [expr {%D/-12.0}] units } #*EOF* |