care for nil view passed to #interestedIn.
--- a/ActiveHelp.st Tue Aug 04 19:42:41 1998 +0200
+++ b/ActiveHelp.st Sat Aug 08 13:36:34 1998 +0200
@@ -517,12 +517,14 @@
!
interestedIn:aView
- "am I interested in aView (either listeningForAll,
- or in my list of apps"
+ "return true, if I am interested in aView (either listeningForAll,
+ or in my list of apps)"
|app|
listeningForAll == true ifTrue:[^ true].
+ aView isNil ifTrue:[^ false].
+
(applicationsOrTopViewsWithHelp includesIdentical:(aView topView)) ifTrue:[^ true].
app := aView topView application.
app notNil ifTrue:[
@@ -531,6 +533,7 @@
^ false
"Created: / 26.10.1997 / 23:28:52 / cg"
+ "Modified: / 8.8.1998 / 13:36:19 / cg"
!
stopHelpDisplayProcess
@@ -756,6 +759,6 @@
!ActiveHelp class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.33 1998-07-31 17:41:08 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.34 1998-08-08 11:36:34 cg Exp $'
! !
ActiveHelp initialize!