'From Squeak3.8gamma of ''24 November 2004'' [latest update: #6638] on 5 April 2005 at 10:06:06 am'! "Change Set: RevertTextExtFix Date: 5 April 2005 Author: Yoshiki Ohshima Revert the incomplete fix of TextExtentFix."! !MultiTextComposer methodsFor: 'as yet unclassified' stamp: 'yo 1/23/2003 12:53'! 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. presentationLines addLast: scanner getPresentationLine. presentation ifNil: [presentation _ scanner getPresentation] ifNotNil: [presentation _ presentation, scanner getPresentation]. actualHeight _ actualHeight max: myLine lineHeight. "includes font changes" currCharIndex _ myLine last + 1. lastChar _ theText at: myLine last. lastChar = Character cr ifTrue: [^#cr]. wantsColumnBreaks ifTrue: [ lastChar = TextComposer characterForColumnBreak ifTrue: [^#columnBreak]. ]. ]. ^false! ! !TextMorph methodsFor: 'geometry' stamp: 'di 7/20/2001 22:51'! minimumExtent | minExt | textStyle ifNil: [^ 9@16]. borderWidth ifNil: [^ 9@16]. minExt _ (9@(textStyle lineGrid+2)) + (borderWidth*2). margins ifNil: [^ minExt]. ^ ((0@0 extent: minExt) expandBy: margins) extent! !