# Packer chapter
# Make the main window black
. config -bg black
# Create and pack two frames
frame .one -bg white
frame .two -width 100 -height 50 -bg grey50
# Create a row of buttons with some internal padding
foreach b {alpha beta} {
	button .one.$b -text $b
	pack .one.$b -side left -ipady 5
}
# Creat a frame for two more buttons
frame .one.right
foreach b {delta epsilon} {
	button .one.right.$b -text $b
	pack .one.right.$b -side bottom
}
pack .one.right -side right
# Give this frame some internal padding
pack .one -side top -ipady 10
pack .two -side top
