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