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