Is this what you're after :
SuperStrict
Import maxgui.drivers 'If you use the SVN version of MaxGUI. Comment it out if you don't
Local MyWindow:TGadget=CreateWindow("TextField Example", 200,200,320,240)
Local Label0:TGadget=CreateLabel("Number:",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)
Repeat
WaitEvent()
Select EventID()
Case EVENT_WINDOWCLOSE
End
Case EVENT_GADGETACTION
Local textin:String=TextFieldText(MyInput)
Local int_text:Int=Int(textin)
SetGadgetText(Label1,"You have keyed in:"+ int_text)
End Select
Forever
|