diff options
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] } |