Michael Haupt uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-mha.57.mcz
==================== Summary ====================
Name: ST80-mha.57 Author: mha Time: 12 October 2009, 10:22:26 am UUID: 5c0482ec-8a2b-4eb9-b0d2-f586be85fe44 Ancestors: ST80-ar.56
made TestIndenting pass
both of the solutions described below are probably controversial
* the default font is different from what the tests expect in more recent trunk images; the test setup was changed to adhere to the test's expectations (might be more appropriate to instead have the test adhere to the system defaults)
* composition rectangle was changed in wrapping test to make text wrap in expected position (might be a problem in wrapping logic instead)
=============== Diff against ST80-ar.56 ===============
Item was changed: ----- Method: TestIndenting>>setUp (in category 'running') ----- setUp + | text style | - | text | text := 'p ' asText, (Text string: 'word word' attribute: (TextIndent tabs: 1)). + style := (TextStyle named: #Accuny) copy. + style defaultFontIndex: 2. "Default to Accuny12 as expected by tests." + para := text asParagraph textStyle: style! - para := text asParagraph!
Item was changed: ----- Method: TestIndenting>>testNewLineStartsIndentedWhenWrapped (in category 'testing') ----- testNewLineStartsIndentedWhenWrapped "Checks whether the beginning of a new line starts at the indented position" | cb | + para compositionRectangle: (0@0 extent: para width - 24@100); updateCompositionHeight. - para compositionRectangle: (0@0 extent: para width - 20@100); updateCompositionHeight. para clippingRectangle: (0@0 extent: 200@200). cb := para characterBlockForIndex: 8. self assert: cb top > 0. self assert: cb left = 24!