GUI Sample Code

also a very simple example:

Strict

OnEnd VerifyQuit

Global MainWindow:TGadget = CreateWindow("Test", (Desktop().Width/2)-200,(Desktop().Height/2)-200,400,400)
Global TextField1:TGadget = CreateTextField(10,10,120,24,MainWindow)
	ActivateGadget(TextField1)
	SetGadgetFilter(TextField1, TextField1Filter)

Main()

End


Function Main()

While True
	WaitEvent()
	
	Select EventID()
		Case EVENT_WINDOWCLOSE
			End
	End Select

Wend

End Function


Function VerifyQuit()
	If Proceed("Are you sure you want to quit?")<> 1 Then 
		OnEnd VerifyQuit
		main()
	EndIf
End Function


Function TextField1Filter(Event:TEvent, Context:Object)
	Select event.id
		Case EVENT_KEYDOWN
			Print "Keydown detected"
	End Select
	Return 1
End Function