- Code: Select all
Procedure Callback()
Debug "Callback() : " + EventType()
EndProcedure
OpenWindow(0, 100, 100, 300, 300, "Events Test")
BindEvent(#PB_Event_Gadget, @Callback())
ContainerGadget(0, 10, 10, 100, 100, #PB_Container_Flat)
CloseGadgetList()