aHtmlString := '<i>Squeak</i> is <b>23 years</b> old.'. t := (HtmlReadWriter on: aHtmlString readStream) nextText. (Workspace new contents: t ) openLabel: 'Convert HTML to Text'
<font color="#00FF00">ABCDE</font>