Or use this full 24bit 5.1 audio, 32bit gfx, athlon hammer, multiduplex, single threading, and uncomplete ..: RequestInput!
; request input - CS^TBL
;
; and for the highlighting decls: RequestInput$(s$,x,y,width,height,def$)
StupidWindow=CreateWindow("o_O",0,0,320,240)
StupidButton=CreateButton("O_o",16,16,64,24,StupidWindow)
Repeat
WaitEvent()
If EventID()=$803 quit=True
If EventID()=$401
StupidCrap$=RequestInput$("what's up Doc?",64,64,160,48,"ooooohh... you wabbit!")
EndIf
Until quit
Notify StupidCrap$
End
Function RequestInput$(q$,x,y,w,h,def$="")
FlushEvents()
requestwindow=CreateWindow(q$,x,y,w,h,0,1)
txtfield=CreateTextField(2,2,ClientWidth(requestwindow)-4,ClientHeight(requestwindow)-4,requestwindow)
If def$<>"" SetGadgetText txtfield,def$
Repeat
WaitEvent()
If EventID()=$803
If EventSource()=requestwindow
localquit=True
txt$=def$
EndIf
EndIf
If EventID()=$401
If EventData()=13
localquit=True
txt$=TextFieldText$(txtfield)
EndIf
; If EventData()=27 ; [esc] doesn't work orso .. any suggestions? :)
; localquit=True
; txt$=def$
; EndIf
EndIf
Until localquit
FreeGadget requestwindow
FlushEvents()
Return txt$
End Function
| 
