I'm sure it's a silly mistake, but I can't figure it out right now. If I have a TextArea-Gadget, why can't I read out the content
Strict
Local window:TGadget
Local textarea:TGadget
window=CreateWindow("My Window",130,20,200,200,,15|WINDOW_ACCEPTFILES)
textarea=CreateTextArea(0,0,ClientWidth(window),ClientHeight(window)/2,window)
SetGadgetLayout textarea,1,1,1,1
SetGadgetText textarea,"a textarea gadget~none line~nandanother"
While WaitEvent()
Print GadgetText(textarea)
Select EventID()
Case EVENT_WINDOWCLOSE
End
Case EVENT_APPTERMINATE
End
End Select
Wend
If I type something in it, GadgetText() always returns the orginal (old) content !???
|