Eliot Miranda uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-eem.171.mcz
==================== Summary ====================
Name: Files-eem.171 Author: eem Time: 25 May 2017, 3:35:29.716969 pm UUID: dbf98ee2-b593-4ede-b2de-0a188c125144 Ancestors: Files-nice.170
Fix case sensitivity in nextNameFor:extension:. Harvested from Terf.
=============== Diff against Files-nice.170 ===============
Item was changed: ----- Method: FileDirectory>>nextNameFor:extension: (in category 'file name utilities') ----- nextNameFor: baseFileName extension: extension "Assumes a file name includes a version number encoded as '.' followed by digits preceding the file extension. Increment the version number and answer the new file name. If a version number is not found, set the version to 1 and answer a new file name"
| files splits version |
files := self fileNamesMatching: (baseFileName,'*', self class dot, extension). splits := files collect: [:file | self splitNameVersionExtensionFor: file] + thenSelect: + [:split | + self isCaseSensitive + ifTrue:[(split at: 1) = baseFileName] + ifFalse:[(split at: 1) match: baseFileName]]. + version := splits isEmpty + ifTrue: [1] + ifFalse: [((splits detectMax: [ :each | each at: 2 ]) at: 2) + 1]. - thenSelect: [:split | (split at: 1) = baseFileName]. - splits isEmpty - ifTrue: [version := 1] - ifFalse: [version := ((splits detectMax: [ :each | each at: 2 ]) at: 2) + 1]. ^ (baseFileName, '.', version asString, self class dot, extension) asFileName!