From 8030d9c4da197f2f726b52ea0904170abdec3c89 Mon Sep 17 00:00:00 2001
From: marc_culler <marc.culler@gmail.com>
Date: Fri, 24 Nov 2023 19:38:52 +0000
Subject: Restore the ScaleNum invocations in the Text MouseWheel binding.

---
 library/text.tcl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/library/text.tcl b/library/text.tcl
index 0467df5..7cf1091 100644
--- a/library/text.tcl
+++ b/library/text.tcl
@@ -466,16 +466,16 @@ bind Text <Control-MouseWheel> {
     }
 }
 bind Text <MouseWheel> {
-    tk::MouseWheel %W y %D -4.0 pixels
+    tk::MouseWheel %W y [tk::ScaleNum %D] -4.0 pixels
 }
 bind Text <Option-MouseWheel> {
-    tk::MouseWheel %W y %D -1.2 pixels
+    tk::MouseWheel %W y [tk::ScaleNum %D] -1.2 pixels
 }
 bind Text <Shift-MouseWheel> {
-    tk::MouseWheel %W x %D -4.0 pixels
+    tk::MouseWheel %W x [tk::ScaleNum %D] -4.0 pixels
 }
 bind Text <Shift-Option-MouseWheel> {
-    tk::MouseWheel %W x %D -1.2 pixels
+    tk::MouseWheel %W x [tk::ScaleNum %D] -1.2 pixels
 }
 
 # ::tk::TextClosestGap --
-- 
cgit v0.12