--- a/EditFieldWithCompletion.st	Thu Jan 17 11:40:57 2013 +0100
+++ b/EditFieldWithCompletion.st	Thu Jan 17 11:47:17 2013 +0100
@@ -196,6 +196,8 @@
 
 handlesKeyPress:key inView:aView
 
+    <resource: #keyboard (#CursorDown #CursorUp)>
+
     ^aView == optionsView and:
         [(#( #CursorDown #CursorUp ) includes: key) not].
 
@@ -235,8 +237,9 @@
 !
 
 keyPress:key x:x y:y 
+    "Forward certain events to optionsView if any"
 
-    "Forward certain events to optionsView if any"
+    <resource: #keyboard (#CursorDown #CursorUp #Accept #Return #Escape #BackSpace)>
     
     (optionsView notNil and:
         [(#( #CursorDown #CursorUp ) includes:key)]) 
@@ -399,9 +402,10 @@
 !EditFieldWithCompletion class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/EditFieldWithCompletion.st,v 1.5 2011-11-29 10:27:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/EditFieldWithCompletion.st,v 1.6 2013-01-17 10:47:17 cg Exp $'
 !
 
 version_SVN
     ^ '§Id: EditFieldWithCompletion.st 7662 2010-12-09 21:05:19Z vranyj1 §'
 ! !
+