summaryrefslogtreecommitdiff
path: root/gitk
diff options
context:
space:
mode:
authorJonathan del Strother <jon.delStrother@bestbefore.tv>2007-10-15 10:33:07 +0100
committerShawn O. Pearce <spearce@spearce.org>2007-10-19 23:06:33 -0400
commit5dd57d512225bb82aa0010b39aaec0085d471eac (patch)
treebb335331274698031fc92e0f7c5b3016be6b49e4 /gitk
parent0166419a197cea0ceef3aed8c72023deb015ecf4 (diff)
downloadgit-5dd57d512225bb82aa0010b39aaec0085d471eac.tar.gz
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>
Diffstat (limited to 'gitk')
-rwxr-xr-xgitk6
1 files changed, 6 insertions, 0 deletions
diff --git a/gitk b/gitk
index 999e3c2188..46673e3b9c 100755
--- a/gitk
+++ b/gitk
@@ -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"