In PureBasic this phenomenon does not occur.
------------
SpiderBasic vs. PureBasic
This snippet demostrates the bug:
Code: Select all
Procedure WindowSized()
ResizeGadget(1, #PB_Ignore, #PB_Ignore, #PB_Ignore, WindowHeight(0) - 60)
EndProcedure
If OpenWindow(0, 0, 0, 320, 270, "FrameGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_SizeGadget)
ButtonGadget(0, 10, 10, 300, 38, ".")
ButtonGadget(1, 10, 50, 300, 210, "This is a Button")
BindEvent(#PB_Event_SizeWindow, @WindowSized())
CompilerIf #PB_Compiler_OS <> #PB_OS_Web
; In PureBasic we need an event loop
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow
CompilerEndIf
EndIf
Markus