# 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
foreach b {alpha beta gamma} {
	button .one.$b -text $b
	pack .one.$b -side left
}
pack .one .two -side top
