Code: Select all
If OpenWindow(0, 0, 0, 220, 250, "Canvas container example", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
CanvasGadget(0, 10, 10, 200, 240, #PB_Canvas_Container)
ButtonGadget(1, 10, 10, 80, 30, "Clean up")
CloseGadgetList()
ResizeGadget(0, #PB_Ignore, #PB_Ignore, 190, 200)
Repeat
Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow
EndIf