Code: Select all
If OpenWindow(0, 0, 0, 322, 150, "ResizeGadgets")
PanelGadget(0, 8, 8, 306, 133)
CloseGadgetList()
ContainerGadget(1, 8, 8, 306, 133, #PB_Container_Raised)
CloseGadgetList()
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Gadget
Select EventGadget()
Case 0
Select EventType()
Case #PB_EventType_Resize
Debug "Resize 0"
EndSelect
Case 1
Select EventType()
Case #PB_EventType_Resize
Debug "Resize 1"
EndSelect
EndSelect
EndSelect
Until Event = #PB_Event_CloseWindow
EndIf