;
; ------------------------------------------------------------
;
;   SpiderBasic - Menu example file
;
;    (c) Fantaisie Software
;
; ------------------------------------------------------------
;

Procedure MenuEvents()
  
  Select EventMenu()  ; To see which menu has been selected

    Case 11 ; About
      Debug "About"
      
    Default
      Debug "MenuItem: "+EventMenu()

  EndSelect

EndProcedure


;
; We just have to open a window and see when an event happen on the menu
;
If OpenWindow(0, 100, 150, 195, 260, "Menu example", #PB_Window_TitleBar)
  
  CreateImage(0, 16, 16, 32, RGB(255, 0, 0))
  
  ;
  ; Create the menu. The indent is important here for a good lisibility
  ;
  If CreateMenu(0, WindowID(0))
    MenuTitle("File")
      MenuItem( 1, "Load...", ImageID(0))
      MenuItem( 2, "Save")
      MenuItem( 3, "Save As...")
      MenuBar()
      OpenSubMenu("Recents", ImageID(0))
        MenuItem( 5, "Spider.png")
        MenuItem( 6, "Basic.jpg")
        OpenSubMenu("Even more !")
          MenuItem( 12, "Yeah")
        CloseSubMenu()
        MenuItem( 13, "Rocks.tga")
      CloseSubMenu()
      MenuBar()
      MenuItem( 7, "Quit")

    MenuTitle("Edition")
      MenuItem( 8, "Cut")
      MenuItem( 9, "Copy")
      MenuItem(10, "Paste")
      
    MenuTitle("?")
      MenuItem(11, "About")

  EndIf
  
  DisableMenuItem(0, 1, 1)
  DisableMenuItem(0, 3, 1)
  DisableMenuItem(0, 13, 1)
  
  BindEvent(#PB_Event_Menu, @MenuEvents())
EndIf