<body><div id="__MailbirdStyleContent" style="font-size: 10pt;font-family: Arial;color: #000000">
                                        ... just why?<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 20.08.2020 14:33:41 schrieb commits@source.squeak.org <commits@source.squeak.org>:</p><div style='font-family:Arial,Helvetica,sans-serif'>A new version of 60Deprecated was added to project The Inbox:<br>http://source.squeak.org/inbox/60Deprecated-ct.80.mcz<br><br>==================== Summary ====================<br><br>Name: 60Deprecated-ct.80<br>Author: ct<br>Time: 20 August 2020, 2:33:32.63864 pm<br>UUID: 1295269c-62ee-5c45-9315-e66ff5eef57a<br>Ancestors: 60Deprecated-mt.79<br><br>Finnaly deprecate #doWithIndex: and #collectWithIndex:. Other packages will be patched right now.<br><br>=============== Diff against 60Deprecated-mt.79 ===============<br><br>Item was added:<br>+ ----- Method: HashedCollection>>doWithIndex: (in category '*60Deprecated-enumerating') -----<br>+ doWithIndex: elementAndIndexBlock<br>+ <br>+     self deprecated: 'Use #withIndexDo: instead'.<br>+        ^ self withIndexDo: elementAndIndexBlock!<br><br>Item was added:<br>+ ----- Method: SequenceableCollection>>collectWithIndex: (in category '*60Deprecated-enumerating') -----<br>+ collectWithIndex: elementAndIndexBlock<br>+ <br>+  self deprecated: 'Use #withIndexCollect: instead'.<br>+   ^ self withIndexCollect: elementAndIndexBlock!<br><br>Item was added:<br>+ ----- Method: SequenceableCollection>>doWithIndex: (in category '*60Deprecated-enumerating') -----<br>+ doWithIndex: elementAndIndexBlock<br>+ <br>+       self deprecated: 'Use #withIndexDo: instead'.<br>+        ^ self withIndexDo: elementAndIndexBlock!<br><br>Item was changed:<br>  ----- Method: StandardFileMenu>>menuSelectionsArray: (in category 'menu building') -----<br>  menuSelectionsArray: aDirectory<br>  "Answer a menu selections object corresponding to aDirectory.  The object is an array corresponding to each item, each element itself constituting a two-element array, the first element of which contains a selector to operate on and the second element of which contains the parameters for that selector."<br>  <br>         |dirSize|<br>     dirSize := aDirectory pathParts size.<br>         ^Array streamContents: [:s |<br>                  canTypeFileName ifTrue:<br>                       [s nextPut: (StandardFileMenuResult<br>                           directory: aDirectory<br>                                 name: nil)].<br>                  s nextPut: (StandardFileMenuResult<br>                    directory: (FileDirectory root)<br>                       name: '').<br>+           aDirectory pathParts withIndexDo: <br>-           aDirectory pathParts doWithIndex: <br>                    [:d :i | s nextPut: (StandardFileMenuResult<br>                                   directory: (self <br>                                             advance: dirSize - i<br>                                                  containingDirectoriesFrom: aDirectory)<br>                                        name: '')].<br>           aDirectory directoryNames do: <br>                        [:dn |  s nextPut: (StandardFileMenuResult<br>                                            directory: (FileDirectory on: (aDirectory fullNameFor: dn))<br>                                           name: '')].<br>           aDirectory fileNames do: <br>                     [:fn | pattern do: [:pat | (pat match: fn) ifTrue: [<br>                                          s nextPut: (StandardFileMenuResult<br>                                            directory: aDirectory<br>                                                 name: fn)]]]]!<br><br>Item was changed:<br>  ----- Method: StandardFileMenu>>pathPartsString: (in category 'menu building') -----<br>  pathPartsString: aDirectory<br>  "Answer a string concatenating the path parts strings in aDirectory, each string followed by a cr."<br>  <br>         ^String streamContents:<br>               [:s | <br>                        s nextPutAll: '[]'; cr.<br>+                      aDirectory pathParts asArray withIndexDo: <br>-                   aDirectory pathParts asArray doWithIndex: <br>                            [:part :i |<br>                                   s next: i put: $ .<br>                                    s nextPutAll: part withBlanksTrimmed; cr]]!<br><br><br></div></blockquote>
                                        </div></body>