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