--- a/CodeCompletionHelpView.st	Wed Aug 01 11:41:24 2018 +0200
+++ b/CodeCompletionHelpView.st	Sat Aug 04 13:38:21 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2013 by Claus Gittinger
               All Rights Reserved
@@ -11,6 +13,8 @@
 "
 "{ Package: 'stx:libtool' }"
 
+"{ NameSpace: Smalltalk }"
+
 View subclass:#CodeCompletionHelpView
 	instanceVariableNames:'myView editView'
 	classVariableNames:''
@@ -88,6 +92,20 @@
     "Modified: 27.4.1996 / 15:16:46 / cg"
 ! !
 
+!CodeCompletionHelpView methodsFor:'event handling'!
+
+focusOut
+    self topView destroy
+
+    "Created: / 04-08-2018 / 10:41:59 / Claus Gittinger"
+!
+
+keyPress:key x:x y:y
+    self topView destroy
+
+    "Created: / 04-08-2018 / 10:40:43 / Claus Gittinger"
+! !
+
 !CodeCompletionHelpView methodsFor:'initialization'!
 
 initStyle
@@ -118,7 +136,10 @@
     "/ self computeShape.
     self enableMotionEvents.
     self enableButtonMotionEvents.
+    self enableFocusEvents.
     super realize
+
+    "Modified: / 04-08-2018 / 10:42:23 / Claus Gittinger"
 ! !
 
 !CodeCompletionHelpView methodsFor:'private'!
@@ -167,10 +188,10 @@
 !CodeCompletionHelpView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/CodeCompletionHelpView.st,v 1.6 2014-03-24 09:02:41 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/CodeCompletionHelpView.st,v 1.6 2014-03-24 09:02:41 cg Exp $'
+    ^ '$Header$'
 ! !