Hi,

I've added RTStyledLabel which supports TextEmphasis.

RTGeneralExample>>styledLabel
~~~~~~~~~~~~~~
| v shape el all |
v := RTView new.
(shape := RTStyledLabel new) color: Color black.

#(normal italic bold underlined struckOut)��do: [ :each |
�� el := shape
�� emphasis: (TextEmphasis perform: each);
�� elementOn: each.
�� v add: el ].

all := shape
�� emphasis: { TextEmphasis bold. TextEmphasis italic. TextEmphasis underlined};
�� elementOn: 'bold + italic + underlined'.
v add: all.

RTVerticalLineLayout on: v elements.

v open
~~~~~~~~~~~~~~~~~~~~~

��
Peter