[PATCH] gitk: rereadrefs needs listrefs

The listrefs procedure was inadvertently removed during the course of
development, but there is still a user of it, so resurrect it.

Signed-off-by: Junio C Hamano <junkio@cox.net>
Signed-off-by: Paul Mackerras <paulus@samba.org>
This commit is contained in:
Junio C Hamano 2006-06-11 09:50:47 -07:00 committed by Paul Mackerras
parent 2d71bcccc8
commit 2e1ded44f7

18
gitk
View File

@ -5196,6 +5196,24 @@ proc rereadrefs {} {
} }
} }
proc listrefs {id} {
global idtags idheads idotherrefs
set x {}
if {[info exists idtags($id)]} {
set x $idtags($id)
}
set y {}
if {[info exists idheads($id)]} {
set y $idheads($id)
}
set z {}
if {[info exists idotherrefs($id)]} {
set z $idotherrefs($id)
}
return [list $x $y $z]
}
proc showtag {tag isnew} { proc showtag {tag isnew} {
global ctext tagcontents tagids linknum global ctext tagcontents tagids linknum