22 Sep
2015
22 Sep
'15
2:39 a.m.
Just tried it.
Gorgeous!!!
Thanks!!!
Alexandre
On Sep 19, 2015, at 11:24 AM, Peter Uhnák
<i.uhnak(a)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
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.