d794d9e70e
* git://repo.or.cz/git-gui: (96 commits) git-gui 0.9.0 git-gui: Bind Meta-T for "Stage To Commit" menu action git-gui: Allow users to set font weights to bold git-gui: Update Japanese strings (part 2) git-gui: Update Japanese strings Updated russian translation of git-gui po2msg: actually output statistics po2msg: ignore untranslated messages po2msg: ignore entries marked with "fuzzy" git-gui: Protect against bad translation strings git-gui: Make sure we get errors from git-update-index More updates and corrections to the russian translation of git-gui Updated Russian translation. git-gui: Update German translation git-gui: Add more terms to glossary. git-gui: Paper bag fix the global config parsing git-gui: Honor a config.mak in git-gui's top level git-gui: Collapse $env(HOME) to ~/ in recent repositories on Windows git-gui: Support cloning Cygwin based work-dirs git-gui: Use proper Windows shortcuts instead of bat files ...
23 lines
568 B
Tcl
23 lines
568 B
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 [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
|