--- 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!