wm title . "Scrolledwidget Example"

##=========================================================
##	Create a Scrolledwidget Example"
##=========================================================
##
iwidgets::scrolledwidget .sw \
  -width 200 \
  -height 200 \
  -hscrollmode static \
  -vscrollmode static

grid .sw 

set cs [.sw childsite]

set cs .sw

frame $cs.fm \
  -relief groove \
  -bd 4

grid $cs.fm \
  -row 0 \
  -column 0

text $cs.fm.text \
	-setgrid 1

pack $cs.fm.text \
  -expand true \
  -fill both

grid columnconfigure $cs.fm 0 -weight 1
grid rowconfigure $cs.fm 0 -weight 1