#!/usr/local/lang/tk/bin/wish -f

menubutton .b -text oke -menu .b.menu
menu .b.menu 
.b.menu add command -label one -command {puts stdout 1}
.b.menu add command -label two -command {puts stdout 1}

pack append . .b top

