# Tkexample chapter
# You could reuse this skeleton for many apps
proc SimpleTkApp1 { name } {
    . config -bg black
    frame .buttons -borderwidth 4 -relief ridge -bg white
    pack .buttons -side top -fill x
    button .buttons.quit -text Quit -command exit -bg pink
    pack .buttons.quit -side left
    frame .body -width 120 -height 40 -bg yellow
    pack .body -side top
    wm title . $name
    wm minsize . 30 30
}
