[squeak-dev] The Trunk: Morphic-bf.1306.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Sep 14 13:40:55 UTC 2016


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



More information about the Squeak-dev mailing list