--- a/ActiveHelp.st	Tue Jul 28 11:55:31 1998 +0200
+++ b/ActiveHelp.st	Tue Jul 28 12:00:01 1998 +0200
@@ -329,14 +329,23 @@
 
 !ActiveHelp methodsFor:'listening'!
 
-buttonMotion:state x:x y:y view:view
+buttonMotion:state x:x y:y view:aView
     "handle motion events - if the mousepointer left the 
      previous helped view, hide the help"
 
-    self hideIfPointerLeft:view.
+    "/ ignore my own help-view
+    aView topView == currentHelpView ifTrue:[
+       ^ true
+    ].
+
+    (self interestedIn:aView) ifTrue:[
+        self stopHelpDisplayProcess.
+        self hideIfPointerLeft:aView.
+        self initiateHelpFor:aView atX:x y:y.
+    ].
     ^ false
 
-    "Modified: 27.4.1996 / 15:09:48 / cg"
+    "Modified: / 28.7.1998 / 02:51:51 / cg"
 !
 
 buttonPress:state x:x y:y view:view
@@ -345,7 +354,7 @@
     self hideHelp.
     ^ false
 
-    "Modified: 27.4.1996 / 15:09:45 / cg"
+    "Modified: / 28.7.1998 / 02:52:00 / cg"
 !
 
 keyPress:state x:x y:y view:view
@@ -368,12 +377,11 @@
     (self interestedIn:aView) ifTrue:[
         self stopHelpDisplayProcess.
         self hideIfPointerLeft:aView.
-
         self initiateHelpFor:aView atX:x y:y.
     ].
     ^ false
 
-    "Modified: / 26.10.1997 / 23:26:28 / cg"
+    "Modified: / 28.7.1998 / 02:52:09 / cg"
 !
 
 pointerLeave:state view:view
@@ -382,7 +390,7 @@
     self hideIfPointerLeft:view.
     ^ false
 
-    "Modified: 27.4.1996 / 15:10:41 / cg"
+    "Modified: / 28.7.1998 / 02:52:16 / cg"
 ! !
 
 !ActiveHelp methodsFor:'private'!
@@ -409,6 +417,10 @@
         ]
     ].
 
+    (aView respondsTo:#helpTextAt:) ifTrue:[
+        text := aView helpTextAt:x@y.
+        text notNil ifTrue:[^ text].
+    ].
     (aView respondsTo:#helpText) ifTrue:[
         text := aView helpText.
         text notNil ifTrue:[^ text].
@@ -485,7 +497,7 @@
     ^ nil
 
     "Modified: / 31.8.1995 / 20:38:00 / claus"
-    "Modified: / 29.10.1997 / 22:31:47 / cg"
+    "Modified: / 28.7.1998 / 01:47:27 / cg"
 !
 
 hideIfPointerLeft:aView
@@ -744,6 +756,6 @@
 !ActiveHelp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.31 1997-10-29 21:35:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.32 1998-07-28 10:00:01 cg Exp $'
 ! !
 ActiveHelp initialize!