diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-11-06 16:36:24 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-11-06 16:36:24 (GMT) |
| commit | e1d268586f17ae687f67137206fe32a6907c7be3 (patch) | |
| tree | 6592288f08acf6a434c4a9f27ba3092a26185b2f /library | |
| parent | d5874fefffa77e44239a11842981040794c6e31d (diff) | |
| parent | 5f06b1ef2f60034c966d8b55c20c63b795d18f1c (diff) | |
| download | tk-e1d268586f17ae687f67137206fe32a6907c7be3.zip tk-e1d268586f17ae687f67137206fe32a6907c7be3.tar.gz tk-e1d268586f17ae687f67137206fe32a6907c7be3.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'library')
| -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 2095ad6..753f183 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}] |