This enhancement is based on Squeak 3.4 latest change: #5170

Execute this statement to see that method 'reversed' reverses the
string of a text, but drops the text attributes:

  | text ts |

  ts := TextStream on: (Text new: 30).
  ts nextPutAll: 'abc'asText;
     nextPutAll: 'def' asText allBold;
     nextPutAll: 'ghijk' asText.
  text := ts contents.

(Workspace new)
  contents: text reversed;
  openLabel: 'Test'

The attached change set is an proposal to fix that.

Greetings, Boris
-------------- next part --------------
A non-text attachment was scrubbed...
Name: TextReversal.1.cs
Type: application/octet-stream
Size: 1304 bytes
Desc: not available
Url : http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20030608/753f6b2a/TextReversal.1.obj