
Otherwise you have to wait for a mouse movement to see if a modifier has been released.
Code: Select all
Enumeration
#Window
#Gadget
EndEnumeration
OpenWindow(#Window, 0, 0, 800, 600, "WindowTitle", #PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
CanvasGadget(#Gadget, 0, 0, WindowWidth(#Window), WindowHeight(#Window), #PB_Canvas_Keyboard)
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
End
Case #PB_Event_Gadget
Select EventGadget()
Case #Gadget
Select EventType()
Case #PB_EventType_KeyDown
Debug GetGadgetAttribute(#Gadget, #PB_Canvas_Modifiers)
Case #PB_EventType_KeyUp
Debug GetGadgetAttribute(#Gadget, #PB_Canvas_Modifiers)
EndSelect
EndSelect
EndSelect
ForEver