diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-12-11 08:55:54 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-12-11 08:55:54 (GMT) |
| commit | 6c9446676b43a94f223dfa033fec287c04aafede (patch) | |
| tree | fd7f9715e02964c9f16d514ef9aa84c5fd0ccd7f /library/tk.tcl | |
| parent | 730e3b750ea3dfdd1e339bc82743ee4d4b9bffbd (diff) | |
| download | tk-6c9446676b43a94f223dfa033fec287c04aafede.zip tk-6c9446676b43a94f223dfa033fec287c04aafede.tar.gz tk-6c9446676b43a94f223dfa033fec287c04aafede.tar.bz2 | |
White-spacing
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 656ad00..12e0232 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] } |