<div id="__MailbirdStyleContent" style="font-size: 10pt;font-family: Arial;color: #000000;text-align: left" dir="ltr">
Hi --<div><br></div><div>It's funny that "ifNil: [ ^nil ]; do: [:ea | ... ]" almost looks like the older #ifNotNilDo: but that did not enumerate a collection. :-D Maybe that's the semantics for #ifNotNilDo: that might work.</div><div><br></div><div>Object >> #ifNotNil:</div><div>Collection >> #ifNotNilDo:</div><div><br></div><div>Just a thought. No serious proposal here. #ifNotNilDo: has still semantic baggage. </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;min-width: 500px">
<p style="color: #AAAAAA; margin-top: 10px;">Am 27.01.2022 01:52:12 schrieb commits@source.squeak.org <commits@source.squeak.org>:</p><div style="font-family:Arial,Helvetica,sans-serif">Christoph Thiede uploaded a new version of Tools to project The Trunk:<br>http://source.squeak.org/trunk/Tools-ct.946.mcz<br><br>==================== Summary ====================<br><br>Name: Tools-ct.946<br>Author: ct<br>Time: 24 February 2020, 2:00:37.875323 pm<br>UUID: f4722cd3-964b-444e-9496-9c78fb2d7073<br>Ancestors: Tools-ct.931<br><br>Fixes a small regression in Tools-ct.931 if no versions are available.<br><br>=============== Diff against Tools-ct.931 ===============<br><br>Item was changed:<br> ----- Method: VersionsBrowser>>scanVersionsOf:class:meta:category:selector: (in category 'init & update') -----<br> scanVersionsOf: method class: class meta: meta category: category selector: selector<br> <br> selectorOfMethod := selector.<br> currentCompiledMethod := method.<br> classOfMethod := meta ifTrue: [class class] ifFalse: [class].<br> changeList := OrderedCollection new.<br> list := OrderedCollection new.<br> self addedChangeRecord ifNotNil: [ :change |<br> self<br> addItem: change<br> text: ('{1} (in {2})' translated<br> format: { change stamp. change fileName }) ].<br> listIndex := 0.<br> (ChangeSet scanVersionsOf: method class: class meta: meta category: category selector: selector)<br>+ ifNil: [^ nil];<br> do: [ :change |<br> self<br> addItem: change<br> text: ('{1} {2} {3} \{{4}\}' translated format: {<br> change stamp. classOfMethod name. selector. change category })].<br> listSelections := Array new: list size withAll: false.!<br><br><br></div></blockquote></div>