Marcel Taeumel uploaded a new version of TrueType to project The Trunk: http://source.squeak.org/trunk/TrueType-mt.79.mcz
==================== Summary ====================
Name: TrueType-mt.79 Author: mt Time: 2 March 2022, 10:52:13.629269 am UUID: 1de8388f-08db-7248-9cd3-136cf1308e9d Ancestors: TrueType-mt.78
In TextConstants, organize known style names as symbol, not string.
=============== Diff against TrueType-mt.78 ===============
Item was changed: ----- Method: TTCFont class>>reorganizeForNewFontArray:name: (in category 'other') ----- reorganizeForNewFontArray: array name: styleName
| style existings regular altName | (TextConstants includesKey: styleName) ifFalse: [ + style := TextConstants at: styleName asSymbol put: (TextStyle fontArray: array). - style := TextConstants at: styleName put: (TextStyle fontArray: array). self register: array at: styleName. "Do this first to make #asPointSize: work" style defaultFont asPointSize: TextStyle defaultFont pointSize. "May create new point size" style defaultFontIndex: (style fontIndexOfPointSize: TextStyle defaultFont pointSize). ^ style ].
"There is a text style with the name I want to use. See if it is a TTC font..." style := TextConstants at: styleName. style isTTCStyle ifFalse: [ altName := ((array at: 1) name, 'TT') asSymbol. ^ self reorganizeForNewFontArray: array name: altName. ].
existings := (self getExistings: style fontArray), (Array with: array). regular := existings detect: [:e | (e at: 1) isRegular] ifNone: [existings at: 1].
regular do: [:r | r addLined: r. ].
"The existing array may be different in size than the new one." existings do: [:e | (e at: 1) isRegular ifFalse: [ regular do: [ :r | | f | f := e detect: [ :ea | ea pointSize = r pointSize ] ifNone: [ ]. f ifNotNil: [ r derivativeFont: f ]. ]. ]. ].
self register: regular at: styleName. style newFontArray: regular. style defaultFont asPointSize: TextStyle defaultFont pointSize. "May create new point size" style defaultFontIndex: (style fontIndexOfPointSize: TextStyle defaultFont pointSize).
^ style. !
packages@lists.squeakfoundation.org