##// END OF EJS Templates
hgk: added -selectbackground grey to canvases
Bela Babik -
r4501:b2338c0c default
parent child Browse files
Show More
@@ -356,15 +356,15 b' proc makewindow {} {'
356 356 set canv .ctop.top.clist.canv
357 357 canvas $canv -height $geometry(canvh) -width $geometry(canv1) \
358 358 -bg white -bd 0 \
359 -yscrollincr $linespc -yscrollcommand "$cscroll set"
359 -yscrollincr $linespc -yscrollcommand "$cscroll set" -selectbackground grey
360 360 .ctop.top.clist add $canv
361 361 set canv2 .ctop.top.clist.canv2
362 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 364 .ctop.top.clist add $canv2
365 365 set canv3 .ctop.top.clist.canv3
366 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 368 .ctop.top.clist add $canv3
369 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