From: Shawn O. Pearce <spearce@spearce.org>
Date: Tue, 7 Nov 2006 05:53:39 +0000 (-0500)
Subject: git-gui: Fix menu item accelerator display on Mac OS X.
X-Git-Tag: gitgui-0.6.0~292
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=661448922fd55b907449962d35d3fdb92397ce9d;p=git.git

git-gui: Fix menu item accelerator display on Mac OS X.

Apparently accelerators really only work correctly for function keys
(F1-F12) and "Cmd-q".  Apparently wish on Mac OS X reports itself
as unix and the OS is Darwin, this makes it a little difficult to
be sure we are running under Aqua.

Signed-off-by: Shawn O. Pearce <spearce@spearce.org>
---

diff --git a/git-gui b/git-gui
index 87dcbaef4..0bbb0064f 100755
--- a/git-gui
+++ b/git-gui
@@ -1205,9 +1205,10 @@ set mainfont {Helvetica 10}
 set difffont {Courier 10}
 set maincursor [. cget -cursor]
 
-switch -- $tcl_platform(platform) {
-windows {set M1B Control; set M1T Ctrl}
-default {set M1B M1; set M1T M1}
+switch -glob -- "$tcl_platform(platform),$tcl_platform(os)" {
+windows,*   {set M1B Control; set M1T Ctrl}
+unix,Darwin {set M1B M1; set M1T Cmd}
+default     {set M1B M1; set M1T M1}
 }
 
 # -- Menu Bar