From ffe3de3fb96721b10e7cb77ac8108a3e145cc1bc Mon Sep 17 00:00:00 2001
From: Ian C <ianc@noddybox.co.uk>
Date: Sun, 25 Sep 2005 23:53:43 +0000
Subject: Allow ESC to clear text boxes

---
 simplegui.mod/simplegui.bmx | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'simplegui.mod/simplegui.bmx')

diff --git a/simplegui.mod/simplegui.bmx b/simplegui.mod/simplegui.bmx
index 72d79f8..90eb595 100644
--- a/simplegui.mod/simplegui.bmx
+++ b/simplegui.mod/simplegui.bmx
@@ -270,7 +270,9 @@ Type TText Extends TWidget
 	End Method
 	
 	Method HandleKey(k:Int)
-		If k=8
+		If k=27
+			text=""
+		Else If k=8
 			If text.length>0
 				text=text[0..text.length-1]
 			EndIf
-- 
cgit v1.2.3