2013/10/12 Nicolas Cellier <[email protected]> > So here is the display mini bench: > > | text canvas m1 m2 | > 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]]. > m2 := TxTextMorph new. > m2 layoutStrategy: TxWrapTextStrategy new. > m2 extent: 569@9999999. > m2 newTextContents: text. > MessageTally spyOn: [ 100 timesRepeat: [ > m2 drawOn: canvas]]. > > Squeak revised BitBltDisplayScanner 1077ms / Pharo MultiDisplayScanner > 1229ms / Pharo TxText 1584ms
Interesting how Athens drawing will change picture
