cope with changed git-diff-tree output format
This commit is contained in:
parent
cfb4563c83
commit
d4e95cb6cf
11
gitk
11
gitk
@ -7,7 +7,7 @@ exec wish "$0" -- "${1+$@}"
|
|||||||
# and distributed under the terms of the GNU General Public Licence,
|
# and distributed under the terms of the GNU General Public Licence,
|
||||||
# either version 2, or (at your option) any later version.
|
# either version 2, or (at your option) any later version.
|
||||||
|
|
||||||
# CVS $Revision: 1.19 $
|
# CVS $Revision: 1.20 $
|
||||||
|
|
||||||
proc getcommits {rargs} {
|
proc getcommits {rargs} {
|
||||||
global commits commfd phase canv mainfont
|
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
|
-justify center -aspect 400
|
||||||
pack $w.m -side top -fill x -padx 20 -pady 20
|
pack $w.m -side top -fill x -padx 20 -pady 20
|
||||||
button $w.ok -text Close -command "destroy $w"
|
button $w.ok -text Close -command "destroy $w"
|
||||||
@ -1099,11 +1099,8 @@ proc gettreediffline {gdtf id} {
|
|||||||
addtocflist $id
|
addtocflist $id
|
||||||
return
|
return
|
||||||
}
|
}
|
||||||
set type [lindex $line 1]
|
set file [lindex $line 5]
|
||||||
set file [lindex $line 3]
|
lappend treediffs($id) $file
|
||||||
if {$type == "blob"} {
|
|
||||||
lappend treediffs($id) $file
|
|
||||||
}
|
|
||||||
}
|
}
|
||||||
|
|
||||||
proc getblobdiffs {id} {
|
proc getblobdiffs {id} {
|
||||||
|
Loading…
Reference in New Issue
Block a user