cope with changed git-diff-tree output format

diff --git a/gitk b/gitk
index a8c028b54817647663b10376b5bca0e39274786f..f7ff049b8f40a688763712370b34b5cc6f0ec043 100755 (executable)
--- 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.
 
 # 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
 
 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
 
 
 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"
            -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
     }
        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} {
 }
 
 proc getblobdiffs {id} {