--- a/EditFieldWithCompletion.st	Tue Jan 22 12:24:41 2013 +0000
+++ b/EditFieldWithCompletion.st	Wed Jan 30 11:15:09 2013 +0000
@@ -82,6 +82,7 @@
 "
 ! !
 
+
 !EditFieldWithCompletion methodsFor:'accepting'!
 
 accept
@@ -93,6 +94,7 @@
     "Modified: / 12-02-2010 / 11:56:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+
 !EditFieldWithCompletion methodsFor:'accessing-behavior'!
 
 showOptions
@@ -103,6 +105,7 @@
     showOptions := aBoolean.
 ! !
 
+
 !EditFieldWithCompletion methodsFor:'accessing-dimensions'!
 
 absoluteLeft
@@ -131,6 +134,7 @@
     "Created: / 08-08-2009 / 22:30:16 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !
 
+
 !EditFieldWithCompletion methodsFor:'accessing-mvc'!
 
 optionsHolder
@@ -148,6 +152,7 @@
     "Created: / 09-08-2009 / 08:14:24 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !
 
+
 !EditFieldWithCompletion methodsFor:'event handling'!
 
 completion:best options:options 
@@ -196,6 +201,8 @@
 
 handlesKeyPress:key inView:aView
 
+    <resource: #keyboard (#CursorDown #CursorUp)>
+
     ^aView == optionsView and:
         [(#( #CursorDown #CursorUp ) includes: key) not].
 
@@ -235,8 +242,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)]) 
@@ -270,6 +278,7 @@
     "Created: / 09-12-2010 / 21:32:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+
 !EditFieldWithCompletion methodsFor:'initialization & release'!
 
 destroy
@@ -296,6 +305,7 @@
     "Modified: / 03-08-2011 / 17:50:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+
 !EditFieldWithCompletion methodsFor:'private'!
 
 doCompletion
@@ -403,12 +413,14 @@
     "Modified (format): / 03-08-2011 / 17:50:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+
 !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 7985 2012-04-21 08:36:31Z vranyj1 $'
+    ^ '§Id: EditFieldWithCompletion.st 7662 2010-12-09 21:05:19Z vranyj1 §'
 ! !
+