Marcel Taeumel uploaded a new version of TrueType to project The Trunk:
http://source.squeak.org/trunk/TrueType-mt.93.mcz

==================== Summary ====================

Name: TrueType-mt.93
Author: mt
Time: 3 June 2022, 3:11:24.198722 pm
UUID: 2bee8ec1-dd1a-7342-8fc7-66675359bf0b
Ancestors: TrueType-mt.92

Fixes issue with image-local fonts folder.
Fixes issue around non-existent class-var AllFontsAndFiles.
Removes redundant specialization in TTRemoteFontDescription.

=============== Diff against TrueType-mt.92 ===============

Item was changed:
  ----- Method: TTFontReader class>>allFontsAndFiles (in category 'font paths') -----
  allFontsAndFiles
  	"Answer a dictionary of all known family names and their corresponding file names."
  	
  	| result |
  	result := Dictionary new.
+ 	Cursor wait showWhile: [
+ 		self allFontNamesDo: [ :familyName :subfamilyName :fileName |
+ 			| names |
+ 			names := result at: familyName ifAbsentPut: [ OrderedCollection new ].
+ 			names add: fileName ]].
- 	Cursor wait showWhile:[self allFontNamesDo:[:familyName :subfamilyName :fileName |
- 		| names |
- 		names := AllFontsAndFiles at: familyName 
- 				ifAbsentPut:[OrderedCollection new].
- 		names add: fileName]].
  	^ result!

Item was changed:
  ----- Method: TTFontReader>>fileName (in category 'reading - support') -----
  fileName
  
+ 	^ fileName ifNil: [
+ 		| localPath |
+ 		fileName := (stream respondsTo: #file)
+ 			ifTrue: ["Probably a MultiByteBinaryOrTextStream"
+ 				stream name "full path"]
+ 			ifFalse: ["Probably an RWBinaryOrTextStream"
+ 				^ nil].
+ 		(fileName beginsWith: (localPath := Smalltalk imagePath))
+ 			ifTrue: ["Support copying image-local fonts folder along with .image file."
+ 				fileName := fileName copyFrom: localPath size + 1 to: fileName size.
+ 				fileName first = FileDirectory pathNameDelimiter
+ 					ifTrue: [fileName := fileName allButFirst]].
+ 		fileName]!
- 	^ fileName ifNil: [fileName := (stream respondsTo: #file)
- 		ifTrue: ["Probably a MultiByteBinaryOrTextStream"
- 			stream name "full path"]
- 		ifFalse: ["Probably an RWBinaryOrTextStream"
- 			^ nil]]!

Item was removed:
- ----- Method: TTRemoteFontDescription>>setFileName:fileOffset: (in category 'initialize-release') -----
- setFileName: aString fileOffset: byteOffset
- 	
- 	fileName := aString.
- 	fileOffset := byteOffset.!