diff options
Diffstat (limited to 'library/ttk/utils.tcl')
-rw-r--r-- | library/ttk/utils.tcl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/library/ttk/utils.tcl b/library/ttk/utils.tcl index 4b49ae0..ea0082f 100644 --- a/library/ttk/utils.tcl +++ b/library/ttk/utils.tcl @@ -307,12 +307,12 @@ 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 + 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 {$tk::Priv(deltaY) != 0} { + %W yview scroll [expr {-$tk::Priv(deltaY)}] units } } #*EOF* |