diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-11-06 16:35:20 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-11-06 16:35:20 (GMT) |
| commit | 5f06b1ef2f60034c966d8b55c20c63b795d18f1c (patch) | |
| tree | 6d5ff051a21567e5efb379e81992f6b7cc2c6167 | |
| parent | 8f788bba9065216a2ff2c7e9c6d5cbdd2b622b51 (diff) | |
| download | tk-5f06b1ef2f60034c966d8b55c20c63b795d18f1c.zip tk-5f06b1ef2f60034c966d8b55c20c63b795d18f1c.tar.gz tk-5f06b1ef2f60034c966d8b55c20c63b795d18f1c.tar.bz2 | |
Fix [edf4fd2613]: iconlist.tcl: errors in mouse wheel bindings. Thanks to nemethi for reporting this bug!
| -rw-r--r-- | library/iconlist.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/library/iconlist.tcl b/library/iconlist.tcl index 521ec37..eed7476 100644 --- a/library/iconlist.tcl +++ b/library/iconlist.tcl @@ -447,10 +447,10 @@ package require Tk 8.6 bind $canvas <Shift-B1-Motion> [namespace code {my ShiftMotion1 %x %y}] if {[tk windowingsystem] eq "aqua"} { - bind $canvas <Shift-MouseWheel> [namespace code {my MouseWheel [expr {40 * (%W)}]}] - bind $canvas <Option-Shift-MouseWheel> [namespace code {my MouseWheel [expr {400 * (%W)}]}] + bind $canvas <Shift-MouseWheel> [namespace code {my MouseWheel [expr {40 * (%D)}]}] + bind $canvas <Option-Shift-MouseWheel> [namespace code {my MouseWheel [expr {400 * (%D)}]}] } else { - bind $canvas <Shift-MouseWheel> [namespace code {my MouseWheel %W}] + bind $canvas <Shift-MouseWheel> [namespace code {my MouseWheel %D}] } if {[tk windowingsystem] eq "x11"} { bind $canvas <Shift-4> [namespace code {my MouseWheel 120}] |