Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1850.mcz
==================== Summary ====================
Name: Morphic-mt.1850 Author: mt Time: 19 January 2022, 5:53:24.171517 pm UUID: 8082e7e8-3dc5-8f49-95f3-217c08b6e59a Ancestors: Morphic-mt.1849
Complements Graphics-mt.462.
=============== Diff against Morphic-mt.1849 ===============
Item was changed: ----- Method: TextMorph>>fit (in category 'private') ----- fit "Adjust my bounds to fit the text. Should be a no-op if autoFit is not specified. Required after the text changes, or if wrapFlag is true and the user attempts to change the extent."
| newExtent para cBounds lastOfLines heightOfLast | self isAutoFit ifTrue: [ + newExtent := self paragraph extent. - newExtent := self paragraph extent max: 1 @ self defaultLineHeight. newExtent := newExtent + (2 * self borderWidth). margins ifNotNil: [newExtent := ((0 @ 0 extent: newExtent) expandBy: margins) extent]. newExtent ~= bounds extent ifTrue: [(container isNil and: [successor isNil]) ifTrue: [para := paragraph. "Save para (layoutChanged smashes it)" super extent: newExtent. paragraph := para]]. container notNil & successor isNil ifTrue: [cBounds := container bounds truncated. "23 sept 2000 - try to allow vertical growth" lastOfLines := self paragraph lines last. heightOfLast := lastOfLines bottom - lastOfLines top. (lastOfLines last < text size and: [lastOfLines bottom + heightOfLast >= self bottom]) ifTrue: [container releaseCachedState. cBounds := cBounds origin corner: cBounds corner + (0 @ heightOfLast)]. self privateBounds: cBounds]].
"These statements should be pushed back into senders" self paragraph positionWhenComposed: self position. successor ifNotNil: [successor predecessorChanged]. self changed "Too conservative: only paragraph composition should cause invalidation."!
Item was changed: ----- Method: TextMorph>>minHeight (in category 'layout') ----- minHeight
| result | + textStyle ifNil: [^ TextStyle defaultFont height]. - textStyle ifNil: [^ 16].
+ result := (paragraph + ifNil: [textStyle lineGrid] + ifNotNil: [paragraph lines first lineHeight]) + + (self borderWidth*2). - result := (textStyle lineGrid + 2) + (self borderWidth*2). margins ifNil: [^ result]. ^ margins isRectangle ifTrue: [result + margins top + margins bottom] ifFalse: [margins isPoint ifTrue: [result + margins y + margins y] ifFalse: [result + (2*margins)]]!
Item was changed: ----- Method: TextMorph>>minWidth (in category 'layout') ----- minWidth
| result | + textStyle ifNil: [^ (TextStyle defaultFont widthOf: $x)]. - textStyle ifNil: [^ 9].
+ result := (textStyle defaultFont widthOf: $x) + (self borderWidth*2). - result := 9 + (self borderWidth*2). margins ifNil: [^ result]. ^ margins isRectangle ifTrue: [result + margins left + margins right] ifFalse: [margins isPoint ifTrue: [result + margins x + margins x] ifFalse: [result + (2*margins)]]!
squeak-dev@lists.squeakfoundation.org