# popup menu

proc popIt {event} {
    .fred.menu menuPosition $event
    .fred.menu manageChild
}

xtAppInitialize -class Program

xmLabel .fred managed -labelString "ctrl-p or Btn3Down popups from me"
.fred setValues -translations \
        "<Btn3Down>: action(popIt %event)"

xmPopupMenu .fred.menu -menuAccelerator "Ctrl <Key> p"
xmPushButton .fred.menu.btn1 managed
xmPushButton .fred.menu.btn2 managed

. realizeWidget

#.fred.menu manageChild

. mainLoop
