<div dir="ltr">Oh! How can I have missed that? Thanks!<br><div><div><div class="gmail_extra"><br><div class="gmail_quote">2017-04-26 23:04 GMT+02:00 Levente Uzonyi <span dir="ltr"><<a href="mailto:leves@caesar.elte.hu" target="_blank">leves@caesar.elte.hu</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">You missed the other send a few lines above.<span class="HOEnZb"><font color="#888888"><br>
<br>
Levente</font></span><div class="HOEnZb"><div class="h5"><br>
<br>
On Wed, 26 Apr 2017, <a href="mailto:commits@source.squeak.org" target="_blank">commits@source.squeak.org</a> wrote:<br>
<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Nicolas Cellier uploaded a new version of EToys to project The Trunk:<br>
<a href="http://source.squeak.org/trunk/EToys-nice.296.mcz" rel="noreferrer" target="_blank">http://source.squeak.org/trunk<wbr>/EToys-nice.296.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: EToys-nice.296<br>
Author: nice<br>
Time: 26 April 2017, 10:58:40.211195 pm<br>
UUID: 5d6e88cb-95d4-4aea-87f1-3e8e97<wbr>c96a1b<br>
Ancestors: EToys-ul.295<br>
<br>
Favour usage of the regular #findLastOccurrenceOfString:st<wbr>artingAt: over the (un-)deprecated #findLastOccuranceOfString:sta<wbr>rtingAt:<br>
<br>
=============== Diff against EToys-ul.295 ===============<br>
<br>
Item was changed:<br>
----- Method: FileList>>removeVersionNumberF<wbr>romFileName (in category '*Etoys-Squeakland-file menu action') -----<br>
<wbr>removeVersionNumberFromFileNam<wbr>e<br>
"The selected filename has a version number in it. Rename the file such that the version number is removed."<br>
<br>
| localName fullName dotPosition beforeDot earlierDotPosition within newLocalName |<br>
<br>
fullName := directory fullNameFor: fileName.<br>
localName := FileDirectory localNameFor: fullName.<br>
dotPosition := localName findLastOccuranceOfString: FileDirectory dot startingAt: 1.<br>
dotPosition > 0 ifTrue:<br>
[beforeDot := localName copyFrom: 1 to: dotPosition - 1.<br>
+ earlierDotPosition := beforeDot findLastOccurrenceOfString: FileDirectory dot startingAt: 1.<br>
- earlierDotPosition := beforeDot findLastOccuranceOfString: FileDirectory dot startingAt: 1.<br>
earlierDotPosition > 0 ifTrue:<br>
[within := beforeDot copyFrom: (earlierDotPosition + 1) to: beforeDot size.<br>
(within size > 0 and: [within isAllDigits]) ifTrue:<br>
["whew"<br>
newLocalName := (localName copyFrom: 1 to: (earlierDotPosition - 1)),<br>
(localName copyFrom: dotPosition to: localName size).<br>
(directory fileNames includes: newLocalName)<br>
ifTrue:<br>
[(self confirm: ('do you want to clobber the existing' translated, '<br>
', newLocalName, '?') orCancel: [^ self]) ifFalse: [^ self].<br>
directory deleteFileNamed: localName].<br>
directory rename: localName toBe: newLocalName.<br>
self updateFileList]]].<br>
!<br>
</blockquote>
<br>
</div></div></blockquote></div><br></div></div></div></div>