--- a/CodeCompletionHelpView.st	Sat Aug 04 21:28:13 2018 +0200
+++ b/CodeCompletionHelpView.st	Sun Aug 05 03:17:46 2018 +0200
@@ -16,7 +16,7 @@
 "{ NameSpace: Smalltalk }"
 
 View subclass:#CodeCompletionHelpView
-	instanceVariableNames:'myView editView delayedDestroyAction'
+	instanceVariableNames:'myView editView delayedCloseAction'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Help'
@@ -94,6 +94,12 @@
 
 !CodeCompletionHelpView methodsFor:'event handling'!
 
+delayedClose
+    self delayedUnmap
+
+    "Created: / 05-08-2018 / 03:16:26 / Claus Gittinger"
+!
+
 delayedDestroy
     (subViews notEmptyOrNil) ifTrue:[
         self topView destroy
@@ -103,11 +109,20 @@
     "Created: / 04-08-2018 / 21:25:48 / Claus Gittinger"
 !
 
+delayedUnmap
+    (subViews notEmptyOrNil) ifTrue:[
+        self topView unmap
+    ].
+    ^ true
+
+    "Created: / 05-08-2018 / 03:12:39 / Claus Gittinger"
+!
+
 focusOut
-    self installDelayedDestroy.
+    self installDelayedClose.
 
     "Created: / 04-08-2018 / 10:41:59 / Claus Gittinger"
-    "Modified: / 04-08-2018 / 21:27:31 / Claus Gittinger"
+    "Modified: / 05-08-2018 / 03:12:58 / Claus Gittinger"
 !
 
 handlesButtonMotion:state inView:aView
@@ -152,19 +167,19 @@
     "Created: / 04-08-2018 / 16:55:53 / Claus Gittinger"
 !
 
-installDelayedDestroy
-    delayedDestroyAction notNil ifTrue:[
-        Processor removeTimedBlock:delayedDestroyAction.
+installDelayedClose
+    delayedCloseAction notNil ifTrue:[
+        Processor removeTimedBlock:delayedCloseAction.
     ].    
-    delayedDestroyAction := [ self topView destroy ]. 
-    Processor addTimedBlock:delayedDestroyAction after:0.5.
+    delayedCloseAction := [ self delayedClose ]. 
+    Processor addTimedBlock:delayedCloseAction after:0.5.
 
-    "Created: / 04-08-2018 / 21:26:10 / Claus Gittinger"
+    "Created: / 05-08-2018 / 03:13:23 / Claus Gittinger"
 !
 
 keyPress:key x:x y:y view:aView
     key == #Escape ifTrue:[
-        self installDelayedDestroy.
+        self installDelayedClose.
         ^ true.
     ].    
 "/    (subViews notNil and:[aView == (subViews firstIfEmpty:nil)]) ifTrue:[
@@ -173,12 +188,12 @@
     ^ false
 
     "Created: / 04-08-2018 / 17:00:33 / Claus Gittinger"
-    "Modified: / 04-08-2018 / 21:27:14 / Claus Gittinger"
+    "Modified: / 05-08-2018 / 03:13:52 / Claus Gittinger"
 !
 
 pointerEnter:state x:x y:y view:view
-    delayedDestroyAction notNil ifTrue:[
-        Processor removeTimedBlock:delayedDestroyAction.
+    delayedCloseAction notNil ifTrue:[
+        Processor removeTimedBlock:delayedCloseAction.
     ].    
     ^ false
 
@@ -186,11 +201,11 @@
 !
 
 pointerLeave:state view:view
-    self installDelayedDestroy.
+    self installDelayedClose.
     ^ false
 
     "Created: / 04-08-2018 / 16:57:18 / Claus Gittinger"
-    "Modified: / 04-08-2018 / 21:26:21 / Claus Gittinger"
+    "Modified: / 05-08-2018 / 03:13:46 / Claus Gittinger"
 ! !
 
 !CodeCompletionHelpView methodsFor:'initialization'!