[Seaside] Conrad issue
stephan at stack.nl
stephan at stack.nl
Wed Jul 30 11:12:59 UTC 2008
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
More information about the seaside
mailing list