2015-04-29 21:32 GMT+02:00 Nicolai Hess <nicolaihess@web.de>:

2015-04-29 18:04 GMT+02:00 Sean P. DeNigris <sean@clipperadams.com>:
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.

If an emphasisCode is used at low level, that's fine, but shouldn't the API be more straight like:

�� emphasis: aTextEmphasis

or:

�� emphasisCode: anIntegerOrSymbolOrLetterOrAnyOtherWayToCodeAnEmphasis

Nicolas

�� 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.