From: Paul Mackerras Date: Wed, 1 Jun 2005 00:02:13 +0000 (+0000) Subject: cope with changed git-diff-tree output format X-Git-Tag: v0.99~60^2~17 X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=d4e95cb6cf0c65ec1e9e40ae967e128d7f0e45a9;p=git.git cope with changed git-diff-tree output format --- diff --git a/gitk b/gitk index a8c028b54..f7ff049b8 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} {