PB 5.60 PanelGadget inner dimension wrong

[uwekel]

Hi,

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

Regards
Uwe