The Trunk: 60Deprecated-mt.80.mcz

Marcel Taeumel uploaded a new version of 60Deprecated to project The Trunk:
http://source.squeak.org/trunk/60Deprecated-mt.80.mcz

==================== Summary ====================

Name: 60Deprecated-mt.80
Author: mt
Time: 14 October 2020, 1:53:52.872569 pm
UUID: ec4c9dcf-95bf-ac4c-adcf-161cd0d576f6
Ancestors: 60Deprecated-mt.79

Rename #doWithIndex: to #withIndexDo:. See http://forum.world.st/The-Inbox-60Deprecated-ct-80-mcz-td5120706.html

=============== Diff against 60Deprecated-mt.79 ===============

Item was changed:
  ----- Method: StandardFileMenu>>menuSelectionsArray: (in category 'menu building') -----
  menuSelectionsArray: aDirectory
  "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."
 
  |dirSize|
  dirSize := aDirectory pathParts size.
  ^Array streamContents: [:s |
  canTypeFileName ifTrue:
  [s nextPut: (StandardFileMenuResult
  directory: aDirectory
  name: nil)].
  s nextPut: (StandardFileMenuResult
  directory: (FileDirectory root)
  name: '').
+ aDirectory pathParts withIndexDo:
- aDirectory pathParts doWithIndex:
  [:d :i | s nextPut: (StandardFileMenuResult
  directory: (self
  advance: dirSize - i
  containingDirectoriesFrom: aDirectory)
  name: '')].
  aDirectory directoryNames do:
  [:dn |  s nextPut: (StandardFileMenuResult
  directory: (FileDirectory on: (aDirectory fullNameFor: dn))
  name: '')].
  aDirectory fileNames do:
  [:fn | pattern do: [:pat | (pat match: fn) ifTrue: [
  s nextPut: (StandardFileMenuResult
  directory: aDirectory
  name: fn)]]]]!

Item was changed:
  ----- Method: StandardFileMenu>>pathPartsString: (in category 'menu building') -----
  pathPartsString: aDirectory
  "Answer a string concatenating the path parts strings in aDirectory, each string followed by a cr."
 
  ^String streamContents:
  [:s |
  s nextPutAll: '[]'; cr.
+ aDirectory pathParts asArray withIndexDo:
- aDirectory pathParts asArray doWithIndex:
  [:part :i |
  s next: i put: $ .
  s nextPutAll: part withBlanksTrimmed; cr]]!