diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-11-06 16:49:24 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-11-06 16:49:24 (GMT) |
| commit | 7eebdb115b74dd98b3eb9c32e0077a21b084c3bc (patch) | |
| tree | 3762ada4b92930d5bce640c8fbf8fe25d1cf57d2 /library | |
| parent | e1d268586f17ae687f67137206fe32a6907c7be3 (diff) | |
| parent | f51d73def011d920a123d35863c79a9c0e253016 (diff) | |
| download | tk-7eebdb115b74dd98b3eb9c32e0077a21b084c3bc.zip tk-7eebdb115b74dd98b3eb9c32e0077a21b084c3bc.tar.gz tk-7eebdb115b74dd98b3eb9c32e0077a21b084c3bc.tar.bz2 | |
Merge 8.6 (actually, just missing braces in listbox bindings, as correctly spotted by Csaba Nemethi)
Diffstat (limited to 'library')
| -rw-r--r-- | library/listbox.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/listbox.tcl b/library/listbox.tcl index f057151..3802223 100644 --- a/library/listbox.tcl +++ b/library/listbox.tcl @@ -204,14 +204,14 @@ if {[tk windowingsystem] eq "aqua"} { if {%D >= 0} { %W yview scroll [expr {-%D/30}] units } else { - %W yview scroll [expr {29-%D/30}] units + %W yview scroll [expr {(29-%D)/30}] units } } bind Listbox <Shift-MouseWheel> { if {%D >= 0} { %W xview scroll [expr {-%D/30}] units } else { - %W xview scroll [expr {29-%D/30}] units + %W xview scroll [expr {(29-%D)/30}] units } } } |