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"

You are viewing proxied material from gopher.rbfh.de. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.