diff options
| author | Shawn O. Pearce <spearce@spearce.org> | 2007-09-27 06:30:51 (GMT) |
|---|---|---|
| committer | Shawn O. Pearce <spearce@spearce.org> | 2007-09-28 02:17:00 (GMT) |
| commit | 72a8e81d457a1ee1283817d03d8e28303c2b4e7e (patch) | |
| tree | 4022e4760b5c5b6d92fe6489d520a6a3ef0e3562 /macosx/AppMain.tcl | |
| parent | 1bdd8a153528b539fdaed23c18e87a374b1f3ff8 (diff) | |
| download | git-72a8e81d457a1ee1283817d03d8e28303c2b4e7e.zip git-72a8e81d457a1ee1283817d03d8e28303c2b4e7e.tar.gz git-72a8e81d457a1ee1283817d03d8e28303c2b4e7e.tar.bz2 | |
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 <spearce@spearce.org>
Diffstat (limited to 'macosx/AppMain.tcl')
| -rw-r--r-- | macosx/AppMain.tcl | 22 |
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 |