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'!