Bert Freudenberg uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-bf.1306.mcz
==================== Summary ====================
Name: Morphic-bf.1306 Author: bf Time: 14 September 2016, 3:39:53.677084 pm UUID: 1854981d-62dc-4ade-836b-2185ff8e94b6 Ancestors: Morphic-tfel.1305
Remove ImageSegment dependency
=============== Diff against Morphic-tfel.1305 ===============
Item was added: + ----- Method: MorphicProject>>myPlayerClasses (in category 'release') ----- + myPlayerClasses + "Answer all my (non-systemDefined) player classes" + | classes presenter | + classes := Set new. + presenter := self world presenter. + presenter ifNotNil: [ + presenter flushPlayerListCache. "old and outside guys" + presenter allExtantPlayers do: + [:p | p class isSystemDefined ifFalse: [classes add: p class]]]. + ^classes!
Item was changed: ----- 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."
+ | list | - | 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" + self myPlayerClasses do: [:playerCls | playerCls removeFromSystemUnlogged]. - is := ImageSegment new arrayOfRoots: (Array with: self). - (list := is rootsIncludingPlayers) ifNotNil: - [list do: [:playerCls | - (playerCls respondsTo: #isMeta) ifTrue: - [playerCls isMeta ifFalse: - [playerCls removeFromSystemUnlogged]]]]
!
packages@lists.squeakfoundation.org