wm title . "Labeledframe Example"

##=========================================================
##	Create a Labeledframe iwidget
##
##	Note that this iwidget was intended
##	to be used as a base class iwidget,
##	not a general purpose iwidget that
##	is illustrated here.
##=========================================================
##
iwidgets::labeledframe .lf \
  -labelpos w \
  -labeltext "Labeledframe"

pack .lf \
  -fill both \
  -expand true


##
##	Need to get the childsite so that
##	we can properly pack other widgets
##	inside

set cs [.lf childsite]

##
##	Create an image and use the 
##	label widget to display it
##	inside the labeledframe
##
image create photo tcl -file ../tcl_logo_big.gif

label $cs.l \
  -image tcl
  
pack $cs.l \
  -fill both \
  -expand true \
  -padx 5 \
  -pady 5