OK, but don't hardcode the extensionDelimiter :) Le 15 février 2012 16:20, Camillo Bruni <camillobruni@gmail.com> a écrit :
makes more sense to me On 2012-02-15, at 15:29, Esteban Lorenzano wrote:
hi,
FSPath>>#withExtension: Â is ignoring adding extension if extension is equal to end of basename.
For example, if I want to produce:
(FSFilesystem disk workingDirectory / 'Host') withExtension: 'st'.
I should receive:
/path/to/Host.st
but I actually receive:
/path/to/Host
that can be fixed replacing
FSPath>>#withExtension: extension    | basename name |    basename := self basename.    ^ (basename endsWith: extension)        ifTrue: [ self ]        ifFalse:            [name := basename copyUpToLast: self extensionDelimiter.            self withName: name extension: extension]
with:
FSPath>>#withExtension: extension    | basename name |    basename := self basename.    ^ (basename endsWith: '.', extension)        ifTrue: [ self ]        ifFalse:            [name := basename copyUpToLast: self extensionDelimiter.            self withName: name extension: extension]
but I don't know if that would be a good solution :)
best, Esteban