Status: Accepted Owner: ryd...@gmail.com Labels: Milestone-1.3 New issue 4028 by ryd...@gmail.com: Possible infinite loop in ImageSegment
#uniqueFileNameFor: http://code.google.com/p/pharo/issues/detail?id=4028
I guess noone's ever needed more than 99 versions of a segment... ImageSegment >> uniqueFileNameFor: segName "Choose a unique file name for the segment with this name." | segDir fileName listOfFiles | segDir := self segmentDirectory. listOfFiles := segDir fileNames. BiggestFileNumber ifNil: [BiggestFileNumber := 1]. BiggestFileNumber > 99 ifTrue: [BiggestFileNumber := 1]. "wrap" [fileName := segName, BiggestFileNumber printString, '.seg'. (listOfFiles includes: fileName)] whileTrue: [ BiggestFileNumber := BiggestFileNumber + 1]. "force a unique file name" ^ fileName