#!/home/bwelch/bin/wish -f
# Tkexample chapter
proc protoapp { name } {
    frame .buttons
    frame .fields
    frame .feedback
    pack .buttons .fields .feedback -side top -fill x
    button .buttons.quit -text Quit -command exit
    pack .buttons.quit -side right

    wm minsize . 10 10
    wm title . $name
}
