Mercurial > hg
changeset 24530:2ace3b77aaef
hgk: set distinct fill and outline colour for non-public and obsolete changesets
| author | Andrew Shadura <andrew@shadura.me> |
|---|---|
| date | Sun, 29 Mar 2015 19:12:08 +0200 |
| parents | 14873da80bc1 |
| children | 18ee81b37928 |
| files | contrib/hgk |
| diffstat | 1 files changed, 9 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/contrib/hgk Sun Mar 29 18:44:53 2015 +0200 +++ b/contrib/hgk Sun Mar 29 19:12:08 2015 +0200 @@ -1152,7 +1152,8 @@ set lineid($lineno) $id set idline($id) $lineno set shape oval - set ofill [expr {[info exists commitlisted($id)]? "blue": "white"}] + set outline #000080 + set ofill [expr {[info exists commitlisted($id)]? "#7f7fff": "white"}] if {![info exists commitinfo($id)]} { readcommit $id if {![info exists commitinfo($id)]} { @@ -1160,12 +1161,16 @@ set nparents($id) 0 } } else { - if {[lindex $commitinfo($id) 9] eq "secret"} { + switch [lindex $commitinfo($id) 9] secret { set shape rect + } public { + set outline black + set ofill blue } } if {[info exists obsolete($id)]} { - set ofill darkgrey + set outline darkgrey + set ofill lightgrey } assigncolor $id set currentparents {} @@ -1195,7 +1200,7 @@ 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] + -fill $ofill -outline $outline -width 1] $canv raise $t $canv bind $t <1> {selcanvline {} %x %y} set xt [xcoord [llength $displist] $level $lineno]