##// 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 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