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