| o i |
o :=�� #[76 97 32 76 97 32 76 97 110 100] asString asText.
i := GTInspector openOn: o.
[ 1 second wait.
o
������ addAttribute: TextEmphasis struckOut;
������ append: #[77 111 111 110 108 105 103 104 116] asString.
i model update ] fork.

;)