Really cool! I am currently traveling. I will have a look at it!

Thanks! Alexandre

On Sep 19, 2015, at 11:24 AM, Peter Uhnák i.uhnak@gmail.com wrote:

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

<2015-09-19_16:23:34.png> ​ Peter