--- a/CodeCompletionHelpView.st Tue Oct 09 12:18:10 2018 +0200
+++ b/CodeCompletionHelpView.st Tue Oct 09 12:46:02 2018 +0200
@@ -179,16 +179,21 @@
keyPress:key x:x y:y view:aView
key == #Escape ifTrue:[
+ self delayedClose.
+ ^ true.
+ ].
+ ( #( CursorUp CursorDown Return ) includes:key) ifFalse:[
self installDelayedClose.
^ true.
- ].
+ ].
+
"/ (subViews notNil and:[aView == (subViews firstIfEmpty:nil)]) ifTrue:[
"/ self topView destroy
"/ ].
^ false
"Created: / 04-08-2018 / 17:00:33 / Claus Gittinger"
- "Modified: / 05-08-2018 / 03:13:52 / Claus Gittinger"
+ "Modified: / 08-10-2018 / 08:36:52 / Claus Gittinger"
!
pointerEnter:state x:x y:y view:view