--- a/Set.st Wed Apr 02 19:03:50 2003 +0200
+++ b/Set.st Thu Apr 03 10:06:23 2003 +0200
@@ -954,71 +954,6 @@
^ tally
! !
-!Set methodsFor:'set operations'!
-
-+ aCollection
- "return a new set containing all elements of the receiver
- plus those of the argument collection"
-
- |newCollection|
-
- newCollection := self species new.
- newCollection addAll:self.
- newCollection addAll:aCollection.
- ^ newCollection
-
- "
- #(0 2 4 6 8) asSet + #(1 3 5 7)
- "
-!
-
-- aCollection
- "return a new set containing all elements of the receiver, which are
- NOT also contained in the argument collection"
-
- |newCollection|
-
- newCollection := self species new.
- self do:[:element |
- (aCollection includes:element) ifFalse:[
- newCollection add:element
- ]
- ].
- ^ newCollection
-
- "
- #(0 1 2 3 4 5 6 7 8 9) asSet - #(1 2 3)
- "
-!
-
-intersect:aCollection
- "return a new set containing all elements of the receiver, which are
- also contained in the argument collection"
-
- |newCollection|
-
- newCollection := self species new.
- aCollection do:[:element |
- (self includes:element) ifTrue:[
- newCollection add:element
- ]
- ].
- ^ newCollection
-
- "
- #(0 1 2 3 4 5 6 7 8 9) asSet intersect:#(1 2 3 11)
- "
-
-
-
-
-
-
-
-
-
-
-! !
!Set methodsFor:'testing'!
@@ -1124,7 +1059,7 @@
!Set class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.81 2003-02-03 10:18:45 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.82 2003-04-03 08:06:23 stefan Exp $'
! !
Set initialize!