--- a/ActiveHelp.st	Mon Feb 15 18:47:38 1999 +0100
+++ b/ActiveHelp.st	Mon Feb 15 21:15:14 1999 +0100
@@ -423,12 +423,14 @@
      #helpTextFor:at: or #helpTextFor: message ends this search and the
      returned string is returned."
 
-    |model app text view v sv|
+    |model app text view v sv p|
 
     view := aView.
+    p := x @ y.
+
     (model := aView model) notNil ifTrue:[
         (model respondsTo:#helpTextFor:at:) ifTrue:[
-            text := model helpTextFor:aView at:x@y.
+            text := model helpTextFor:aView at:p.
             text notNil ifTrue:[^ text].
         ].
         (model respondsTo:#helpTextFor:) ifTrue:[
@@ -438,7 +440,7 @@
     ].
 
     (aView respondsTo:#helpTextAt:) ifTrue:[
-        text := aView helpTextAt:x@y.
+        text := aView helpTextAt:p.
         text notNil ifTrue:[^ text].
     ].
     (aView respondsTo:#helpText) ifTrue:[
@@ -452,7 +454,7 @@
     [(sv := v container) notNil] whileTrue:[
         (model := sv model) notNil ifTrue:[
             (model respondsTo:#helpTextFor:at:) ifTrue:[
-                text := model helpTextFor:aView at:x@y.
+                text := model helpTextFor:aView at:p.
                 text notNil ifTrue:[^ text].
             ].
             (model respondsTo:#helpTextFor:) ifTrue:[
@@ -474,7 +476,7 @@
     (aView respondsTo:#application) ifTrue:[
         (app := aView application) notNil ifTrue:[
             (app respondsTo:#helpTextFor:at:) ifTrue:[
-                text := app helpTextFor:aView at:x@y.
+                text := app helpTextFor:aView at:p.
                 text notNil ifTrue:[^ text].
             ].
             (app respondsTo:#helpTextFor:) ifTrue:[
@@ -487,7 +489,7 @@
     (v notNil and:[v respondsTo:#application]) ifTrue:[
         (app := v application) notNil ifTrue:[
             (app respondsTo:#helpTextFor:at:) ifTrue:[
-                text := app helpTextFor:aView at:x@y.
+                text := app helpTextFor:aView at:p.
                 text notNil ifTrue:[^ text].
             ].
             (app respondsTo:#helpTextFor:) ifTrue:[
@@ -499,7 +501,7 @@
     (v notNil and:[v respondsTo:#model]) ifTrue:[
         (model := v model) notNil ifTrue:[
             (model respondsTo:#helpTextFor:at:) ifTrue:[
-                text := model helpTextFor:aView at:x@y.
+                text := model helpTextFor:aView at:p.
                 text notNil ifTrue:[^ text].
             ].
             (model respondsTo:#helpTextFor:) ifTrue:[
@@ -779,6 +781,6 @@
 !ActiveHelp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.35 1998-08-19 13:38:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.36 1999-02-15 20:15:14 cg Exp $'
 ! !
 ActiveHelp initialize!