equal
deleted
inserted
replaced
776 |
776 |
777 "Created: 12.2.1997 / 12:39:02 / cg" |
777 "Created: 12.2.1997 / 12:39:02 / cg" |
778 ! |
778 ! |
779 |
779 |
780 occurrencesOf:anObject |
780 occurrencesOf:anObject |
781 "return the number of occurrences of anObject in the receiver" |
781 "return the number of occurrences of anObject in the receiver. |
|
782 Uses #= (i.e. equality) compare." |
782 |
783 |
783 (self find:anObject ifAbsent:0) == 0 ifTrue:[^ 0]. |
784 (self find:anObject ifAbsent:0) == 0 ifTrue:[^ 0]. |
784 ^ 1 |
785 ^ 1 |
785 ! |
786 ! |
786 |
787 |
842 ! ! |
843 ! ! |
843 |
844 |
844 !Set class methodsFor:'documentation'! |
845 !Set class methodsFor:'documentation'! |
845 |
846 |
846 version |
847 version |
847 ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.59 1999-09-23 16:04:23 stefan Exp $' |
848 ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.60 1999-12-02 11:22:16 cg Exp $' |
848 ! ! |
849 ! ! |
849 Set initialize! |
850 Set initialize! |