Please add EventGadget() support for more gadgets
Posted: Fri Sep 27, 2019 5:26 pm
It didn't occur to me until today when I tried to use #PB_EventType_RightClick with an ImageButtonGadget() that I realized that this isn't supported. While #PB_EventType_LeftClick does seem to work for both ButtonGadget() and ImageButtonGadget(), it's not listed as supported in either the gadget documentation or for EventGadget().
Code: Select all
OpenWindow(#PB_Any,0,0,130,70,"",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
GadgetButton=ButtonGadget(#PB_Any,38,10,48,48,"")
Repeat
Event=WaitWindowEvent()
Select Event
Case #PB_Event_Gadget
If EventGadget()=GadgetButton
Select EventType()
Case #PB_EventType_LeftClick
Debug "Click with left mouse button"
Case #PB_EventType_RightClick
Debug "Click with right mouse button"
Case #PB_EventType_LeftDoubleClick
Debug "Double-click with left mouse button"
Case #PB_EventType_RightDoubleClick
Debug "Double-click with right mouse button"
EndSelect
EndIf
EndSelect
Until Event=#PB_Event_CloseWindow