@matheusbsbs / matheus-bagliano / commits / 6ea3006f96

gitk: update scrolling for TclTk 8.7+ / TIP 474

TclTk 8.7 (still in alpha), and 9.0 (released), implement TIP 474 that delivers uniform handling of mouse and touchpad scrolling events on all platforms, and by default bound to most widgets. TIP 474 also implements use of the Option- modifier key (Alt- key on PC, Option- key on Macs) to indicate desire for more motion per scroll wheel event, the amplification is not defined but seems to be 5x to 10x. So, for TclTk >= 8.7 we can use identical MouseWheel bindings on all platforms, and should enable use of the Option- modifier to enable larger motion. Let's do all of this, and use a 5x multiplier for the Option- modifier. This largely follows the prior win32 model, except that Tk 8.6 does not reliably use the Option- modifier because the Alt- key conflicts with builtin behavior to activate the main menubar. Presumably this conflict is addressed in the win32 Tcl9.x package. Signed-off-by: Mark Levedahl <mlevedahl@gmail.com>

Mark Levedahl committed Jun 6, 2025 at 12:28 UTC 6ea3006f96f19787c949ef1e4723991756b5126b
1 file changed +11 -1
gitk
+11 -1
@@ -2273,6 +2273,16 @@ proc bind_mousewheel {} {
2273 bind $cflist <MouseWheel> {$cflist yview scroll [scrollval %D 2] units}
2274 bind $cflist <Shift-MouseWheel> break
2275 bind $canv <Shift-MouseWheel> {$canv xview scroll [scrollval %D] units}
2276 +
2277 + if {[package vcompare $::tcl_version 8.7] >= 0} {
2278 + bindall <Alt-MouseWheel> {allcanvs yview scroll [scrollval 5*%D] units}
2279 + bindall <Alt-Shift-MouseWheel> break
2280 + bind $ctext <Alt-MouseWheel> {$ctext yview scroll [scrollval 5*%D 2] units}
2281 + bind $ctext <Alt-Shift-MouseWheel> {$ctext xview scroll [scrollval 5*%D 2] units}
2282 + bind $cflist <Alt-MouseWheel> {$cflist yview scroll [scrollval 5*%D 2] units}
2283 + bind $cflist <Alt-Shift-MouseWheel> break
2284 + bind $canv <Alt-Shift-MouseWheel> {$canv xview scroll [scrollval 5*%D] units}
2285 + }
2286 }
2287
2288 proc bind_mousewheel_buttons {} {
@@ -2732,7 +2742,7 @@ proc makewindow {} {
2742 bindall <1> {selcanvline %W %x %y}
2743
2744 #Mouse / touchpad scrolling
2735 - if {[tk windowingsystem] == "win32"} {
2745 + if {[tk windowingsystem] == "win32" || [package vcompare $::tcl_version 8.7] >= 0} {
2746 set scroll_D0 120
2747 bind_mousewheel
2748 } elseif {[tk windowingsystem] == "x11"} {