The Trunk: Morphic-bf.1306.mcz

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