dependents now always returns a collection
authorClaus Gittinger <cg@exept.de>
Tue, 28 Oct 1997 20:04:58 +0100
changeset 720 b0e0977e1759
parent 719 17fba5c2a167
child 721 1889d708a951
dependents now always returns a collection (i.e. empty if there are none)
Model.st
--- a/Model.st	Tue Oct 28 19:43:22 1997 +0100
+++ b/Model.st	Tue Oct 28 20:04:58 1997 +0100
@@ -115,13 +115,13 @@
 dependents
     "return a Collection of dependents - nil if there is none"
 
-    dependents isNil ifTrue:[^ nil].
+    dependents isNil ifTrue:[^ #()].
     dependents isCollection ifTrue:[
         ^ dependents
     ].
     ^ IdentitySet with:dependents
 
-    "Modified: 19.4.1996 / 12:22:04 / cg"
+    "Modified: / 27.10.1997 / 19:36:28 / cg"
 !
 
 dependents:aCollection
@@ -252,5 +252,5 @@
 !Model class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Model.st,v 1.27 1997-01-08 22:45:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Model.st,v 1.28 1997-10-28 19:04:58 cg Exp $'
 ! !