--- a/ActiveHelp.st	Sun Jun 15 12:10:54 1997 +0200
+++ b/ActiveHelp.st	Sun Jun 15 12:15:40 1997 +0200
@@ -470,10 +470,21 @@
 showHelp:aHelpText for:view
     "show the help text for aView"
 
-    |org p v dev|
+    |org p v dev top app|
 
     view == currentView ifTrue:[^ self].
 
+    "/ give the views application a chance
+    "/ to decide where to show the help text
+    "/ (i.e. in its own information area)
+
+    top := view topView.
+    (app := top application) notNil ifTrue:[
+        (app showHelp:aHelpText for:view) ifTrue:[
+            ^ self
+        ]
+    ].
+
     closeProcess notNil ifTrue:[
         p := closeProcess. closeProcess := nil.
         p terminate.
@@ -527,6 +538,6 @@
 !ActiveHelp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.18 1996-10-26 16:56:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.19 1997-06-15 10:15:40 ca Exp $'
 ! !
 ActiveHelp initialize!