care for nil view passed to #interestedIn.
authorClaus Gittinger <cg@exept.de>
Sat, 08 Aug 1998 13:36:34 +0200
changeset 1033 3a56ba930052
parent 1032 e2069e722736
child 1034 59abcada672e
care for nil view passed to #interestedIn.
ActiveHelp.st
--- 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!