package require Tk 8.4

#foreach pos {nw n ne en e es se s sw ws w  wn} {
#    labelframe .$pos -labelanchor $pos -text "Anchor $pos" 
#    frame .$pos.label -width 75 -height 75 
#    pack .$pos.label
#    
#}


set f [labelframe .nw -labelanchor nw -text "Anchor Nordwest" \
	   -relief groove  ]
frame $f.label -width 75 -height 75 
pack $f.label

set f [labelframe .n -labelanchor n -text "Anchor Nord" \
	   -relief sunken]
frame $f.label -width 75 -height 75 
pack $f.label


set f [labelframe .wn -labelanchor wn -text "Anchor Westnord" \
	   -relief ridge ]
frame $f.label -width 75 -height 75 
pack $f.label

set f [labelframe .w -labelanchor w -text "Anchor West" \
	   -relief raised ]
frame $f.label -width 75 -height 75 
pack $f.label


label .label -bg red -text "Beliebiges\nWidget"
labelframe .bsp  -labelwidget .label -labelanchor e

grid x .nw .n -sticky news -padx 5 -pady 5
grid .wn .bsp -  -sticky news -padx 5 -pady 5
grid .w ^ ^  -sticky news -padx 5 -pady 5

grid columnconfigure . 1 -weight 1
grid columnconfigure . 2 -weight 1

wm title . labelframe