Tabber Freeze on win32

[thareh]

Hi, I came across a weird bug that makes the program freeze on Windows.

SuperStrict

Framework BRL.StandardIO
Import MaxGUI.Drivers
Import BRL.EventQueue

Local Window:TGadget = CreateWindow("Test", 0, 0, 1280, 768, Null, WINDOW_TITLEBAR | WINDOW_RESIZABLE | WINDOW_STATUS | WINDOW_ACCEPTFILES | WINDOW_MENU)

Local Tabber:TGadget = CreateTabber(0, 0, ClientWidth(Window), ClientHeight(Window), Window)

AddGadgetItem(Tabber, "foo", 0, 0)
AddGadgetItem(Tabber, "bar", 0, 1)

Local Panels:TGadget[2]
Panels[0] = CreatePanel(0, 0, ClientWidth(Tabber), ClientHeight(Tabber), Tabber)
CreateHTMLView(0, 0, ClientWidth(Panels[0]), ClientHeight(Panels[0]), Panels[0])
HideGadget(Panels[0])

Panels[1] = CreatePanel(0, 0, ClientWidth(Tabber), ClientHeight(Tabber), Tabber)
CreateTextArea(0, 0, ClientWidth(Panels[1]), ClientHeight(Panels[1]), Panels[1])
HideGadget(Panels[1])

Repeat

    WaitEvent()

    Print CurrentEvent.ToString()

    Select EventID()
        Case EVENT_WINDOWCLOSE
            End

        Case EVENT_GADGETACTION
            ShowGadget(Panels[EventData()])
    EndSelect

Forever

Click on the second tab and then press the tab key and the program freezes.

[thareh]

(Happens in vanilla BlitzMax as well)

[woollybah]

Well, if it happens with the original, it must be a feature, not a bug :)

[GWRon]

Shouldn't a run in GDB show the endless running loop?