diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-12-11 09:15:29 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-12-11 09:15:29 (GMT) |
| commit | f67b60bcf43c635172e8d4212fc980bffb73ad4f (patch) | |
| tree | db8a1bcfca20c0246b3b659c6a0e36e2fd403651 /library/tk.tcl | |
| parent | 0d12868cda17abd3b17555a2e1e0521a17a9e341 (diff) | |
| parent | df6dd6970b8e258e295cbf4a64e7c83c798044b4 (diff) | |
| download | tk-f67b60bcf43c635172e8d4212fc980bffb73ad4f.zip tk-f67b60bcf43c635172e8d4212fc980bffb73ad4f.tar.gz tk-f67b60bcf43c635172e8d4212fc980bffb73ad4f.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'library/tk.tcl')
| -rw-r--r-- | library/tk.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/tk.tcl b/library/tk.tcl index 7abf16a..e6e1ce2 100644 --- a/library/tk.tcl +++ b/library/tk.tcl @@ -553,7 +553,7 @@ proc ::tk::MouseWheel {w dir amount {factor -120.0} {units units}} { proc ::tk::PreciseScrollDeltas {dxdy} { set deltaX [expr {$dxdy >> 16}] set low [expr {$dxdy & 0xffff}] - set deltaY [expr {$low < 0x8000 ? $low : $low - 0x10000}] + set deltaY [expr {$low < 0x8000 ? $low : $low - 0x10000}] return [list $deltaX $deltaY] } |