--- a/ActiveHelp.st	Wed Oct 29 20:13:23 1997 +0100
+++ b/ActiveHelp.st	Wed Oct 29 22:35:26 1997 +0100
@@ -484,8 +484,8 @@
 
     ^ nil
 
-    "Modified: 31.8.1995 / 20:38:00 / claus"
-    "Modified: 5.6.1996 / 14:18:23 / cg"
+    "Modified: / 31.8.1995 / 20:38:00 / claus"
+    "Modified: / 29.10.1997 / 22:31:47 / cg"
 !
 
 hideIfPointerLeft:aView
@@ -584,19 +584,21 @@
         ^ self
     ].
 
-    text notNil ifTrue:[
-        "/ give the views application a chance
-        "/ to decide where to show the help text
-        "/ (i.e. in its own information area)
+    "/ give the views application a chance
+    "/ to decide where to show the help text
+    "/ (i.e. in its own information area)
+    "/ nil is also passed down, to give it a chance
+    "/ to clean its infoDisplay.
 
-        top := aView topView.
-        (app := aView application) notNil ifTrue:[
-            (app showHelp:text for:aView) ifTrue:[
-                lastHelpText := text.
-                ^ self
-            ]
-        ].
+    top := aView topView.
+    (app := aView application) notNil ifTrue:[
+        (app showHelp:text for:aView) ifTrue:[
+            lastHelpText := text.
+            ^ self
+        ]
+    ].
 
+    text notNil ifTrue:[
         (showItNow not and:[DelayTime > 0]) ifTrue:[
             self stopHelpDisplayProcess.
             showProcess := [
@@ -619,8 +621,8 @@
         ]
     "
 
-    "Created: 28.6.1997 / 14:45:41 / cg"
-    "Modified: 28.6.1997 / 14:49:05 / cg"
+    "Created: / 28.6.1997 / 14:45:41 / cg"
+    "Modified: / 29.10.1997 / 22:34:59 / cg"
 !
 
 showHelp:aHelpText for:view
@@ -742,6 +744,6 @@
 !ActiveHelp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.30 1997-10-29 16:10:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.31 1997-10-29 21:35:26 cg Exp $'
 ! !
 ActiveHelp initialize!