CanvasBox sample





source ../../oo.tcl

@import core.*
@import gui.*

wm geometry . "300x200"

set box [[CanvasBox new] show] 
$box label: "This is a CanvasBox widget"

set c [$box canvas]

#- creating squarres
set size 10
set offset 2
for {set row 0} {$row < 50} {incr row} {
  for {set col 0} {$col < 50} {incr col} {
    set x0 [expr $row * ($size + $offset)]
    set y0 [expr $col * ($size + $offset)]
    set x1 [expr $x0 + $size]
    set y1 [expr $y0 + $size]
    $c create rect $x0 $y0 $x1 $y1 -fill white -outline black -width 1
  }
}