##// END OF EJS Templates
hgk: specify some colours explicitly in hex...
Andrew Shadura -
r17960:d0d99c8b default
parent child Browse files
Show More
@@ -579,15 +579,15 b' proc makewindow {} {'
579 set canv .ctop.top.clist.canv
579 set canv .ctop.top.clist.canv
580 canvas $canv -height $geometry(canvh) -width $geometry(canv1) \
580 canvas $canv -height $geometry(canvh) -width $geometry(canv1) \
581 -bg $bgcolor -bd 0 \
581 -bg $bgcolor -bd 0 \
582 -yscrollincr $linespc -yscrollcommand "$cscroll set" -selectbackground grey
582 -yscrollincr $linespc -yscrollcommand "$cscroll set" -selectbackground "#c0c0c0"
583 .ctop.top.clist add $canv
583 .ctop.top.clist add $canv
584 set canv2 .ctop.top.clist.canv2
584 set canv2 .ctop.top.clist.canv2
585 canvas $canv2 -height $geometry(canvh) -width $geometry(canv2) \
585 canvas $canv2 -height $geometry(canvh) -width $geometry(canv2) \
586 -bg $bgcolor -bd 0 -yscrollincr $linespc -selectbackground grey
586 -bg $bgcolor -bd 0 -yscrollincr $linespc -selectbackground "#c0c0c0"
587 .ctop.top.clist add $canv2
587 .ctop.top.clist add $canv2
588 set canv3 .ctop.top.clist.canv3
588 set canv3 .ctop.top.clist.canv3
589 canvas $canv3 -height $geometry(canvh) -width $geometry(canv3) \
589 canvas $canv3 -height $geometry(canvh) -width $geometry(canv3) \
590 -bg $bgcolor -bd 0 -yscrollincr $linespc -selectbackground grey
590 -bg $bgcolor -bd 0 -yscrollincr $linespc -selectbackground "#c0c0c0"
591 .ctop.top.clist add $canv3
591 .ctop.top.clist add $canv3
592 bind .ctop.top.clist <Configure> {resizeclistpanes %W %w}
592 bind .ctop.top.clist <Configure> {resizeclistpanes %W %w}
593
593
@@ -1260,7 +1260,7 b' proc drawtags {id x xt y1} {'
1260 } else {
1260 } else {
1261 # draw a head or other ref
1261 # draw a head or other ref
1262 if {[incr nheads -1] >= 0} {
1262 if {[incr nheads -1] >= 0} {
1263 set col green
1263 set col "#00ff00"
1264 } else {
1264 } else {
1265 set col "#ddddff"
1265 set col "#ddddff"
1266 }
1266 }
General Comments 0
You need to be logged in to leave comments. Login now