the PanelGadgets inner dimensions are wrong before first resizing. Try this code and see:
Code: Select all
OpenWindow(0, 0, 0, 600, 500, "Test", #PB_Window_ScreenCentered | #PB_Window_SizeGadget)
PanelGadget(0, 0, 0, 600, 500)
AddGadgetItem(0, -1, "Page 1")
CloseGadgetList()
;the dimension are wrong (1x1)
w = GetGadgetAttribute(0, #PB_Panel_ItemWidth)
h = GetGadgetAttribute(0, #PB_Panel_ItemHeight)
Debug "Wrong: " + Str(w) + "x" + Str(h)
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Break
Case #PB_Event_SizeWindow
ResizeGadget(0, 0, 0, WindowWidth(0), WindowHeight(0))
Case #PB_Event_Gadget
Select EventGadget()
Case 0
If EventType() = #PB_EventType_Resize
;now the dimension are correct
w = GetGadgetAttribute(0, #PB_Panel_ItemWidth)
h = GetGadgetAttribute(0, #PB_Panel_ItemHeight)
Debug "Correct: " + Str(w) + "x" + Str(h)
EndIf
EndSelect
EndSelect
ForEver
Uwe