hgk: added -selectbackground grey to canvases

Bela Babik teki321 at gmail.com
Mon Jun 4 01:57:08 CDT 2007


# HG changeset patch
# User teki321 at gmail.com
# Date 1180940092 -36000
# Node ID b2d1f5948772db93168c64795e9dad211511fbc4
# Parent  b2b55acbacdd6d52f62911cd7df242a4ce610460
hgk: added -selectbackground grey to canvases

diff -r b2b55acbacdd -r b2d1f5948772 contrib/hgk
--- a/contrib/hgk	Fri Jun 01 18:40:14 2007 -0500
+++ b/contrib/hgk	Mon Jun 04 16:54:52 2007 +1000
@@ -356,15 +356,15 @@ proc makewindow {} {
     set canv .ctop.top.clist.canv
     canvas $canv -height $geometry(canvh) -width $geometry(canv1) \
 	-bg white -bd 0 \
-	-yscrollincr $linespc -yscrollcommand "$cscroll set"
+	-yscrollincr $linespc -yscrollcommand "$cscroll set" -selectbackground grey
     .ctop.top.clist add $canv
     set canv2 .ctop.top.clist.canv2
     canvas $canv2 -height $geometry(canvh) -width $geometry(canv2) \
-	-bg white -bd 0 -yscrollincr $linespc
+	-bg white -bd 0 -yscrollincr $linespc -selectbackground grey
     .ctop.top.clist add $canv2
     set canv3 .ctop.top.clist.canv3
     canvas $canv3 -height $geometry(canvh) -width $geometry(canv3) \
-	-bg white -bd 0 -yscrollincr $linespc
+	-bg white -bd 0 -yscrollincr $linespc -selectbackground grey
     .ctop.top.clist add $canv3
     bind .ctop.top.clist <Configure> {resizeclistpanes %W %w}


More information about the Mercurial-devel mailing list