Show More
@@ -356,15 +356,15 b' proc makewindow {} {' | |||||
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 |
General Comments 0
You need to be logged in to leave comments.
Login now