diff -r e5c5ddc3b172 -r b5a0b2374eb6 contrib/hgk --- a/contrib/hgk Sat Mar 28 19:36:21 2015 +0100 +++ b/contrib/hgk Sat Mar 28 20:05:01 2015 +0100 @@ -337,7 +337,7 @@ proc parsecommit {id contents listed olds} { global commitinfo children nchildren parents nparents cdate ncleft - global firstparents + global firstparents obsolete set inhdr 1 set comment {} @@ -389,6 +389,8 @@ set branch [join [lrange $line 1 end]] } elseif {$tag == "bookmark"} { set bookmark [join [lrange $line 1 end]] + } elseif {$tag == "obsolete"} { + set obsolete($id) "" } } } else { @@ -1139,7 +1141,7 @@ global lineno lthickness mainline mainlinearrow sidelines global commitlisted rowtextx idpos lastuse displist global oldnlines olddlevel olddisplist - global aucolormap curid curidfont + global aucolormap curid curidfont obsolete incr numcommits incr lineno @@ -1155,6 +1157,9 @@ set nparents($id) 0 } } + if {[info exists obsolete($id)]} { + set ofill darkgrey + } assigncolor $id set currentparents {} set dupparents {}