Eliot Miranda uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-eem.303.mcz==================== Summary ====================
Name: EToys-eem.303
Author: eem
Time: 3 July 2017, 4:16:51.503353 pm
UUID: 98b26648-e522-49a7-98db-0d8ce56f9c70
Ancestors: EToys-mt.302
Use NativeImageSegment to compute rootsIncludingPlayers.
=============== Diff against EToys-mt.302 ===============
Item was changed:
----- Method: Project>>okToChangeSilently (in category '*Etoys-Squeakland-release') -----
okToChangeSilently
"Answer whether the window in which the project is housed can be dismissed -- which is destructive. We never clobber a project without confirmation"
| ok is list |
self subProjects size > 0 ifTrue:
[^ false].
ok := world isMorph not and: [world scheduledControllers size <= 1].
ok ifFalse: [self isMorphic ifTrue:
[self parent == CurrentProject
ifFalse: [^ true]]]. "view from elsewhere. just delete it."
ok := true.
ok ifFalse: [^ false].
world isMorph ifTrue:
[Smalltalk at: #WonderlandCameraMorph ifPresent:[:aClass |
world submorphs do: "special release for wonderlands"
[:m | (m isKindOf: aClass)
and: [m getWonderland release]]].
"Remove Player classes and metaclasses owned by project"
+ is := NativeImageSegment new arrayOfRoots: {self}.
- is := ImageSegment new arrayOfRoots: (Array with: self).
(list := is rootsIncludingPlayers) ifNotNil:
[list do: [:playerCls |
(playerCls respondsTo: #isMeta) ifTrue:
[playerCls isMeta ifFalse:
[playerCls removeFromSystemUnlogged]]]]].
self removeChangeSetIfPossible.
"do this last since it will render project inaccessible to #allProjects and their ilk"
ProjectHistory forget: self.
Project deletingProject: self.
^ true
!
Locked
