path: root/macosx/AppMain.tcl
diff options
authorShawn O. Pearce <>2007-09-27 06:30:51 (GMT)
committerShawn O. Pearce <>2007-09-28 02:17:00 (GMT)
commit72a8e81d457a1ee1283817d03d8e28303c2b4e7e (patch)
tree4022e4760b5c5b6d92fe6489d520a6a3ef0e3562 /macosx/AppMain.tcl
parent1bdd8a153528b539fdaed23c18e87a374b1f3ff8 (diff)
git-gui: Support a native Mac OS X application bundle
If we are building on Darwin (sometimes known as Mac OS X) and we find the Mac OS X Tk.framework in the expected location we build a proper Mac OS X application bundle with icons and info list. The git-gui and git-citool commands are modified to be very short shell scripts that just execute the application bundle, starting Tk with our own info list and icon set. Although the Makefile change here is rather large it makes for a much more pleasant user experience on Mac OS X as git-gui now has its own icon on the dock, in the standard tk_messageBox dialogs, and the application name now says "Git Gui" instead of "Wish" in locations such as the menu bar and the alt-tab window. Signed-off-by: Shawn O. Pearce <>
Diffstat (limited to 'macosx/AppMain.tcl')
1 files changed, 22 insertions, 0 deletions
diff --git a/macosx/AppMain.tcl b/macosx/AppMain.tcl
new file mode 100644
index 0000000..41ca08e
--- /dev/null
+++ b/macosx/AppMain.tcl
@@ -0,0 +1,22 @@
+set gitexecdir {@@gitexecdir@@}
+set gitguilib {@@GITGUI_LIBDIR@@}
+set env(PATH) "$gitexecdir:$env(PATH)"
+if {[string first -psn [lindex $argv 0]] == 0} {
+ lset argv 0 [file join $gitexecdir git-gui]
+if {[file tail [lindex $argv 0]] eq {gitk}} {
+ set argv0 [file join $gitexecdir gitk]
+ set AppMain_source $argv0
+} else {
+ set argv0 [file join $gitexecdir [file tail [lindex $argv 0]]]
+ set AppMain_source [file join $gitguilib git-gui.tcl]
+ if {[pwd] eq {/}} {
+ cd $env(HOME)
+ }
+unset gitexecdir gitguilib
+set argv [lrange $argv 1 end]
+source $AppMain_source