On 3/9/2017 11:32 PM, Christian Gollwitzer wrote:
>
> MouseWheel on Unix maps to the mouse buttons <4> and <5>. So in addition
> to MouseWheel bind to those buttons.
>
> Christian
Thank you. I was just about to reply to my own question with the answer
I finally found in this rather old discussion:
http://wiki.tcl.tk/3893
If that info is in the documentation, I missed it. If it's not, then it
should be added.
I put this at the beginning of my script... it seems to do the trick.
if { ! $isWindows } {
bind all <Button-4> {
event generate %W <MouseWheel> -delta 120
}
bind all <Button-5> {
event generate %W <MouseWheel> -delta -120
}
}
It seems quite strange to me that, while Tk emulates X11 behavior on
windows, Tk does not emulate <MouseWheel> on unix. How many years has it
been since mice with wheels were introduced?