Patchwork hgk: define bookmark colour explicitly, as Tk 8.6 has changed their meaning

login
register
mail settings
Submitter Andrew Shadura
Date Sept. 28, 2014, 11:27 a.m.
Message ID <dd7041b135cfd4bc1f09.1411903663@localhost.localdomain>
Download mbox | patch
Permalink /patch/5994/
State Accepted
Commit d246eb9cabbc3f7b5d129e94380d3c125d11bde1
Headers show

Comments

Andrew Shadura - Sept. 28, 2014, 11:27 a.m.
# HG changeset patch
# User Andrew Shadura <andrew@shadura.me>
# Date 1411903660 -7200
#      Sun Sep 28 13:27:40 2014 +0200
# Node ID dd7041b135cfd4bc1f090a2ee98e30735d738fc5
# Parent  4109cc16279ef0e04dc70e7f4c9ab7415e6a22d3
hgk: define bookmark colour explicitly, as Tk 8.6 has changed their meaning
Matt Mackall - Oct. 2, 2014, 6:46 p.m.
On Sun, 2014-09-28 at 13:27 +0200, Andrew Shadura wrote:
> # HG changeset patch
> # User Andrew Shadura <andrew@shadura.me>
> # Date 1411903660 -7200
> #      Sun Sep 28 13:27:40 2014 +0200
> # Node ID dd7041b135cfd4bc1f090a2ee98e30735d738fc5
> # Parent  4109cc16279ef0e04dc70e7f4c9ab7415e6a22d3
> hgk: define bookmark colour explicitly, as Tk 8.6 has changed their meaning

Queued for default, thanks.

Patch

diff --git a/contrib/hgk b/contrib/hgk
--- a/contrib/hgk
+++ b/contrib/hgk
@@ -1271,9 +1271,9 @@  proc drawtags {id x xt y1} {
 	    set rowtextx($idline($id)) [expr {$xr + $linespc}]
 	} elseif {[incr nbookmarks -1] >= 0} {
             # draw a tag
-            set col gray50
+            set col "#7f7f7f"
             if {[string compare $bookmarkcurrent $tag] == 0} {
-                set col gray
+                set col "#bebebe"
             }
             set xl [expr $xl - $delta/2]
             $canv create polygon $x $yt $xr $yt $xr $yb $x $yb \