dependents now always returns a collection
(i.e. empty if there are none)
--- 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 $'
! !