[esc] in a textfield

Parent = CreateWindow("Escape", ClientWidth(Desktop())/2-90, ClientHeight(Desktop())/2-42, 180, 133, 0, 1)
Text1 = CreateTextField(5, 5, 163, 20, Parent, 0)
ActivateGadget Text1
in_Text = 1

HotKeyEvent 1, 0, $101, 15, 0, 0, 0, 0

Repeat
Select WaitEvent()
	Case $803
	End
	
	Case $101
	Select EventData()
		Case 15
		Notify "You pressed escape"

	End Select
.StepOut
End Select

Forever