On 11 November 2010 02:01, HwaJong Oh <daliot.oh@gmail.com> wrote:

I have a hibbit of saving new version of images when i feed unsecure about something. So i end up a lot of disk space taken by them. I felt it is time for me to clean up the redundance in my disk. I wanted to have a sense of family tree of the images.

l := (FileStream fileNamed:'Squeak4.0-basic-pocketcube-morphic.changes') contents lines.

s := l select: [:each| each beginsWith: '----SNAPSHOT----'].

i := OrderedCollection new. (s collect: [:ea| ea substrings at: 7 ]) do: [:e|        (i includes: e) ifFalse: [i addLast: e.].        ]. i

Now i have images names in time order. But still i need to run this code on every images not listed in evaluated result.

How do you handle this problem?

you could use a file directory to find all .changes files and then simply scan them like above.

Best regards HwaJong Oh -- View this message in context: http://forum.world.st/Finding-Family-tree-of-images-tp3037106p3037106.html Sent from the Pharo Smalltalk mailing list archive at Nabble.com.

-- Best regards, Igor Stasenko AKA sig.