<body><div id="__MailbirdStyleContent" style="font-size: 10pt;font-family: Arial;color: #000000">
Oh, I meant "merge and revise". My bad. :-)<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 02.10.2019 09:32:15 schrieb commits@source.squeak.org <commits@source.squeak.org>:</p><div style="font-family:Arial,Helvetica,sans-serif">Marcel Taeumel uploaded a new version of System to project The Trunk:<br>http://source.squeak.org/trunk/System-mt.1108.mcz<br><br>==================== Summary ====================<br><br>Name: System-mt.1108<br>Author: mt<br>Time: 2 October 2019, 9:32:00.730936 am<br>UUID: 39de5334-f54e-4440-a28b-06efad556bb6<br>Ancestors: System-ct.1107<br><br>Fixes and revises System-ct.1107.<br><br>=============== Diff against System-mt.1102 ===============<br><br>Item was changed:<br> ----- Method: SystemNavigation>>allImplementorsOf:localTo: (in category 'query') -----<br> allImplementorsOf: aSelector localTo: aClass <br> "Answer a sorted collection of all the methods that are named aSelector in, above, or below the given class."<br> <br> | result |<br> result := OrderedCollection new.<br>+ aClass theNonMetaClass withAllSuperAndSubclassesDoGently: [:class |<br>+ (class includesSelector: aSelector) ifTrue: [<br>+ result add: (MethodReference class: class selector: aSelector) ].<br>+ (class class includesSelector: aSelector) ifTrue: [<br>+ result add: (MethodReference class: class class selector: aSelector) ] ].<br>- { aClass theNonMetaClass. aClass theMetaClass } do: [ :baseClass |<br>- baseClass withAllSuperAndSubclassesDoGently: [ :class | <br>- (class includesSelector: aSelector) ifTrue: [<br>- result add: (MethodReference class: class selector: aSelector) ] ] ].<br> ^result sort!<br><br><br></div></blockquote>
</div></body>