<body><div id="__MailbirdStyleContent" style="font-size: 10pt;font-family: Arial;color: #000000;text-align: left" dir="ltr">
Hi all!<div><br></div><div>What do you think? Does it makes sense to pursue this idea of "dictionaries with collections as values" and enrich it with tests and documentation?</div><div><br></div><div>Best,</div><div>Marcel</div><div class="mb_sig"></div><blockquote class='history_container' type='cite' style='border-left-style:solid;border-width:1px; margin-top:20px; margin-left:0px;padding-left:10px;'>
<p style='color: #AAAAAA; margin-top: 10px;'>Am 26.03.2021 19:05:09 schrieb commits@source.squeak.org <commits@source.squeak.org>:</p><div style='font-family:Arial,Helvetica,sans-serif'>A new version of Collections was added to project The Inbox:<br>http://source.squeak.org/inbox/Collections-mt.932.mcz<br><br>==================== Summary ====================<br><br>Name: Collections-mt.932<br>Author: mt<br>Time: 26 March 2021, 7:04:57.368373 pm<br>UUID: b6c0c2c9-0a4f-684c-87a7-069813edd154<br>Ancestors: Collections-dtl.931<br><br>Sketch of a dictionary that has collections as values.<br><br>dict := CollectionsDictionary new.<br>(dict at: #fruits) addAll: #(apple apple peach).<br>(dict at: #sweets) add: #nougat.<br>dict removeKey: #sweets.<br>dict explore.<br><br>=============== Diff against Collections-dtl.931 ===============<br><br>Item was added:<br>+ Dictionary subclass: #CollectionsDictionary<br>+ instanceVariableNames: 'collectionClass'<br>+ classVariableNames: ''<br>+ poolDictionaries: ''<br>+ category: 'Collections-Unordered'!<br><br>Item was added:<br>+ ----- Method: CollectionsDictionary class>>defaultCollectionClass (in category 'defaults') -----<br>+ defaultCollectionClass<br>+ <br>+ ^ OrderedCollection!<br><br>Item was added:<br>+ ----- Method: CollectionsDictionary class>>newOnBags (in category 'instance creation') -----<br>+ newOnBags<br>+ <br>+ ^ self new<br>+ setCollectionClass: Bag;<br>+ yourself!<br><br>Item was added:<br>+ ----- Method: CollectionsDictionary class>>newOnOrderedCollections (in category 'instance creation') -----<br>+ newOnOrderedCollections<br>+ <br>+ ^ self new<br>+ setCollectionClass: OrderedCollection;<br>+ yourself!<br><br>Item was added:<br>+ ----- Method: CollectionsDictionary class>>newOnSets (in category 'instance creation') -----<br>+ newOnSets<br>+ <br>+ ^ self new<br>+ setCollectionClass: Set;<br>+ yourself!<br><br>Item was added:<br>+ ----- Method: CollectionsDictionary>>at: (in category 'accessing') -----<br>+ at: key<br>+ <br>+ ^ self at: key ifAbsent: [super at: key put: collectionClass new]!<br><br>Item was added:<br>+ ----- Method: CollectionsDictionary>>at:put: (in category 'accessing') -----<br>+ at: key put: value<br>+ <br>+ self shouldNotImplement.!<br><br>Item was added:<br>+ ----- Method: CollectionsDictionary>>collectionClass (in category 'accessing') -----<br>+ collectionClass<br>+ <br>+ ^ collectionClass!<br><br>Item was added:<br>+ ----- Method: CollectionsDictionary>>initialize: (in category 'initialization') -----<br>+ initialize: n<br>+ <br>+ super initialize: n.<br>+ self setCollectionClass: self class defaultCollectionClass.!<br><br>Item was added:<br>+ ----- Method: CollectionsDictionary>>setCollectionClass: (in category 'initialization') -----<br>+ setCollectionClass: aClass<br>+ <br>+ collectionClass := aClass.!<br><br><br></div></blockquote>
</div></body>