Nicolas Cellier uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-nice.297.mcz
==================== Summary ====================
Name: EToys-nice.297 Author: nice Time: 26 April 2017, 11:12:27.059817 pm UUID: b8866d63-4f7a-405c-b8a6-ae7a05c271a9 Ancestors: EToys-nice.296
Favour usage of the regular #findLastOccurrenceOfString:startingAt: over the (un-)deprecated #findLastOccuranceOfString:startingAt: BIS
=============== Diff against EToys-nice.296 ===============
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 findLastOccurrenceOfString: FileDirectory dot startingAt: 1. - 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 > 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]]]. !
packages@lists.squeakfoundation.org