diff options
Diffstat (limited to 'library/listbox.tcl')
-rw-r--r-- | library/listbox.tcl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/library/listbox.tcl b/library/listbox.tcl index e229caf..1f93673 100644 --- a/library/listbox.tcl +++ b/library/listbox.tcl @@ -191,12 +191,12 @@ 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 + 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 } } |