The Trunk: Morphic-dtl.245.mcz

David T. Lewis uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-dtl.245.mcz

==================== Summary ====================

Name: Morphic-dtl.245
Author: dtl
Time: 22 November 2009, 6:42:29 am
UUID: 7ce8d805-2a3b-4c5f-b7f9-c69dc489da64
Ancestors: Morphic-kb.244

Add MorphicProject>>prepareForDelete to support Project>>okToChange

=============== Diff against Morphic-kb.244 ===============

Item was added:
+ ----- Method: MorphicProject>>prepareForDelete (in category 'release') -----
+ prepareForDelete
+ "The window in which the project is housed is about to deleted. Perform
+ any necessary actions to prepare for deletion."
+
+ | is list |
+ 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 := ImageSegment new arrayOfRoots: (Array with: self).
+ (list := is rootsIncludingPlayers) ifNotNil:
+ [list do: [:playerCls |
+ (playerCls respondsTo: #isMeta) ifTrue:
+ [playerCls isMeta ifFalse:
+ [playerCls removeFromSystemUnlogged]]]]
+
+ !