diff options
| author | marc_culler <marc.culler@gmail.com> | 2023-11-24 22:52:12 (GMT) |
|---|---|---|
| committer | marc_culler <marc.culler@gmail.com> | 2023-11-24 22:52:12 (GMT) |
| commit | d934fbfe389ed3f79b9b4de6c94e01a928f716ec (patch) | |
| tree | a47cd9eb4d195a886eeb9cf3c2ccc31124444cb5 /library/text.tcl | |
| parent | 1e3a4e7a0607ab4e6f8af6717eed1792fd38fab3 (diff) | |
| download | tk-d934fbfe389ed3f79b9b4de6c94e01a928f716ec.zip tk-d934fbfe389ed3f79b9b4de6c94e01a928f716ec.tar.gz tk-d934fbfe389ed3f79b9b4de6c94e01a928f716ec.tar.bz2 | |
Switch from Control-MouseWheel to Extended-MouseWheel.
Diffstat (limited to 'library/text.tcl')
| -rw-r--r-- | library/text.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/text.tcl b/library/text.tcl index 7cf1091..4e0476d 100644 --- a/library/text.tcl +++ b/library/text.tcl @@ -456,7 +456,7 @@ bind Text <B2-Motion> { } set ::tk::Priv(prevPos) {} -bind Text <Control-MouseWheel> { +bind Text <Extended-MouseWheel> { lassign [tk::PreciseScrollDeltas %D] deltaX deltaY if {$deltaX != 0} { %W xview scroll [expr {-$deltaX}] pixels |