Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.424.mcz
==================== Summary ====================
Name: EToys-mt.424 Author: mt Time: 18 February 2021, 4:54:40.1357 pm UUID: 1ed13291-c689-614e-948b-4b4187c84f6d Ancestors: EToys-mt.423
Complements System-mt.1218
=============== Diff against EToys-mt.423 ===============
Item was added: + ----- Method: ImageSegment>>eToysCollectThingsToUnhibernate (in category '*Etoys-Object Storage') ----- + eToysCollectThingsToUnhibernate + <rootsEnumerator> + + | rootsToUnhiberhate myProject | + rootsToUnhiberhate := OrderedCollection new. + arrayOfRoots do: [:importedObject | + ((importedObject isMemberOf: ScriptEditorMorph) + or: [(importedObject isKindOf: TileMorph) + or: [(importedObject isMemberOf: ScriptingTileHolder) + or: [importedObject isKindOf: CompoundTileMorph]]]) ifTrue: [ + rootsToUnhiberhate add: importedObject + ]. + (importedObject isMemberOf: Project) ifTrue: [ + myProject := importedObject. + importedObject ensureChangeSetNameUnique. + Project addingProject: importedObject. + importedObject restoreReferences. + self dependentsRestore: importedObject. + ScriptEditorMorph writingUniversalTiles: + ((importedObject projectPreferenceAt: #universalTiles) ifNil: [false])]]. + + myProject ifNotNil: [ + myProject world setProperty: #thingsToUnhibernate toValue: rootsToUnhiberhate asArray. + ].!