GIT 1.6.1.3
[git/dscho.git] / git-gui / windows / git-gui.sh
blob53c3a94686813936445efbb055dc4f02885c70e9
1 #!/bin/sh
2 # Tcl ignores the next line -*- tcl -*- \
3 exec wish "$0" -- "$@"
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
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
19 source [file join [file dirname [info script]] git-gui.tcl]