Re: [Pharo-users] RTStyledLabel

[Alexandre Bergel]

Just tried it. 
Gorgeous!!!

Thanks!!!

Alexandre


> On Sep 19, 2015, at 11:24 AM, Peter Uhnák  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
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.

Re: [Pharo-users] RTStyledLabel

[Alexandre Bergel]

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  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
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.

[Pharo-users] RTStyledLabel

[Peter Uhnák]

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