#!/afs/sipb/project/tcl/wish -f

canvas .c -background gray70 -height 300 -width 300
pack .c