equal
deleted
inserted
replaced
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.8 1994-11-17 14:21:01 claus Exp $ |
24 $Header: /cvs/stx/stx/libbasic2/MappedCollection.st,v 1.9 1994-11-28 20:56:58 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.8 1994-11-17 14:21:01 claus Exp $ |
45 $Header: /cvs/stx/stx/libbasic2/MappedCollection.st,v 1.9 1994-11-28 20:56:58 claus Exp $ |
46 " |
46 " |
47 ! |
47 ! |
48 |
48 |
49 documentation |
49 documentation |
50 " |
50 " |
81 ! |
81 ! |
82 |
82 |
83 contents |
83 contents |
84 |contents| |
84 |contents| |
85 contents := Bag new. |
85 contents := Bag new. |
86 map do:[:key | contents add:domain at:key]. |
86 map do:[:key | contents add:(domain at:key)]. |
87 ^ contents |
87 ^ contents |
88 ! |
88 ! |
89 |
89 |
90 add:anObject |
90 add:anObject |
91 self shouldNotImplement |
91 self shouldNotImplement |