2015-04-29 18:04 GMT+02:00 Sean P. DeNigris <[email protected]>:
> Nicolai Hess wrote
> > Assign the proper Attribute?
>
> Well AFAICT there is no bold attribute,
Ah yes, I mix up this with TextMorph and addAttribute:TextEmphasis....
> but I tried setting the font to bold
> via "(LogicalFont familyName: 'Tahoma' pointSize: 9 + i) emphasis: 1;
> yourself." but it was rendered the same as before...
>
>
If the font is in the system, this should work.
| text font1 font2 font3 string1 |
font1 := (LogicalFont familyName: 'Tahoma' pointSize: 25) emphasis:
TextEmphasis normal emphasisCode.
font2 := (LogicalFont familyName: 'Tahoma' pointSize: 25) emphasis:
TextEmphasis bold emphasisCode.
font3 := (LogicalFont familyName: 'Tahoma' pointSize: 25) emphasis:
TextEmphasis italic emphasisCode.
string1 := 'Normal Bold Italic '.
text := TxModel new.
text at: text startPosition insert: string1.
(text startPosition selectTo: text startPosition + 7)
applyAttribute: (TxForeColorAttribute with: Color red);
applyAttribute: (TxFontAttribute with: font1).
(text startPosition + 7 selectTo: text startPosition + 12)
applyAttribute: (TxForeColorAttribute with: Color green);
applyAttribute: (TxFontAttribute with: font2).
(text startPosition + 12 selectTo: text startPosition + 18)
applyAttribute: (TxForeColorAttribute with: Color blue);
applyAttribute: (TxFontAttribute with: font3).
TxTextEditorMorph openInWindowWithText: text
>
>
> -----
> Cheers,
> Sean
> --
> View this message in context:
> http://forum.world.st/Tx-Bold-Text-tp4822964p4822987.html
> Sent from the Pharo Smalltalk Developers mailing list archive at
> Nabble.com.
>
>
