home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 2 / AACD 2.iso / AACD / Magazine / ActiveShareware / PureBasic_Demo / Examples / Sources / Menu.pb < prev    next >
Encoding:
Text File  |  1999-09-12  |  1.7 KB  |  82 lines
  1. ;
  2. ; *********************************
  3. ;
  4. ; Menus example file for Pure Basic
  5. ;
  6. ;   © 1999 - Fantaisie Software -
  7. ;
  8. ; *********************************
  9. ;
  10. ;
  11.  
  12. InitScreen  (0)    ; We need 1 screen
  13. InitWindow  (0)    ; 1 window
  14. InitTagList (10)   ; a taglist upto 11 tags
  15. InitMenu    (0,30) ; 1 menu with maximum 30 items
  16.  
  17. FindScreen (0,"")  ; Find the default screen
  18.  
  19. ShowScreen()       ; Bring it to front of the display
  20.  
  21. ;
  22. ; Here are all our menus strings...
  23. ;
  24.  
  25. Title1.s = "Project"
  26. Item1.s  = "Open..."  : Short1.s = ""
  27. Item2.s  = "Brush"    : Short2.s = "B"
  28. Item3.s  = "Picture"  : Short3.s = "P"
  29. Item4.s  = "Sound"    : Short4.s = "L"
  30.  
  31.  
  32. Item14.s  = "Save As..."  : Short14.s = "S"
  33.  
  34. Item5.s  = "Compression"  : Short5.s = "C"
  35. Item6.s  = "FORM/IFF"     : Short6.s = "I"
  36. Item7.s  = "Datatype"     : Short7.s = "D"
  37. Item8.s  = "Binary"       : Short8.s = "B"
  38.  
  39. Item13.s  = "Quit"    : Short13.s = "Q"
  40.  
  41. Title2.s = "Option"
  42. Item9.s  = "Configure..." : Short9.s = ""
  43.  
  44. ;
  45. ; Build the menus (note the indentation which is important)
  46. ;
  47.  
  48. MenuTitle(Title1)
  49.  
  50.   MenuItem( 1, Item1, 0)
  51.     MenuSubItem( 2, Item2, Short2)
  52.     MenuSubCheckItem( 3, Item3, Short3, 1)
  53.     MenuSubBar()
  54.     MenuSubItem( 4, Item4, Short4)
  55.  
  56.   MenuItem( 14, Item14, Short14)
  57.   MenuCheckItem( 5, Item5, Short5, 1)
  58.  
  59. CreateMenu(0, ScreenID())  ; Create our menu
  60.  
  61. WinTitle.s = "Menu example"
  62.  
  63. ResetTagList (#WA_Title, WinTitle)
  64.      AddTag (#WA_SmartRefresh,1)
  65.      AddTag (#WA_CustomScreen, ScreenID())
  66.      AddTag (#WA_NewLookMenus, 1)
  67.  
  68. If OpenWindow(0, 100, 40, 480, 200, #WFLG_CLOSEGADGET | #WFLG_DRAGBAR | #WFLG_DEPTHGADGET | #WFLG_ACTIVATE, TagListID())
  69.  
  70.   AttachMenu(0,WindowID())  ; Attach our menu to the opened window
  71.  
  72.   Repeat
  73.     VWait()
  74.     IDCMP.l = WindowEvent()
  75.  
  76.   Until IDCMP = #IDCMP_CLOSEWINDOW
  77.  
  78. EndIf
  79.  
  80. End
  81.  
  82.