diff options
-rwxr-xr-x | gitk | 12 |
1 files changed, 11 insertions, 1 deletions
@@ -8,10 +8,20 @@ exec wish "$0" -- "${1+$@}" # either version 2, or (at your option) any later version. proc getcommits {rargs} { - global commits commfd phase canv mainfont + global commits commfd phase canv mainfont env global startmsecs nextupdate global ctext maincursor textcursor leftover + # check that we can find a .git directory somewhere... + if {[info exists env(GIT_DIR)]} { + set gitdir $env(GIT_DIR) + } else { + set gitdir ".git" + } + if {![file isdirectory $gitdir]} { + error_popup "Cannot find the git directory \"$gitdir\"." + exit 1 + } set commits {} set phase getcommits set startmsecs [clock clicks -milliseconds] |