why the shortcuts Alt+Prior and Alt+Next don't work ?
Code: Select all
If OpenWindow(0, 0, 0, 322, 205, "Test raccourcis Alt+Prior", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
StringGadget(0, 8, 10, 306, 20, "")
SetActiveGadget( 0)
AddKeyboardShortcut(0, #PB_Shortcut_Alt + #PB_Shortcut_Prior, 1 )
AddKeyboardShortcut(0, #PB_Shortcut_Alt + #PB_Shortcut_Home, 2 )
Repeat
EV = WaitWindowEvent()
If ev = #PB_Event_Menu
Select EventMenu()
Case 1
SetGadgetText( 0, "Prior" )
Case 2
SetGadgetText( 0, "Home")
EndSelect
EndIf
Until EV = #PB_Event_CloseWindow
EndIf