The Trunk: EToys-mt.424.mcz

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.
+ ].!