wm title . "Scrolledcanvas Example"

##=========================================================
##	Create scrolledcanvas iwidget
##=========================================================
##
iwidgets::scrolledcanvas .sc \
	-textbackground gray \
	-width 300 \
	-height 300 \
	-vscrollmode dynamic \
	-hscrollmode dynamic \
	-labeltext "Scrolledcanvas Example"

.sc create rectangle 100 100 200 200 -fill red
.sc create rectangle 300 300 400 400 -fill green
.sc create rectangle 200 200 300 300 -fill blue

pack .sc \
	-padx 10 \
	-pady 10