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.!
squeak-dev@lists.squeakfoundation.org