diff options
| author | marc_culler <marc.culler@gmail.com> | 2023-11-19 23:02:15 (GMT) |
|---|---|---|
| committer | marc_culler <marc.culler@gmail.com> | 2023-11-19 23:02:15 (GMT) |
| commit | 50ca6a3d2a0242016747053b1f08ce4c0ddaee3c (patch) | |
| tree | 25598c244975906a9c1b5ecd23f746310668f0d6 /library/tk.tcl | |
| parent | 404383577459f5d77a42386134835beaaa62f164 (diff) | |
| download | tk-50ca6a3d2a0242016747053b1f08ce4c0ddaee3c.zip tk-50ca6a3d2a0242016747053b1f08ce4c0ddaee3c.tar.gz tk-50ca6a3d2a0242016747053b1f08ce4c0ddaee3c.tar.bz2 | |
Restore low-res scrollwheel behavior; insert a placeholder for sending touchpad events.
Diffstat (limited to 'library/tk.tcl')
| -rw-r--r-- | library/tk.tcl | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/library/tk.tcl b/library/tk.tcl index 74942cb..a6dc37c 100644 --- a/library/tk.tcl +++ b/library/tk.tcl @@ -543,30 +543,6 @@ proc ::tk::CancelRepeat {} { set Priv(afterId) {} } - -# ::tk::IsHiResScroll $state -- -# Checks whether the HiResScrollMask bit is set in the state. - -proc ::tk::IsHiResScroll state { - if {[expr {$state & 512}]} { - return 1 - } else { - return 0 - } -} - -# ::tk::ScrollDirection $state -- -# Checks if ShiftMask is set in the MouseWheelEvent state. -# Returns h for a horizontal scroll, v for a vertical scroll - -proc ::tk::ScrollDirection state { - if {[expr {$state & 1}]} { - return "h" - } else { - return "v" - } -} - ## ::tk::MouseWheel $w $dir $amount $factor $units proc ::tk::MouseWheel {w dir amount {factor -120.0} {units units}} { |