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]