button .ok -text OK -command ok
button .apply -text Apply -command apply

frame .c
checkbutton .c.bold -text Bold -var bold -anchor w
checkbutton .c.italic -text Italic -var italic -anchor w
checkbutton .c.underline -text Underline -var underline -anchor w
pack .c.bold .c.italic .c.underline -side top -fill x

frame .f
radiobutton .times -text Times -variable font -value times -anchor w
radiobutton .helvetica -text Helvetica -variable font -value helvetica -anchor w
radiobutton .courier -text Courier -variable font -value courier -anchor w
pack .times .helvetica .courier -side top -fill x -in .f

pack .ok .apply .c .f -side left