diff options
| author | marc_culler <marc.culler@gmail.com> | 2023-11-24 19:38:52 (GMT) |
|---|---|---|
| committer | marc_culler <marc.culler@gmail.com> | 2023-11-24 19:38:52 (GMT) |
| commit | 8030d9c4da197f2f726b52ea0904170abdec3c89 (patch) | |
| tree | 216c3b1036ad19402e8f2fdd0d17fe72a1434a5a | |
| parent | 037024d2e3f28c239d71fe93bdb82ad816965663 (diff) | |
| download | tk-8030d9c4da197f2f726b52ea0904170abdec3c89.zip tk-8030d9c4da197f2f726b52ea0904170abdec3c89.tar.gz tk-8030d9c4da197f2f726b52ea0904170abdec3c89.tar.bz2 | |
Restore the ScaleNum invocations in the Text MouseWheel binding.
| -rw-r--r-- | library/text.tcl | 8 |
1 files 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 -- |