#!/usr/bin/wish
    menubutton .mb -text menu
    pack .mb
    menu .mb.menu
    .mb configure -menu .mb.menu
    .mb.menu add command -label {quit} -command {destroy .}
    .mb.menu add command -label {barf} -command {puts "barf"}
