Const EVENT_GADGET_ACTION=$401
Const EVENT_WINDOW_CLOSE=$803

window=CreateWindow("Window and button",120,100,440,260,0,15)
SetMinWindowSize window,320,180
message=CreateLabel("Native controls post events to Blitz code.",20,24,380,28,window,2)
button=CreateButton("Click me",20,70,120,32,window,1)

running=True
While running
    eventID=WaitEvent()
    If eventID=EVENT_WINDOW_CLOSE And EventSource()=window Then running=False
    If eventID=EVENT_GADGET_ACTION And EventSource()=button
        SetGadgetText message,"The button posted EVENT_GADGET_ACTION."
    EndIf
Wend

FreeGadget window
End