TheWorldMenu saveWorldInFile
Last updated at 7:22 pm UTC on 23 May 2018
saveWorldInFile
"Save the world's submorphs, model, and stepList in a file. "
| fileName fileStream aClass |
fileName := UIManager default request: 'File name for this morph?'.
fileName isEmpty ifTrue: [^ self]. "abort"
"Save only model, stepList, submorphs in this world"
myWorld submorphsDo: [:m |
m allMorphsDo: [:subM | subM prepareToBeSaved]]. "Amen"
fileStream := FileStream newFileNamed: fileName, '.morph'.
aClass := myWorld model ifNil: [nil] ifNotNil: [myWorld model class].
fileStream fileOutClass: aClass andObject: myWorld.
For morphs in general see
Morph saveOnFile