diff options
| -rw-r--r-- | library/listbox.tcl | 17 | ||||
| -rw-r--r-- | library/ttk/utils.tcl | 17 |
2 files changed, 16 insertions, 18 deletions
diff --git a/library/listbox.tcl b/library/listbox.tcl index ab88c5c..a86f273 100644 --- a/library/listbox.tcl +++ b/library/listbox.tcl @@ -188,15 +188,14 @@ bind Listbox <Shift-Option-MouseWheel> { tk::MouseWheel %W x %D -12.0 units } bind Listbox <TouchpadScroll> { - if {%# %% 5 != 0} { - return - } - lassign [tk::PreciseScrollDeltas %D] tk::Priv(deltaX) tk::Priv(deltaY) - if {$tk::Priv(deltaX) != 0} { - %W xview scroll [expr {-$tk::Priv(deltaX)}] units - } - if {$tk::Priv(deltaY) != 0} { - %W yview scroll [expr {-$tk::Priv(deltaY)}] units + if {%# %% 5 == 0} { + lassign [tk::PreciseScrollDeltas %D] tk::Priv(deltaX) tk::Priv(deltaY) + if {$tk::Priv(deltaX) != 0} { + %W xview scroll [expr {-$tk::Priv(deltaX)}] units + } + if {$tk::Priv(deltaY) != 0} { + %W yview scroll [expr {-$tk::Priv(deltaY)}] units + } } } diff --git a/library/ttk/utils.tcl b/library/ttk/utils.tcl index 7d10666..a0af39d 100644 --- a/library/ttk/utils.tcl +++ b/library/ttk/utils.tcl @@ -304,15 +304,14 @@ bind TtkScrollable <Shift-Option-MouseWheel> \ ## Touchpad scrolling # bind TtkScrollable <TouchpadScroll> { - if {%# %% 5 != 0} { - return - } - lassign [tk::PreciseScrollDeltas %D] tk::Priv(deltaX) tk::Priv(deltaY) - if {$tk::Priv(deltaX) != 0} { - %W xview scroll [expr {-$tk::Priv(deltaX)}] units - } - if {$tk::Priv(deltaY) != 0} { - %W yview scroll [expr {-$tk::Priv(deltaY)}] units + if {%# %% 5 == 0} { + lassign [tk::PreciseScrollDeltas %D] tk::Priv(deltaX) tk::Priv(deltaY) + if {$tk::Priv(deltaX) != 0} { + %W xview scroll [expr {-$tk::Priv(deltaX)}] units + } + if {$tk::Priv(deltaY) != 0} { + %W yview scroll [expr {-$tk::Priv(deltaY)}] units + } } } #*EOF* |