SuperStrict Local MyWindow:TGadget=CreateWindow("TextField Example", 200,200,320,240) Local Label0:TGadget=CreateLabel("Pls enter your name:",10,10,100,20,MyWindow) Local Label1:TGadget=CreateLabel("You have keyed in:",10,40,200,40,MyWindow) Local MyInput:TGadget=CreateTextField(110,10,180,20,MyWindow) SetGadgetText(myinput,"Hello World") Repeat WaitEvent() Select EventID() Case EVENT_WINDOWCLOSE End Case EVENT_GADGETACTION Select EventSource() Case myinput SetStatusText(mywindow , "Myinput changed") End Select End Select Forever