equal
deleted
inserted
replaced
12 |
12 |
13 Collection subclass:#MappedCollection |
13 Collection subclass:#MappedCollection |
14 instanceVariableNames:'domain map' |
14 instanceVariableNames:'domain map' |
15 classVariableNames:'' |
15 classVariableNames:'' |
16 poolDictionaries:'' |
16 poolDictionaries:'' |
17 category:'Collections-Ordered' |
17 category:'Collections-Sequenceable' |
18 ! |
18 ! |
19 |
19 |
20 MappedCollection comment:' |
20 MappedCollection comment:' |
21 COPYRIGHT (c) 1993 by Claus Gittinger |
21 COPYRIGHT (c) 1993 by Claus Gittinger |
22 All Rights Reserved |
22 All Rights Reserved |
23 |
23 |
24 $Header: /cvs/stx/stx/libbasic2/MappedCollection.st,v 1.6 1994-08-05 01:06:56 claus Exp $ |
24 $Header: /cvs/stx/stx/libbasic2/MappedCollection.st,v 1.7 1994-10-10 00:53:54 claus Exp $ |
25 '! |
25 '! |
26 |
26 |
27 !MappedCollection class methodsFor:'documentation'! |
27 !MappedCollection 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/libbasic2/MappedCollection.st,v 1.6 1994-08-05 01:06:56 claus Exp $ |
45 $Header: /cvs/stx/stx/libbasic2/MappedCollection.st,v 1.7 1994-10-10 00:53:54 claus Exp $ |
46 " |
46 " |
47 ! |
47 ! |
48 |
48 |
49 documentation |
49 documentation |
50 " |
50 " |
97 "return the number of elements in the receiver" |
97 "return the number of elements in the receiver" |
98 |
98 |
99 ^ map size |
99 ^ map size |
100 ! ! |
100 ! ! |
101 |
101 |
|
102 !MappedCollection methodsFor:'copying'! |
|
103 |
|
104 postCopy |
|
105 domain := domain copy. |
|
106 map := map copy |
|
107 ! ! |
|
108 |
102 !MappedCollection methodsFor:'enumerating'! |
109 !MappedCollection methodsFor:'enumerating'! |
103 |
110 |
104 do:aBlock |
111 do:aBlock |
105 "evaluate the argument, aBlock for each element" |
112 "evaluate the argument, aBlock for each element" |
106 |
113 |