equal
deleted
inserted
replaced
19 |
19 |
20 Collection comment:' |
20 Collection comment:' |
21 COPYRIGHT (c) 1989 by Claus Gittinger |
21 COPYRIGHT (c) 1989 by Claus Gittinger |
22 All Rights Reserved |
22 All Rights Reserved |
23 |
23 |
24 $Header: /cvs/stx/stx/libbasic/Collection.st,v 1.26 1995-03-08 23:37:32 claus Exp $ |
24 $Header: /cvs/stx/stx/libbasic/Collection.st,v 1.27 1995-03-18 05:03:31 claus Exp $ |
25 '! |
25 '! |
26 |
26 |
27 !Collection class methodsFor:'documentation'! |
27 !Collection class methodsFor:'documentation'! |
28 |
28 |
29 copyright |
29 copyright |
40 " |
40 " |
41 ! |
41 ! |
42 |
42 |
43 version |
43 version |
44 " |
44 " |
45 $Header: /cvs/stx/stx/libbasic/Collection.st,v 1.26 1995-03-08 23:37:32 claus Exp $ |
45 $Header: /cvs/stx/stx/libbasic/Collection.st,v 1.27 1995-03-18 05:03:31 claus Exp $ |
46 " |
46 " |
47 ! |
47 ! |
48 |
48 |
49 documentation |
49 documentation |
50 " |
50 " |
187 emptyCollectionError |
187 emptyCollectionError |
188 "report an error that the operation is not allowed for |
188 "report an error that the operation is not allowed for |
189 empty collections" |
189 empty collections" |
190 |
190 |
191 ^ EmptyCollectionSignal raise |
191 ^ EmptyCollectionSignal raise |
|
192 ! |
|
193 |
|
194 emptyCheck |
|
195 "check if the receiver is empty; report an error if so" |
|
196 |
|
197 self size == 0 ifTrue:[ |
|
198 ^ self emptyCollectionError. |
|
199 ]. |
192 ! ! |
200 ! ! |
193 |
201 |
194 !Collection methodsFor:'copying'! |
202 !Collection methodsFor:'copying'! |
195 |
203 |
196 copyEmpty:size |
204 copyEmpty:size |