set cvs [canvas .c -width 500 -height 500]
grid $cvs -row 1 -column 1

button .b -text Quit -command exit
grid .b -row 2 -column 1

set im1 [image create photo -file mandala.gif]
$cvs create image 0 0 -image $im1 -anchor nw