diff options
Diffstat (limited to 'library/text.tcl')
| -rw-r--r-- | library/text.tcl | 25 |
1 files changed, 5 insertions, 20 deletions
diff --git a/library/text.tcl b/library/text.tcl index 631759d..eb73db0 100644 --- a/library/text.tcl +++ b/library/text.tcl @@ -455,33 +455,18 @@ bind Text <B2-Motion> { } } set ::tk::Priv(prevPos) {} + bind Text <MouseWheel> { - if {[tk::IsHiResScroll %s]} { - tk::MouseWheel %W y %D -1.0 pixels - } else { - tk::MouseWheel %W y [tk::ScaleNum %D] -4.0 pixels - } + tk::MouseWheel %W y %D -4.0 pixels } bind Text <Option-MouseWheel> { - if {[tk::IsHiResScroll %s]} { - tk::MouseWheel %W y %D -0.3 pixels - } else { - tk::MouseWheel %W y [tk::ScaleNum %D] -1.2 pixels - } + tk::MouseWheel %W y %D -1.2 pixels } bind Text <Shift-MouseWheel> { - if {[tk::IsHiResScroll %s]} { - tk::MouseWheel %W x %D -1.0 pixels - } else { - tk::MouseWheel %W x [tk::ScaleNum %D] -4.0 pixels - } + tk::MouseWheel %W x %D -4.0 pixels } bind Text <Shift-Option-MouseWheel> { - if {[tk::IsHiResScroll %s]} { - tk::MouseWheel %W x %D -0.3 pixels - } else { - tk::MouseWheel %W x [tk::ScaleNum %D] -1.2 pixels - } + tk::MouseWheel %W x %D -1.2 pixels } # ::tk::TextClosestGap -- |