Create a row of buttons, each with a different kind of border relief
% frame .f -borderwidth 10
% foreach style {raised sunken flat ridge groove} {
label .f.$style -text $style -relief $style -bd 4
pack .f.$style -side left -padx 4
This time we tell the pack command to pack the buttons to the
lefthand side, one after the other, and to put 4 units of padding
around each one, in the horizontal (x) direction