
    'show how to use a popupmenu
    open "Popup Menu Example" for graphics as #main
    print #main, "down ; place 10 30"
    print #main, "\right click anywhere in this\window to pop up a menu."
    print #main, "trapclose [quit]"
    print #main, "when rightButtonUp [popupMenu]"

    'wait here for input
    wait

[popupMenu]

    popupMenu "I will", [doNothing], "pop up where", [doNothing], "the mouse is", [doNothing]
    wait

[doNothing]
    wait

[quit]
    notice "quitting now"
    close #main
    end
