Code: Select all
OpenWindow(1, 0, 0, 500, 500, "")
CreateGadgetList(WindowID(1))
CreateImage(1, 500, 500)
CreateImage(2, 100, 100)
StartDrawing(ImageOutput(2))
Box(0, 0, 100, 100, RGB(255, 0, 255))
StopDrawing()
ImageGadget(1, 0, 0, 500, 500, ImageID(1))
ButtonImageGadget(2, 0, 0, 100, 100, ImageID(2))
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow