Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2022.mcz
==================== Summary ====================
Name: Morphic-mt.2022 Author: mt Time: 8 August 2022, 12:09:48.81904 pm UUID: 00f8498c-9d4e-794a-a5bb-56f9322b1b4d Ancestors: Morphic-eem.2021
Fixes halo box for transformed targets. Always show the box of the rendered morph, not the renderer.
I will backport this to Squeak 6.0.
Thanks to Stef (spfa) for the tip!
=============== Diff against Morphic-eem.2021 ===============
Item was changed: ----- Method: HaloMorph>>addHandlesForWorldHalos (in category 'private') ----- addHandlesForWorldHalos "Add handles for world halos, like the man said"
| box w | w := self world ifNil:[target world]. self removeAllMorphs. "remove old handles, if any" self bounds: target bounds. box := w bounds insetBy: self handleSize // 2. target addWorldHandlesTo: self box: box.
Preferences uniqueNamesInHalos ifTrue: [innerTarget assureExternalName]. self + addNameBeneath: box - addNameBeneath: ((box insetBy: (0@0 corner: 0@10)) - scaleBy: RealEstateAgent scaleFactor) string: innerTarget externalName. growingOrRotating := false. self layoutChanged. self changed. !
Item was changed: ----- Method: HaloMorph>>basicBox (in category 'private') ----- basicBox | minSide outset anExtent aBox w | minSide := 4 * self handleSize. + outset := (8 * RealEstateAgent scaleFactor) truncated. - outset := 8 * RealEstateAgent scaleFactor. anExtent := (self extent + self handleSize + outset) max: minSide asPoint. aBox := Rectangle center: self center extent: anExtent. w := self world ifNil:[target outermostWorldMorph]. ^ w ifNil: [aBox] ifNotNil: [aBox intersect: (w viewBox insetBy: self handleSize // 2)] !
Item was changed: ----- Method: SimpleHaloMorph>>updateBounds (in category 'updating') ----- updateBounds
+ self bounds: (self haloBoundsFor: self target renderedMorph).! - self bounds: (self haloBoundsFor: self target).!
packages@lists.squeakfoundation.org