Better solution to [75d38f8608], that fixes the problem for all widgets, not only listbox. Thanks to oehhar for some of the ideas in that patch, and to dnikolajevich for providing this implementation.

1 files changed, 2 insertions, 10 deletions

diff --git a/library/listbox.tcl b/library/listbox.tcl
index 96d3f11..4c93104 100644
--- a/library/listbox.tcl
+++ b/library/listbox.tcl
@@ -201,18 +201,10 @@ if {[tk windowingsystem] eq "aqua"} {
     }
 } else {
     bind Listbox <MouseWheel> {
-        incr tk::Priv(wheel_acc_v_%W) %D
-        if {abs($tk::Priv(wheel_acc_v_%W)) >= 120} {
-            %W yview scroll [expr {- ($tk::Priv(wheel_acc_v_%W) / 120) * 4}] units
-            set tk::Priv(wheel_acc_v_%W) 0
-        }
+        %W yview scroll [expr {- (%D / 120) * 4}] units
     }
     bind Listbox <Shift-MouseWheel> {
-        incr tk::Priv(wheel_acc_h_%W) %D
-        if {abs($tk::Priv(wheel_acc_h_%W)) >= 120} {
-            %W xview scroll [expr {- ($tk::Priv(wheel_acc_h_%W) / 120) * 4}] units
-            set tk::Priv(wheel_acc_h_%W) 0
-        }
+        %W xview scroll [expr {- (%D / 120) * 4}] units
     }
 }