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 at 0 corner: 0 at 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).!