| Steffen Prohaska | 99fe594 | 2007-10-10 08:58:59 +0200 | [diff] [blame] | 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 | |
| Steffen Prohaska | 5fc6eda | 2008-07-27 18:49:43 +0200 | [diff] [blame] | 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 |
| Steffen Prohaska | 99fe594 | 2007-10-10 08:58:59 +0200 | [diff] [blame] | 18 | |
| 19 | source [file join [file dirname [info script]] git-gui.tcl] |
