labelframe .lf -text "Labelframe" \
    -font {rotissemisans  24 bold} 
pack .lf -expand true -fill both \
    -padx 4 -pady 4 


panedwindow .lf.pw -orient horizontal
pack .lf.pw  -expand true -fill both \
    -padx 4 -pady 4    

set lb [listbox .lf.pw.lb -bg white -selectbackground SkyBlue1 \
	    -font {rotissans 15 bold}
       ]
$lb insert end Montag Dienstag Mittwoch Donnerstag Freitag Sonnabend Sonntag

button .lf.pw.b -bg SkyBlue1 \
    -bitmap questhead 

labelframe .lf.pw.lfc -labelwidget .lf.pw.b \
    -labelanchor se 

label .lf.pw.ne -text "Noch eines" \
    -font {rotissans 15 bold}

.lf.pw add $lb .lf.pw.lfc .lf.pw.ne

wm title . "PanedWindow und LabelFrame"