A new version of 60Deprecated was added to project The Inbox:
http://source.squeak.org/inbox/60Deprecated-ct.80.mcz

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

Name: 60Deprecated-ct.80
Author: ct
Time: 20 August 2020, 2:33:32.63864 pm
UUID: 1295269c-62ee-5c45-9315-e66ff5eef57a
Ancestors: 60Deprecated-mt.79

Finnaly deprecate #doWithIndex: and #collectWithIndex:. Other packages will be patched right now.

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

Item was added:
+ ----- Method: HashedCollection>>doWithIndex: (in category '*60Deprecated-enumerating') -----
+ doWithIndex: elementAndIndexBlock
+ 
+ 	self deprecated: 'Use #withIndexDo: instead'.
+ 	^ self withIndexDo: elementAndIndexBlock!

Item was added:
+ ----- Method: SequenceableCollection>>collectWithIndex: (in category '*60Deprecated-enumerating') -----
+ collectWithIndex: elementAndIndexBlock
+ 
+ 	self deprecated: 'Use #withIndexCollect: instead'.
+ 	^ self withIndexCollect: elementAndIndexBlock!

Item was added:
+ ----- Method: SequenceableCollection>>doWithIndex: (in category '*60Deprecated-enumerating') -----
+ doWithIndex: elementAndIndexBlock
+ 
+ 	self deprecated: 'Use #withIndexDo: instead'.
+ 	^ self withIndexDo: elementAndIndexBlock!

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]]!