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.uh...@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
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
