##=========================================================
##	Create a Shell iwidget
##=========================================================
##
iwidgets::shell .s \
  -title "Shell Example" \
  -background ghostwhite

set cs [.s childsite]

label $cs.lbl \
  -text "This is a Shell Example"

pack $cs.lbl \
  -fill both \
  -expand true

.s activate