Squashed 'third_party/git/' content from commit cb71568594
git-subtree-dir: third_party/git git-subtree-split: cb715685942260375e1eb8153b0768a376e4ece7
This commit is contained in:
commit
1b593e1ea4
3629 changed files with 1139935 additions and 0 deletions
29
git-gui/macosx/AppMain.tcl
Normal file
29
git-gui/macosx/AppMain.tcl
Normal file
|
|
@ -0,0 +1,29 @@
|
|||
set gitexecdir {@@gitexecdir@@}
|
||||
if { [info exists ::env(GIT_GUI_LIB_DIR) ] } {
|
||||
set gitguilib $::env(GIT_GUI_LIB_DIR)
|
||||
} else {
|
||||
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 {[info exists env(PWD)]} {
|
||||
cd $env(PWD)
|
||||
} elseif {[pwd] eq {/}} {
|
||||
cd $env(HOME)
|
||||
}
|
||||
}
|
||||
|
||||
unset gitexecdir gitguilib
|
||||
set argv [lrange $argv 1 end]
|
||||
source $AppMain_source
|
||||
Loading…
Add table
Add a link
Reference in a new issue