Mercurial > hg
comparison contrib/hgk @ 17960:d0d99c8bdf51
hgk: specify some colours explicitly in hex
Tk 8.6b3 uses web colours, where green is defined as #008000, not #00ff00, and grey
is #c0c0c0, not #808080, so specify those colours explicitly.
author | Andrew Shadura <bugzilla@tut.by> |
---|---|
date | Wed, 07 Nov 2012 14:49:44 +0100 |
parents | 0f93bbe8deb7 |
children | 7365d031d457 |
comparison
equal
deleted
inserted
replaced
17959:542d133ea0a3 | 17960:d0d99c8bdf51 |
---|---|
577 pack .ctop.top.clist -side top -fill both -expand 1 | 577 pack .ctop.top.clist -side top -fill both -expand 1 |
578 .ctop add .ctop.top | 578 .ctop add .ctop.top |
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 |
594 set sha1entry .ctop.top.bar.sha1 | 594 set sha1entry .ctop.top.bar.sha1 |
595 set entries $sha1entry | 595 set entries $sha1entry |
1258 $canv create polygon $x $yt $xr $yt $xr $yb $x $yb \ | 1258 $canv create polygon $x $yt $xr $yt $xr $yb $x $yb \ |
1259 -width 1 -outline black -fill $col -tags tag.$id | 1259 -width 1 -outline black -fill $col -tags tag.$id |
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 } |
1267 set xl [expr $xl - $delta/2] | 1267 set xl [expr $xl - $delta/2] |
1268 $canv create polygon $x $yt $xr $yt $xr $yb $x $yb \ | 1268 $canv create polygon $x $yt $xr $yt $xr $yb $x $yb \ |