--- a/ActiveHelp.st	Sat Mar 13 13:52:25 1999 +0100
+++ b/ActiveHelp.st	Sat Mar 13 16:53:45 1999 +0100
@@ -617,7 +617,11 @@
 
     |text top app|
 
-    text := self helpTextFor:aView atX:x y:y.
+    x isNil ifTrue:[
+        text := aView helpText
+    ] ifFalse:[
+        text := self helpTextFor:aView atX:x y:y.
+    ].
     lastHelpText = text ifTrue:[
         ^ self
     ].
@@ -782,6 +786,6 @@
 !ActiveHelp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.37 1999-02-19 18:11:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.38 1999-03-13 15:53:45 cg Exp $'
 ! !
 ActiveHelp initialize!