CRConference has
snapshot
| stream |
stream := ReferenceStream fileNamed: (String streamContents: [ :filename |
Date current
printOn: filename
format: #( 3 2 1 $- 1 1 2).
filename space; nextPutAll: (Time current print24
collect: [ :char | char = $: ifTrue: [ $- ] ifFalse: [ char ] ]).
filename nextPutAll: '.obj' ]).
[ stream nextPut: self ] ensure: [ stream close ]
startUp
| files |
self reset.
files := FileDirectory default fileNamesMatching: '*.obj'.
files isEmpty ifFalse: [ self load: files asSortedCollection last ]
The matching in startUp creates interesting issues when having other .obj
files around. I would suggest prefixing the filename with 'esug' and
changing the match to 'esug*.obj'.
Stephan Eggermont
_______________________________________________
seaside mailing list
[hidden email]
http://lists.squeakfoundation.org/cgi-bin/mailman/listinfo/seaside
Locked
