set m [frame .main]
frame $m.button
button $m.button.quit -text "Quit" -command {exit}
set f [frame $m.view]
set c $f.canvas
scrollbar $f.scry -orient vertical   -command [list $c yview]
scrollbar $f.scrx -orient horizontal -command [list $c xview]
canvas $c  -width 5c  -height 5c  -relief sunken  -borderwidth 1 \
	-yscrollcommand [list $f.scry set] \
	-xscrollcommand [list $f.scrx set]
grid rowconfig $f 0 -weight 1 -minsize 0
grid columnconfig $f 1 -weight 1 -minsize 0
grid $f.scry $c -sticky news
grid x $f.scrx -sticky news

pack $m.button.quit -side left -fill both
pack $m.button -fill both -side top
pack $f -side bottom -fill both -expand y
pack $m -expand y -fill both

label $c.label -text "Label"
entry $c.entry

$c create window 0 0 -window $c.label
$c create window 5c 5c -window $c.entry

$c config -scrollregion [$c bbox all]
