[squeak-dev] The Trunk: EToys-mt.424.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Feb 18 15:54:48 UTC 2021


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



More information about the Squeak-dev mailing list