package require chesschart
set demo [chesschart .chart -background white]
pack $demo -side top -fill both -expand true
$demo rect C5 -text "Chesschart" -width 140 -height 60 -color beige 
$demo oval A3 -text A3 -color salmon
$demo oval A1 -text A1 -color salmon
$demo oval B2 -text B2 -color grey80
$demo oval C2 -text C2 -color grey80
$demo oval D3 -text D3 -color grey80
$demo oval D1 -text D1 -color "light blue"
$demo arrow A3 B2 -width 5
$demo arrow A1 B2 -width 5
$demo arrow B2 C2 -width 5
$demo arrow C2 D3 -width 5
$demo arrow C2 D1 -width 5
$demo arrow D3 D1 -width 5
$demo line C5 A3
# standard canvas commands still work
$demo move all -20 -400