--- a/ActiveHelp.st	Thu May 05 20:05:07 2016 +0200
+++ b/ActiveHelp.st	Thu May 05 20:46:17 2016 +0200
@@ -467,8 +467,9 @@
         domainPointOrNil := aDevicePointOrNil.
     ].
 
-"/    text := self helpTextFromView:aView at:domainPointOrNil.
-"/    text notNil ifTrue:[ ^ text ].
+    "/ done below
+    "/    text := self helpTextFromView:aView at:domainPointOrNil.
+    "/    text notNil ifTrue:[ ^ text ].
 
     ((aView respondsTo:#application)
     and:[ (app1 := aView application) notNil ]) ifTrue:[
@@ -501,6 +502,10 @@
             text := self helpTextFromModel:model view:aView at:domainPointOrNil.
             text notNil ifTrue:[ ^ text ].
         ].
+        "/ maybe the topView knows something about a higher-up widget...
+        text := self helpTextFromModel:topView view:sv at:domainPointOrNil.
+        text notNil ifTrue:[ ^ text ].
+        
         text := self helpTextFromView:sv at:nil.
         text notNil ifTrue:[ ^ text ].
         v := sv
@@ -814,6 +819,10 @@
 
 !ActiveHelp class methodsFor:'documentation'!
 
+version
+    ^ '$Header$'
+!
+
 version_CVS
     ^ '$Header$'
 ! !