Code: Select all
Enumeration
#window
#button1
EndEnumeration
Procedure button_pressed()
Debug "Pressed"
EndProcedure
OpenWindow(#window,10,10,200,200,"TEST")
ButtonGadget(#button1,20,20,30,20,"GO")
BindGadgetEvent(#button1,@button_pressed,#PB_EventType_LeftClick)
This should produce a compiler error or warning
Thanks,
Phil