| text |
text := Compiler evaluate: (FileSystem workingDirectory parent parent parent / '
text.st' ) readStream contentsOfEntireFile .
MessageTally spyOn: [100 timesRepeat: [Paragraph new
������� compose: text
������� style: TextStyle default copy
������� from: 1
������� in: ( 0@0 corner: 569@9999999)]].
��� | text canvas m1 |
��� canvas := FormCanvas extent:� 569@399 depth: 32.
��� text := Compiler evaluate: (FileSystem workingDirectory parent parent parent / '
text.st' ) readStream contentsOfEntireFile .
��� m1 := TextMorph new.
��� m1 text: text textStyle: TextStyle default.
��� m1 wrapFlag: true.
��� m1 extent: 569@9999999.
MessageTally spyOn: [ 100 timesRepeat: [
��� m1 drawOn: canvas]].