comparison contrib/hgk @ 24530:2ace3b77aaef

hgk: set distinct fill and outline colour for non-public and obsolete changesets

24529:14873da80bc1

    set id [lindex $displist $level]
    set lastuse($id) $lineno
    set lineid($lineno) $id
    set idline($id) $lineno
    set shape oval
    set ofill [expr {[info exists commitlisted($id)]? "blue": "white"}]
    if {![info exists commitinfo($id)]} {
	readcommit $id
	if {![info exists commitinfo($id)]} {
	    set commitinfo($id) {"No commit information available"}
	    set nparents($id) 0
	}
    } else {
	if {[lindex $commitinfo($id) 9] eq "secret"} {
	    set shape rect
	}
    }
    if {[info exists obsolete($id)]} {
	set ofill darkgrey
    }
    assigncolor $id
    set currentparents {}
    set dupparents {}
    if {[info exists commitlisted($id)] && [info exists parents($id)]} {

    }
    drawlines $id 0
    set orad [expr {$linespc / 3}]
    set t [$canv create $shape [expr $x - $orad] [expr $y1 - $orad] \
	       [expr $x + $orad - 1] [expr $y1 + $orad - 1] \
	       -fill $ofill -outline black -width 1]
    $canv raise $t
    $canv bind $t <1> {selcanvline {} %x %y}
    set xt [xcoord [llength $displist] $level $lineno]
    if {[llength $currentparents] > 2} {
	set xt [expr {$xt + ([llength $currentparents] - 2) * $linespc}]

24530:2ace3b77aaef

    set id [lindex $displist $level]
    set lastuse($id) $lineno
    set lineid($lineno) $id
    set idline($id) $lineno
    set shape oval
    set outline #000080
    set ofill [expr {[info exists commitlisted($id)]? "#7f7fff": "white"}]
    if {![info exists commitinfo($id)]} {
	readcommit $id
	if {![info exists commitinfo($id)]} {
	    set commitinfo($id) {"No commit information available"}
	    set nparents($id) 0
	}
    } else {
	switch [lindex $commitinfo($id) 9] secret {
	    set shape rect
	} public {
	    set outline black
	    set ofill blue
	}
    }
    if {[info exists obsolete($id)]} {
	set outline darkgrey
	set ofill lightgrey
    }
    assigncolor $id
    set currentparents {}
    set dupparents {}
    if {[info exists commitlisted($id)] && [info exists parents($id)]} {

    }
    drawlines $id 0
    set orad [expr {$linespc / 3}]
    set t [$canv create $shape [expr $x - $orad] [expr $y1 - $orad] \
	       [expr $x + $orad - 1] [expr $y1 + $orad - 1] \
	       -fill $ofill -outline $outline -width 1]
    $canv raise $t
    $canv bind $t <1> {selcanvline {} %x %y}
    set xt [xcoord [llength $displist] $level $lineno]
    if {[llength $currentparents] > 2} {
	set xt [expr {$xt + ([llength $currentparents] - 2) * $linespc}]