; www.PureArea.net ; Author: Andre Beer / PureBasic Team ; Date: 25. May 2003 ; OS: Windows, Linux ; Demo: Yes If OpenWindow(0, 200, 200, 200, 100, #PB_Window_SystemMenu, "MenuItem Example") If CreateMenu(0, WindowID()) MenuTitle("Project") MenuItem(1, "Open") ; normal item MenuItem(2, "&Save") ; item with underscore, the underscore will only be ; displayed, if menu is called with F10 + arrow keys MenuItem(3, "Quit"+Chr(9)+"Esc") ; item with separate shortcut text EndIf Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow EndIf ; ExecutableFormat=Windows ; FirstLine=1 ; EnableXP ; EOF