git/git-gui/macosx/AppMain.tcl

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 [lindex $argv 0]
	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
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> 2007-09-27 06:30:51 +00:00			`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}} {`
git-gui: Correct 'Visualize Branches' on Mac OS X to start gitk In Git 1.6 and later gitk is in $prefix/bin while git-gui and all of the other commands are in $gitexecdir, which is typically not the same as $prefix/bin. So we cannot launch $gitexecdir/gitk and expect it to actually start gitk properly. By allowing git-gui to locate the script via $PATH and then using exactly that path when we source it during the application start we can correctly run gitk on any Git 1.5 or later. Signed-off-by: Shawn O. Pearce <spearce@spearce.org> 2008-07-25 22:08:33 +00:00			`set argv0 [lindex $argv 0]`
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> 2007-09-27 06:30:51 +00:00			`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`