Code: Select all
Enumeration
#window
#button1
EndEnumeration
Procedure button_pressed()
Debug GetActiveGadget
EndProcedure
OpenWindow(#window,10,10,200,200,"TEST")
ButtonGadget(#button1,20,20,30,20,"GO")
BindGadgetEvent(#button1,@button_pressed(),#PB_EventType_LeftClick)
Thanks,
Phil