A new version of Morphic was added to project The Inbox:
http://source.squeak.org/inbox/Morphic-ct.1527.mcz

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

Name: Morphic-ct.1527
Author: ct
Time: 20 September 2019, 8:25:26.969726 pm
UUID: 92cf521a-6df8-784b-b6c7-7be9cdcf8493
Ancestors: Morphic-mt.1526

Allow for constructing CollapsedMorphs for different owners

Primarily, it was not possible to create a CollapsedMorph for a Morph not-yet-in-world before. Now you can do:

(CollapsedMorph createReplacementFor: Morph new in: World) centerWithWrappees: 100 @ 100

=============== Diff against Morphic-mt.1526 ===============

Item was added:
+ ----- Method: CollapsedMorph class>>createReplacementFor:in: (in category 'instance creation') -----
+ createReplacementFor: aMorph in: anOwner
+ 
+ 	^ self new
+ 		beReplacementFor: aMorph in: anOwner;
+ 		yourself!

Item was changed:
  ----- Method: CollapsedMorph>>beReplacementFor: (in category 'collapse/expand') -----
  beReplacementFor: aMorph
+ 	"Encapsulate aMorph with the CollapsedMorph and display the latter"
  
+ 	| itsWorld |
- 	| itsWorld priorPosition |
  	(itsWorld := aMorph world) ifNil: [^self].
+ 	self beReplacementFor: aMorph in: itsWorld.!
- 	uncollapsedMorph := aMorph.
- 			
- 	self setLabel: aMorph externalName.
- 	aMorph delete.
- 	itsWorld addMorphFront: self.
- 	self collapseOrExpand.
- 	(priorPosition := aMorph valueOfProperty: #collapsedPosition ifAbsent: [nil])
- 	ifNotNil:
- 		[self position: priorPosition].
- !

Item was added:
+ ----- Method: CollapsedMorph>>beReplacementFor:in: (in category 'collapse/expand') -----
+ beReplacementFor: aMorph in: anOwner
+ 	"Encapsulate aMorph with the CollapsedMorph and display the latter in anOwner"
+ 
+ 	| priorPosition |
+ 	uncollapsedMorph := aMorph.
+ 	
+ 	self setLabel: aMorph externalName.
+ 	aMorph delete.
+ 	self privateOwner: anOwner. "lest RealEstateAgent fail at positioning me"
+ 	self collapseOrExpand.
+ 	anOwner addMorphFront: self.
+ 	(priorPosition := aMorph valueOfProperty: #collapsedPosition ifAbsent: [nil])
+ 		ifNotNil: [self position: priorPosition].!

Item was added:
+ ----- Method: CollapsedMorph>>centerWithWrappees: (in category 'adjusting') -----
+ centerWithWrappees: aPoint
+ 
+ 	self center: aPoint.
+ 	uncollapsedMorph center: aPoint.!

Item was added:
+ ----- Method: CollapsedMorph>>uncollapsedMorph (in category 'accessing') -----
+ uncollapsedMorph
+ 
+ 	^ uncollapsedMorph!