[Cuis] About Tonel

[Edgar J. De Cleene]

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