Andrew's git - gitweb.git/blob - windows/git-gui.sh

   1#!/bin/sh
   2# Tcl ignores the next line -*- tcl -*- \
   3exec wish "$0" -- "$@"
   4
   5if { $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
  11set gitguidir [file dirname [info script]]
  12regsub -all ";" $gitguidir "\\;" gitguidir
  13set env(PATH) "$gitguidir;$env(PATH)"
  14unset gitguidir
  15
  16source [file join [file dirname [info script]] git-gui.tcl]