[squeak-dev] The Trunk: EToys-nice.296.mcz
Nicolas Cellier
nicolas.cellier.aka.nice at gmail.com
Wed Apr 26 21:13:21 UTC 2017
Oh! How can I have missed that? Thanks!
2017-04-26 23:04 GMT+02:00 Levente Uzonyi <leves at caesar.elte.hu>:
> You missed the other send a few lines above.
>
> Levente
>
>
> On Wed, 26 Apr 2017, commits at source.squeak.org wrote:
>
> Nicolas Cellier uploaded a new version of EToys to project The Trunk:
>> http://source.squeak.org/trunk/EToys-nice.296.mcz
>>
>> ==================== Summary ====================
>>
>> Name: EToys-nice.296
>> Author: nice
>> Time: 26 April 2017, 10:58:40.211195 pm
>> UUID: 5d6e88cb-95d4-4aea-87f1-3e8e97c96a1b
>> Ancestors: EToys-ul.295
>>
>> Favour usage of the regular #findLastOccurrenceOfString:startingAt: over
>> the (un-)deprecated #findLastOccuranceOfString:startingAt:
>>
>> =============== Diff against EToys-ul.295 ===============
>>
>> Item was changed:
>> ----- Method: FileList>>removeVersionNumberFromFileName (in category
>> '*Etoys-Squeakland-file menu action') -----
>> removeVersionNumberFromFileName
>> "The selected filename has a version number in it. Rename the
>> file such that the version number is removed."
>>
>> | localName fullName dotPosition beforeDot earlierDotPosition
>> within newLocalName |
>>
>> fullName := directory fullNameFor: fileName.
>> localName := FileDirectory localNameFor: fullName.
>> dotPosition := localName findLastOccuranceOfString:
>> FileDirectory dot startingAt: 1.
>> dotPosition > 0 ifTrue:
>> [beforeDot := localName copyFrom: 1 to: dotPosition - 1.
>> + earlierDotPosition := beforeDot
>> findLastOccurrenceOfString: FileDirectory dot startingAt: 1.
>> - earlierDotPosition := beforeDot
>> findLastOccuranceOfString: FileDirectory dot startingAt: 1.
>> earlierDotPosition > 0 ifTrue:
>> [within := beforeDot copyFrom:
>> (earlierDotPosition + 1) to: beforeDot size.
>> (within size > 0 and: [within isAllDigits])
>> ifTrue:
>> ["whew"
>> newLocalName := (localName copyFrom: 1
>> to: (earlierDotPosition - 1)),
>> (localName copyFrom: dotPosition
>> to: localName size).
>> (directory fileNames includes:
>> newLocalName)
>> ifTrue:
>> [(self confirm: ('do you
>> want to clobber the existing' translated, '
>> ', newLocalName, '?') orCancel: [^ self]) ifFalse: [^ self].
>> directory
>> deleteFileNamed: localName].
>> directory rename: localName toBe:
>> newLocalName.
>> self updateFileList]]].
>> !
>>
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20170426/37f9210e/attachment.html>
More information about the Squeak-dev
mailing list
|