Code: Select all
OpenWindow(0, 100, 100, 300, 200, "Test")
ScrollBarGadget(0, 10, 10, 200, 20, 0, 100, 10)
ProcedureC WindowCallback(Event, Window, Gadget, EventType)
Debug "WindowCallback()"
EndProcedure
SetWindowCallback(@WindowCallback(), 0)
Repeat
Select WaitWindowEvent()
Case #PB_Event_Gadget
Select EventGadget()
Case 0
Debug "ScrollBar Event"
EndSelect
Case #PB_Event_CloseWindow
Break
EndSelect
ForEver



