Marcel Taeumel uploaded a new version of TrueType to project The Trunk: http://source.squeak.org/trunk/TrueType-ct.95.mcz
==================== Summary ====================
Name: TrueType-ct.95 Author: ct Time: 16 June 2022, 5:32:12.262112 pm UUID: 447342b6-162a-4948-a847-ba2ba3fdb5c0 Ancestors: TrueType-mt.94
Fixes senders of deprecated TTCFontSet class >> #newTextStyleFromTTFile:. Complements TrueType-mt.94. Please review. Do we really do not want to have #installFromFileName: (singular selector)?
=============== Diff against TrueType-mt.94 ===============
Item was changed: ----- Method: HostFont class>>initForSubtitles (in category '*TrueType') ----- initForSubtitles " HostFont initForSubtitles "
HostFont textStyleFrom: 'Verdana' sizes: #(18 20 22 24 26 28) ranges: HostFont defaultRanges.
StrikeFontSet installExternalFontFileName: 'greekFont.out' encoding: GreekEnvironment leadingChar encodingName: #Greek textStyleName: #DefaultMultiStyle.
TTCFontReader encodingTag: SimplifiedChineseEnvironment leadingChar. + TTCFontSet installFromFileNames: {'C:\WINDOWS\Fonts\simhei.TTF'}. - TTCFontSet newTextStyleFromTTFile: 'C:\WINDOWS\Fonts\simhei.TTF'.
TTCFontReader encodingTag: JapaneseEnvironment leadingChar. + TTCFontSet installFromFileNames: {'C:\WINDOWS\Fonts\msgothic.TTC'}. - TTCFontSet newTextStyleFromTTFile: 'C:\WINDOWS\Fonts\msgothic.TTC'.
TTCFontReader encodingTag: KoreanEnvironment leadingChar. + TTCFontSet installFromFileNames: {'C:\WINDOWS\Fonts\gulim.TTC'}.! - TTCFontSet newTextStyleFromTTFile: 'C:\WINDOWS\Fonts\gulim.TTC'. - !
Item was changed: ----- Method: TTCFont class>>serviceInstallTrueTypeFontStyle (in category 'file list services') ----- serviceInstallTrueTypeFontStyle "Return a service to install a true type font as a text style"
+ ^ (SimpleServiceEntry - ^ SimpleServiceEntry provider: self label: 'install TrueType font' + selector: #installFromFileNames: - selector: #newTextStyleFromTTFile: description: 'install a TrueType font as a new text style' + buttonLabel: 'install ttf') + argumentGetter: [:fileName | {fileName fullName}]! - buttonLabel: 'install ttf'!
packages@lists.squeakfoundation.org