Code: Select all
OpenWindow(0,0,0,400,300,"shortcut test",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
AddKeyboardShortcut(0,#PB_Shortcut_Command|#PB_Shortcut_F,0)
Repeat
ev = WaitWindowEvent()
If ev = #PB_Event_Menu And EventMenu() = 0
Debug "shortcut"
EndIf
Until ev = #PB_Event_CloseWindow
I'm sure this is something minor and can be easily fixed, but have no idea where to look, can someone help?