+ set canv .ctop.clist.canv
+ set cscroll .ctop.clist.dates.csb
+ canvas $canv -height [expr 30 * $linespc + 4] -width [expr 45 * $charspc] \
+ -bg white -bd 0 \
+ -yscrollincr $linespc -yscrollcommand "$cscroll set"
+ .ctop.clist add $canv
+ set canv2 .ctop.clist.canv2
+ canvas $canv2 -height [expr 30 * $linespc +4] -width [expr 30 * $charspc] \
+ -bg white -bd 0 -yscrollincr $linespc
+ .ctop.clist add $canv2
+ frame .ctop.clist.dates
+ .ctop.clist add .ctop.clist.dates
+ set canv3 .ctop.clist.dates.canv3
+ canvas $canv3 -height [expr 30 * $linespc +4] -width [expr 15 * $charspc] \
+ -bg white -bd 0 -yscrollincr $linespc
+ scrollbar $cscroll -command {allcanvs yview} -highlightthickness 0
+ pack .ctop.clist.dates.csb -side right -fill y
+ pack $canv3 -side left -fill both -expand 1
+