<body><div id="__MailbirdStyleContent" style="font-size: 10pt;font-family: Arial;color: #000000;text-align: left" dir="ltr">
+1<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 21.09.2021 00:21:19 schrieb commits@source.squeak.org <commits@source.squeak.org>:</p><div style='font-family:Arial,Helvetica,sans-serif'>Levente Uzonyi uploaded a new version of Kernel to project The Inbox:<br>http://source.squeak.org/inbox/Kernel-ul.1415.mcz<br><br>==================== Summary ====================<br><br>Name: Kernel-ul.1415<br>Author: ul<br>Time: 21 September 2021, 12:15:33.429302 am<br>UUID: 475b52e5-ca1e-4e9a-bf3f-bdc55f143e01<br>Ancestors: Kernel-eem.1414<br><br>MethodDictionary has to reimplement some inherited methods: #add, #at:ifPresent:ifAbsentPut: and #replace:<br><br>=============== Diff against Kernel-eem.1414 ===============<br><br>Item was added:<br>+ ----- Method: MethodDictionary>>add: (in category 'adding') -----<br>+ add: anAssociation<br>+ <br>+ self at: anAssociation key put: anAssociation value.<br>+ ^anAssociation!<br><br>Item was added:<br>+ ----- Method: MethodDictionary>>at:ifPresent:ifAbsentPut: (in category 'accessing') -----<br>+ at: key ifPresent: oneArgBlock ifAbsentPut: absentBlock<br>+ "Lookup the given key in the receiver. If it is present, answer the value of<br>+ evaluating oneArgBlock with the value associated with the key. Otherwise<br>+ add the value of absentBlock under the key, and answer that value."<br>+ <br>+ | index value |<br>+ index := self scanFor: key.<br>+ (array at: index) ifNotNil: [ :element | ^oneArgBlock value: element value].<br>+ value := absentBlock value.<br>+ self <br>+ basicAt: index put: key;<br>+ atNewIndex: index put: value.<br>+ ^value!<br><br>Item was added:<br>+ ----- Method: MethodDictionary>>replace: (in category 'enumeration') -----<br>+ replace: aBlock<br>+ "Destructively replace the values in this Dictionary by applying aBlock, keeping the same keys."<br>+ <br>+ tally = 0 ifTrue: [ ^self].<br>+ 1 to: array size do: [ :index |<br>+ (array at: index) ifNotNil: [ :element |<br>+ array at: index put: (aBlock value: element) ] ]!<br><br><br></div></blockquote>
</div></body>