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!