| 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" } { |
| Markus Heidelberg | b01d432 | 2009-04-01 01:55:39 +0200 | [diff] [blame] | 6 | set workdir [lindex $argv 1] |
| 7 | cd $workdir |
| 8 | if {[lindex [file split $workdir] end] eq {.git}} { |
| 9 | # Workaround for Explorer right click "Git GUI Here" on .git/ |
| 10 | cd .. |
| 11 | } |
| Steffen Prohaska | 99fe594 | 2007-10-10 08:58:59 +0200 | [diff] [blame] | 12 | set argv [lrange $argv 2 end] |
| 13 | incr argc -2 |
| 14 | } |
| 15 | |
| Heiko Voigt | 4c79adc | 2010-02-27 21:47:42 +0100 | [diff] [blame] | 16 | set basedir [file dirname \ |
| Steffen Prohaska | 5fc6eda | 2008-07-27 18:49:43 +0200 | [diff] [blame] | 17 | [file dirname \ |
| 18 | [file dirname [info script]]]] |
| Heiko Voigt | 4c79adc | 2010-02-27 21:47:42 +0100 | [diff] [blame] | 19 | set bindir [file join $basedir bin] |
| 20 | set bindir "$bindir;[file join $basedir mingw bin]" |
| Steffen Prohaska | 5fc6eda | 2008-07-27 18:49:43 +0200 | [diff] [blame] | 21 | regsub -all ";" $bindir "\\;" bindir |
| 22 | set env(PATH) "$bindir;$env(PATH)" |
| 23 | unset bindir |
| Steffen Prohaska | 99fe594 | 2007-10-10 08:58:59 +0200 | [diff] [blame] | 24 | |
| 25 | source [file join [file dirname [info script]] git-gui.tcl] |
