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 \ |