--- a/ActiveHelp.st	Mon Feb 16 12:03:21 2004 +0100
+++ b/ActiveHelp.st	Mon Feb 16 15:18:40 2004 +0100
@@ -530,9 +530,24 @@
         ex suspendedContext fullPrintAll.
         ex return
     ] do:[
+        |sensor|
+
         (self interestedIn:aView) ifTrue:[
             self stopHelpDisplayProcess.
             self hideIfPointerLeft:aView.
+
+            (self interestedIn:aView) ifFalse:[
+                ^ self
+            ].
+
+sensor := aView sensor.
+sensor notNil ifTrue:[
+  sensor flushEventsFor:self withType:#initiateHelpFor:at:.
+  sensor 
+    pushUserEvent:#initiateHelpFor:at: for:self 
+    withArguments:(Array with:aView with:(x @ y)).
+  ^ self.
+].
             self initiateHelpFor:aView at:(x @ y).
         ].
     ].
@@ -659,7 +674,7 @@
 !ActiveHelp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.51 2004-01-29 22:47:55 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.52 2004-02-16 14:18:40 cg Exp $'
 ! !
 
 ActiveHelp initialize!