Nicolas Cellier uploaded a new version of ST80 to project The Trunk:
http://source.squeak.org/trunk/ST80-nice.69.mcz==================== Summary ====================
Name: ST80-nice.69
Author: nice
Time: 17 November 2009, 1:08:53 am
UUID: 6660d92f-aed3-44c4-96d2-8462fd861123
Ancestors: ST80-nice.68
Correct stupid typo I made
=============== Diff against ST80-nice.68 ===============
Item was changed:
----- Method: Paragraph>>updateCompositionHeight (in category 'private') -----
updateCompositionHeight
"Mainly used to insure that intersections with compositionRectangle work."
compositionRectangle := compositionRectangle withHeight:
(self bottomAtLineIndex: lastLine) - compositionRectangle top.
+ (text size ~= 0 and: [(text at: text size) = CR or: [(text at: text size) = Character lf]])
- (text size ~= 0 and: [(text at: text size) = CR of: [(text at: text size) = Character lf]])
ifTrue: [compositionRectangle := compositionRectangle withHeight:
compositionRectangle height + (lines at: lastLine) lineHeight]!