Merge git://repo.or.cz/git-gui
[git/git.git] / git-gui / windows / git-gui.sh
1 #!/bin/sh
2 # Tcl ignores the next line -*- tcl -*- \
3 exec wish "$0" -- "$@"
4
5 if { $argc >=2 && [lindex $argv 0] == "--working-dir" } {
6 cd [lindex $argv 1]
7 set argv [lrange $argv 2 end]
8 incr argc -2
9 }
10
11 set bindir [file dirname \
12 [file dirname \
13 [file dirname [info script]]]]
14 set bindir [file join $bindir bin]
15 regsub -all ";" $bindir "\\;" bindir
16 set env(PATH) "$bindir;$env(PATH)"
17 unset bindir
18
19 source [file join [file dirname [info script]] git-gui.tcl]