--- a/ActiveHelp.st	Wed Jun 05 20:36:50 1996 +0200
+++ b/ActiveHelp.st	Fri Jun 07 10:00:35 1996 +0200
@@ -336,7 +336,7 @@
     "walk up the chain - maybe someone knows about its subview ..."
     v := aView.
 
-    [(sv := v superView) notNil] whileTrue:[
+    [(sv := v container) notNil] whileTrue:[
         (model := sv model) notNil ifTrue:[
             (model respondsTo:#helpTextFor:at:) ifTrue:[
                 text := model helpTextFor:aView at:x@y.
@@ -390,7 +390,7 @@
     ^ nil
 
     "Modified: 31.8.1995 / 20:38:00 / claus"
-    "Modified: 27.4.1996 / 15:11:22 / cg"
+    "Modified: 5.6.1996 / 14:18:23 / cg"
 !
 
 hideIfPointerLeft:aView
@@ -527,6 +527,6 @@
 !ActiveHelp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.13 1996-05-28 18:20:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.14 1996-06-07 08:00:35 cg Exp $'
 ! !
 ActiveHelp initialize!