diff options
Diffstat (limited to 'library/ttk/spinbox.tcl')
-rw-r--r-- | library/ttk/spinbox.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/library/ttk/spinbox.tcl b/library/ttk/spinbox.tcl index c865795..56629bb 100644 --- a/library/ttk/spinbox.tcl +++ b/library/ttk/spinbox.tcl @@ -28,10 +28,10 @@ bind TSpinbox <Shift-MouseWheel> { # Ignore the event } bind TSpinbox <TouchpadScroll> { - lassign [tk::PreciseScrollDeltas %D] tk::Priv::deltaX tk::Priv::deltaY + lassign [tk::PreciseScrollDeltas %D] tk::Priv(deltaX) tk::Priv(deltaY) # TouchpadScroll events fire about 60 times per second. - if {$tk::Priv::deltaY != 0 && %# %% 12 == 0} { - ttk::spinbox::Spin %W [expr {$tk::Priv::deltaY > 0 ? -1 : 1}] + if {$tk::Priv(deltaY) != 0 && %# %% 12 == 0} { + ttk::spinbox::Spin %W [expr {$tk::Priv(deltaY) > 0 ? -1 : 1}] } } |