home *** CD-ROM | disk | FTP | other *** search
/ PC User 2001 August / APC_Aug2001_CD2.iso / features / devtools / files / lb202win.exe / LB202W.EXE / POPMENU2.BAS < prev    next >
Encoding:
BASIC Source File  |  2000-12-06  |  539 b   |  24 lines
  1.  
  2.     'show how to use a popupmenu
  3.     open "Popup Menu Example" for graphics as #main
  4.     print #main, "down ; place 10 30"
  5.     print #main, "\right click anywhere in this\window to pop up a menu."
  6.     print #main, "trapclose [quit]"
  7.     print #main, "when rightButtonUp [popupMenu]"
  8.  
  9.     'wait here for input
  10.     wait
  11.  
  12. [popupMenu]
  13.  
  14.     popupMenu "I will", [doNothing], "pop up where", [doNothing], "the mouse is", [doNothing]
  15.     wait
  16.  
  17. [doNothing]
  18.     wait
  19.  
  20. [quit]
  21.     notice "quitting now"
  22.     close #main
  23.     end
  24.