| 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 | 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 | } |
| 12 | set argv [lrange $argv 2 end] |
| 13 | incr argc -2 |
| 14 | } |
| 15 | |
| 16 | set thisdir [file normalize [file dirname [info script]]] |
| 17 | source [file join $thisdir git-gui.tcl] |