Marcel Taeumel uploaded a new version of Graphics to project The Trunk:
http://source.squeak.org/trunk/Graphics-mt.485.mcz

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

Name: Graphics-mt.485
Author: mt
Time: 21 February 2022, 4:00:59.626099 pm
UUID: 7540de82-ce66-1146-996d-30a8f4112016
Ancestors: Graphics-mt.484

Activate top/bottom margins during text composition step 2 of 2: User margins during composition to move text lines up or down.

=============== Diff against Graphics-mt.484 ===============

Item was changed:
  ----- Method: TextComposer>>composeEachRectangleIn: (in category 'private') -----
  composeEachRectangleIn: rectangles
  
  	| myLine lastChar |
  
  	1 to: rectangles size do: [:i | 
  		currCharIndex <= theText size ifFalse: [^false].
  		myLine := scanner 
  			composeFrom: currCharIndex 
  			inRectangle: (rectangles at: i)				
  			firstLine: isFirstLine 
  			leftSide: i=1 
  			rightSide: i=rectangles size.
  		lines addLast: myLine.
+ 		myLine moveByTopMargin.
+ 		actualHeight := actualHeight max: myLine lineHeightWithMargins.  "includes font changes and text style's #lineSpacing"
- 		actualHeight := actualHeight max: myLine lineHeight.  "includes font changes"
  		currCharIndex := myLine last + 1.
  		lastChar := theText at: myLine last.
  		(CharacterSet crlf includes: lastChar) ifTrue: [^#cr].
  		wantsColumnBreaks ifTrue: [
  			lastChar = Character characterForColumnBreak ifTrue: [^#columnBreak].
  		].
  	].
  	^false!