Remove the delta accumulator; allow a Text to scroll at pixel resolution; use scrollingDelta correctly.

1 files changed, 9 insertions, 2 deletions

diff --git a/library/text.tcl b/library/text.tcl
index e5a4c11..c827232 100644
--- a/library/text.tcl
+++ b/library/text.tcl
@@ -456,9 +456,16 @@ bind Text <B2-Motion> {
 }
 set ::tk::Priv(prevPos) {}
 
-bind Text <MouseWheel> {
-    tk::MouseWheel %W y [tk::ScaleNum %D] -4.0 pixels
+if {[tk windowingsystem] eq "aqua"} {
+    bind Text <MouseWheel> {
+	tk::MouseWheel %W y [tk::ScaleNum %D] -1.0 pixels
+    }
+} else {
+    bind Text <MouseWheel> {
+	tk::MouseWheel %W y [tk::ScaleNum %D] -4.0 pixels
+    }
 }
+
 bind Text <Option-MouseWheel> {
     tk::MouseWheel %W y [tk::ScaleNum %D] -1.2 pixels
 }