354 pack .ctop.top.clist -side top -fill both -expand 1 |
354 pack .ctop.top.clist -side top -fill both -expand 1 |
355 .ctop add .ctop.top |
355 .ctop add .ctop.top |
356 set canv .ctop.top.clist.canv |
356 set canv .ctop.top.clist.canv |
357 canvas $canv -height $geometry(canvh) -width $geometry(canv1) \ |
357 canvas $canv -height $geometry(canvh) -width $geometry(canv1) \ |
358 -bg white -bd 0 \ |
358 -bg white -bd 0 \ |
359 -yscrollincr $linespc -yscrollcommand "$cscroll set" |
359 -yscrollincr $linespc -yscrollcommand "$cscroll set" -selectbackground grey |
360 .ctop.top.clist add $canv |
360 .ctop.top.clist add $canv |
361 set canv2 .ctop.top.clist.canv2 |
361 set canv2 .ctop.top.clist.canv2 |
362 canvas $canv2 -height $geometry(canvh) -width $geometry(canv2) \ |
362 canvas $canv2 -height $geometry(canvh) -width $geometry(canv2) \ |
363 -bg white -bd 0 -yscrollincr $linespc |
363 -bg white -bd 0 -yscrollincr $linespc -selectbackground grey |
364 .ctop.top.clist add $canv2 |
364 .ctop.top.clist add $canv2 |
365 set canv3 .ctop.top.clist.canv3 |
365 set canv3 .ctop.top.clist.canv3 |
366 canvas $canv3 -height $geometry(canvh) -width $geometry(canv3) \ |
366 canvas $canv3 -height $geometry(canvh) -width $geometry(canv3) \ |
367 -bg white -bd 0 -yscrollincr $linespc |
367 -bg white -bd 0 -yscrollincr $linespc -selectbackground grey |
368 .ctop.top.clist add $canv3 |
368 .ctop.top.clist add $canv3 |
369 bind .ctop.top.clist <Configure> {resizeclistpanes %W %w} |
369 bind .ctop.top.clist <Configure> {resizeclistpanes %W %w} |
370 |
370 |
371 set sha1entry .ctop.top.bar.sha1 |
371 set sha1entry .ctop.top.bar.sha1 |
372 set entries $sha1entry |
372 set entries $sha1entry |