summaryrefslogtreecommitdiff
path: root/git-gui
diff options
context:
space:
mode:
authorShawn O. Pearce <spearce@spearce.org>2006-11-21 02:33:56 -0500
committerShawn O. Pearce <spearce@spearce.org>2006-11-21 02:33:56 -0500
commit0c8d7839c9dafcfd33dae2bd35b9bf4a98ffa07a (patch)
treed7a827fe75886c2e6c4985764602bd3f43a07b12 /git-gui
parent82aa23545f84f01e83fb2164b5751b41fd449b62 (diff)
downloadgit-0c8d7839c9dafcfd33dae2bd35b9bf4a98ffa07a.tar.gz
git-gui: Be more Macintosh like.
It is tradition for applications to store their about and preferences menu options within the application menu. This is the first menu in the menu bar, just after the apple menu. Apparently the way to access this menu from Tk on Mac OS X systems is to create a special menu whose name ends in ".apple" and place it into the menu bar. So now if we are on Mac OS X we move our about menu and our options menu into the application menu, like other Mac OS X applications. Signed-off-by: Shawn O. Pearce <spearce@spearce.org>
Diffstat (limited to 'git-gui')
-rwxr-xr-xgit-gui40
1 files changed, 29 insertions, 11 deletions
diff --git a/git-gui b/git-gui
index 57120bd2b4..4b07612f58 100755
--- a/git-gui
+++ b/git-gui
@@ -2659,7 +2659,6 @@ if {!$single_commit} {
.mbar add cascade -label Pull -menu .mbar.pull
.mbar add cascade -label Push -menu .mbar.push
}
-.mbar add cascade -label Help -menu .mbar.help
. configure -menu .mbar
# -- Repository Menu
@@ -2731,10 +2730,6 @@ menu .mbar.edit
-command {catch {[focus] tag add sel 0.0 end}} \
-accelerator $M1T-A \
-font font_ui
-.mbar.edit add separator
-.mbar.edit add command -label {Options...} \
- -command do_options \
- -font font_ui
# -- Commit Menu
#
@@ -2808,13 +2803,36 @@ if {!$single_commit} {
menu .mbar.push
}
-# -- Help Menm
-#
-menu .mbar.help
+if {[is_MacOSX]} {
+ # -- Apple Menu (Mac OS X only)
+ #
+ .mbar add cascade -label Apple -menu .mbar.apple
+ menu .mbar.apple
+
+ .mbar.apple add command -label "About $appname" \
+ -command do_about \
+ -font font_ui
+ .mbar.apple add command -label "$appname Options..." \
+ -command do_options \
+ -font font_ui
+} else {
+ # -- Edit Menu
+ #
+ .mbar.edit add separator
+ .mbar.edit add command -label {Options...} \
+ -command do_options \
+ -font font_ui
+
+ # -- Help Menu
+ #
+ .mbar add cascade -label Help -menu .mbar.help
+ menu .mbar.help
+
+ .mbar.help add command -label "About $appname" \
+ -command do_about \
+ -font font_ui
+}
-.mbar.help add command -label "About $appname" \
- -command do_about \
- -font font_ui
# -- Main Window Layout
#