codekingpro/portable-devtools

1#!/bin/sh2# Tcl ignores the next line -*- tcl -*- \3exec wish "$0" -- "$@"4 5if { $argc >=2 && [lindex $argv 0] == "--working-dir" } {6	set workdir [lindex $argv 1]7	cd $workdir8	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 -214}15 16set thisdir [file normalize [file dirname [info script]]]17source [file join $thisdir git-gui.tcl]18