2013/10/12 Nicolas Cellier <nicolas.cellier.aka.nice@gmail.com>
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