Juan:
Exist any plan for have Tonel in Cuis ?
All:
A toll for convert .st created by
createSources
" Object new createSources"
| unzipped nameToUse zipped dir |
ProtoObject allSubclassesWithLevelDo:[:cl :l|
dir := self createDirIfnotExists:cl category asString.
Cursor write showWhile: [nameToUse := cl printString, FileDirectory
dot,'.st' .
(dir fileExists: nameToUse) ifFalse:[
unzipped :=RWBinaryOrTextStream on: ''.
unzipped header; timeStamp.
cl fileOutOn: unzipped moveSource: false toFile: 0.
unzipped trailer.
unzipped reset.
zipped := dir newFileNamed: nameToUse.
zipped close.
unzipped close]]] startingLevel: 0
Thanks in advance.
Edgar
@morplenauta
_______________________________________________
Cuis mailing list
[hidden email]
http://jvuletich.org/mailman/listinfo/cuis_jvuletich.org