PureBasic Forums - English

Code: Select all

Global mainWindow

Enumeration MenuItems
  #menuItem1
  #menuItem2
EndEnumeration


Procedure main()
  mainWindow = OpenWindow(#PB_Any, 0, 0, 450, 160, "", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  
  If CreateMenu(0, WindowID(mainWindow))    ;-Menüs...
    MenuItem(#PB_Menu_About, "About")
    MenuItem(#PB_Menu_Preferences, "Preferences")
    
    MenuTitle("myMenu")
    MenuItem(#menuItem1, "Open"  +#TAB$+"Cmd+O")
    MenuItem(#menuItem2, "Save"  +#TAB$+"Cmd+S")
  EndIf
  
EndProcedure


Procedure windowEvents(event)
  Select event
    Case #PB_Event_CloseWindow
      ProcedureReturn #False
      
    Case #PB_Event_Menu
      Select EventMenu()
        Case #PB_Menu_About
          Debug "About"
          
        Case #PB_Menu_Preferences
          Debug "Preferences"
          
        Case #menuItem1
          Debug "Open"
        Case #menuItem2
          Debug "Save"
          
          
        Case #PB_Menu_Quit
          ProcedureReturn #False
      EndSelect
      
    Case #PB_Event_Gadget
      Select EventGadget()
          
          
      EndSelect
  EndSelect
  ProcedureReturn #True
EndProcedure



main()

Repeat
  event = WaitWindowEvent()
Until windowEvents(event) = #False

Code: Select all

Procedure CallbackQuit()
  CloseWindow(#PB_All)
  Quit = 1
EndProcedure
CompilerIf #PB_Compiler_OS = #PB_OS_MacOS
  BindMenuEvent(0, #PB_Menu_Quit, @CallbackQuit())
CompilerEndIf