Patrick Rein uploaded a new version of MorphicTests to project The Trunk: http://source.squeak.org/trunk/MorphicTests-pre.66.mcz
==================== Summary ====================
Name: MorphicTests-pre.66 Author: pre Time: 25 September 2020, 9:44:57.768674 am UUID: 4785ae25-ad3c-ad4b-8341-0f3f4a4f3f1d Ancestors: MorphicTests-mt.65
Adds a test case for layouting morphs in text in case the TextAnchor attribute is applied to more than the SoH character (which is unusual but valid).
=============== Diff against MorphicTests-mt.65 ===============
Item was added: + ----- Method: TextAnchorTest>>testTwoTextAnchorsOneWithNestedInterval (in category 'tests') ----- + testTwoTextAnchorsOneWithNestedInterval + + | anchorAttribute2 anchoredMorph2 | + anchoredMorph2 := RectangleMorph new. + anchoredMorph height: 40. + anchoredMorph2 height: 40. + anchorAttribute2 := TextAnchor new anchoredMorph: anchoredMorph2. + text := Text streamContents: [:stream | + stream + nextPutAll: 'contrived '; + nextPutAll: Character startOfHeader asString asText; + nextPutAll: ' whose morph is in the center.'; + nextPutAll: Character startOfHeader asString asText; + nextPutAll: 'and some more text!!']. + text addAttribute: anchorAttribute from: 11 to: 61. + text addAttribute: anchorAttribute2 from: 42 to: 48. + textMorph hResizing: #shrinkWrap. + self prepareTextMorph. + + self assert: textMorph paragraph lines first lineHeight < 50. + self assert: anchoredMorph right < anchoredMorph2 left!
packages@lists.squeakfoundation.org