[Moose-dev] RTStyledLabel

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