Chris Cunningham uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cbc.1452.mcz
==================== Summary ====================
Name: Morphic-cbc.1452 Author: cbc Time: 13 June 2018, 7:45:19.342537 pm UUID: 16e46d7e-75d2-9047-a872-6f069d65920f Ancestors: Morphic-cbc.1451
Recategorized #referencePositionInWorld (and setter) to be with related methods. Fixed #adjustAfter: to once again allow halo rotation of morphs to actually rotate around the rotationCenter (instead of center of the morph).
=============== Diff against Morphic-cbc.1451 ===============
Item was added: + ----- Method: Morph>>referencePositionInWorld (in category 'rotate scale and flex') ----- + referencePositionInWorld + + ^ self pointInWorld: self referencePosition + !
Item was added: + ----- Method: Morph>>referencePositionInWorld: (in category 'rotate scale and flex') ----- + referencePositionInWorld: aPoint + | localPosition | + localPosition := owner + ifNil: [aPoint] + ifNotNil: [(owner transformFrom: self world) globalPointToLocal: aPoint]. + + self referencePosition: localPosition + !
Item was changed: ----- Method: TransformationMorph>>adjustAfter: (in category 'private') ----- adjustAfter: changeBlock "Cause this morph to remain cetered where it was before, and choose appropriate smoothing, after a change of scale or rotation." | oldRefPos | oldRefPos := self referencePosition. changeBlock value. self chooseSmoothing. + self penUpWhile: [self position: self position + (oldRefPos - self referencePosition)]. - self actorStateOrNil ifNotNil:[ - self penUpWhile: [self position: self position + (oldRefPos - self referencePosition)]. - ]. self layoutChanged. owner ifNotNil: [owner invalidRect: bounds] !