--- a/ExtendedComboBox.st	Tue Nov 03 13:12:19 2009 +0100
+++ b/ExtendedComboBox.st	Tue Nov 03 14:55:06 2009 +0100
@@ -886,9 +886,19 @@
 processEvent:anEvent
     |evView button point x y|
 
+    anEvent isKeyPressEvent ifTrue:[
+        anEvent key == #Escape ifTrue:[
+            (menuWrapper notNil and:[menuWrapper realized]) ifTrue:[
+                self closeMenu.
+                ^ true.
+            ]
+        ]
+    ].
+
     anEvent isButtonPressEvent ifFalse:[
         ^ false
     ].
+
     button := anEvent state.
     ((button == 1) or:[button == #select]) ifFalse:[
         ^ false
@@ -1533,9 +1543,9 @@
 !ExtendedComboBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ExtendedComboBox.st,v 1.63 2009-11-02 14:39:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ExtendedComboBox.st,v 1.64 2009-11-03 13:55:06 fm Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/ExtendedComboBox.st,v 1.63 2009-11-02 14:39:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ExtendedComboBox.st,v 1.64 2009-11-03 13:55:06 fm Exp $'
 ! !