equal
deleted
inserted
replaced
|
1 "{ Encoding: iso8859-1 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1989 by Claus Gittinger |
4 COPYRIGHT (c) 1989 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
1018 "return a new List with the receiver collections elements" |
1020 "return a new List with the receiver collections elements" |
1019 |
1021 |
1020 ^ self addAllTo:(List new:self size) |
1022 ^ self addAllTo:(List new:self size) |
1021 |
1023 |
1022 "Created: 14.2.1997 / 16:25:23 / cg" |
1024 "Created: 14.2.1997 / 16:25:23 / cg" |
|
1025 ! |
|
1026 |
|
1027 asLongIntegerArray |
|
1028 "return a new LongIntegerArray with the collections elements |
|
1029 (which must convert to integers in the range 0..16rFFFFFFFF)." |
|
1030 |
|
1031 |aLongWordArray |
|
1032 index "{ Class: SmallInteger }" | |
|
1033 |
|
1034 aLongWordArray := LongIntegerArray new:(self size). |
|
1035 index := 1. |
|
1036 self do:[:each | |
|
1037 aLongWordArray at:index put:each asInteger. |
|
1038 index := index + 1 |
|
1039 ]. |
|
1040 ^ aLongWordArray |
1023 ! |
1041 ! |
1024 |
1042 |
1025 asOrderedCollection |
1043 asOrderedCollection |
1026 "return a new OrderedCollection with the receiver collections elements" |
1044 "return a new OrderedCollection with the receiver collections elements" |
1027 |
1045 |
2669 ! ! |
2687 ! ! |
2670 |
2688 |
2671 !Collection class methodsFor:'documentation'! |
2689 !Collection class methodsFor:'documentation'! |
2672 |
2690 |
2673 version |
2691 version |
2674 ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.153 2004-02-11 14:04:04 cg Exp $' |
2692 ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.154 2004-03-03 20:48:53 cg Exp $' |
2675 ! ! |
2693 ! ! |
2676 |
2694 |
2677 Collection initialize! |
2695 Collection initialize! |