diff options
author | Jonathan del Strother <jon.delStrother@bestbefore.tv> | 2007-10-15 10:33:07 +0100 |
---|---|---|
committer | Shawn O. Pearce <spearce@spearce.org> | 2007-10-19 23:06:33 -0400 |
commit | 5dd57d512225bb82aa0010b39aaec0085d471eac (patch) | |
tree | bb335331274698031fc92e0f7c5b3016be6b49e4 | |
parent | 0166419a197cea0ceef3aed8c72023deb015ecf4 (diff) | |
download | git-5dd57d512225bb82aa0010b39aaec0085d471eac.tar.gz git-5dd57d512225bb82aa0010b39aaec0085d471eac.tar.xz |
gitk: Add support for OS X mouse wheel
(Väinö Järvelä supplied this patch a while ago for 1.5.2. It no longer
applied cleanly, so I'm reposting it.)
MacBook doesn't seem to recognize MouseRelease-4 and -5 events, at all.
So i added a support for the MouseWheel event, which i limited to Tcl/tk
aqua, as i couldn't test it neither on Linux or Windows. Tcl/tk needs to
be updated from the version that is shipped with OS X 10.4 Tiger, for
this patch to work.
Signed-off-by: Jonathan del Strother <jon.delStrother@bestbefore.tv>
Signed-off-by: Shawn O. Pearce <spearce@spearce.org>
-rwxr-xr-x | gitk | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -843,6 +843,12 @@ proc makewindow {} { } else { bindall <ButtonRelease-4> "allcanvs yview scroll -5 units" bindall <ButtonRelease-5> "allcanvs yview scroll 5 units" + if {[tk windowingsystem] eq "aqua"} { + bindall <MouseWheel> { + set delta [expr {- (%D)}] + allcanvs yview scroll $delta units + } + } } bindall <2> "canvscan mark %W %x %y" bindall <B2-Motion> "canvscan dragto %W %x %y" |