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
|