From: Paul Mackerras <paulus@samba.org>
Date: Wed, 1 Jun 2005 00:02:13 +0000 (+0000)
Subject: cope with changed git-diff-tree output format
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=d4e95cb6cf0c65ec1e9e40ae967e128d7f0e45a9;p=gitk

cope with changed git-diff-tree output format
---

diff --git a/gitk b/gitk
index a8c028b..f7ff049 100755
--- a/gitk
+++ b/gitk
@@ -7,7 +7,7 @@ exec wish "$0" -- "${1+$@}"
 # and distributed under the terms of the GNU General Public Licence,
 # either version 2, or (at your option) any later version.
 
-# CVS $Revision: 1.19 $
+# CVS $Revision: 1.20 $
 
 proc getcommits {rargs} {
     global commits commfd phase canv mainfont
@@ -448,7 +448,7 @@ Copyright 
 
 Use and redistribute under the terms of the GNU General Public License
 
-(CVS $Revision: 1.19 $)} \
+(CVS $Revision: 1.20 $)} \
 	    -justify center -aspect 400
     pack $w.m -side top -fill x -padx 20 -pady 20
     button $w.ok -text Close -command "destroy $w"
@@ -1099,11 +1099,8 @@ proc gettreediffline {gdtf id} {
 	addtocflist $id
 	return
     }
-    set type [lindex $line 1]
-    set file [lindex $line 3]
-    if {$type == "blob"} {
-	lappend treediffs($id) $file
-    }
+    set file [lindex $line 5]
+    lappend treediffs($id) $file
 }
 
 proc getblobdiffs {id} {