Levente Uzonyi uploaded a new version of TrueType to project The Trunk: http://source.squeak.org/trunk/TrueType-ul.48.mcz
==================== Summary ====================
Name: TrueType-ul.48 Author: ul Time: 10 April 2017, 1:12:07.452066 pm UUID: e77f1e71-082c-45b2-a099-dc0d353ef32e Ancestors: TrueType-tfel.47
- on unix, visit the whole directory tree starting at /usr/share/fonts in TTFileDescription class>>fontPathsDo:, because most fonts have their own subdirectories
=============== Diff against TrueType-tfel.47 ===============
Item was changed: ----- Method: TTFileDescription class>>fontPathsDo: (in category 'font paths') ----- fontPathsDo: aBlock "Evaluate aBlock with all of the font paths that should be searched on the current platform"
"Start with the current directory" aBlock value: FileDirectory default pathName.
"Then subdirectory 'fonts'" aBlock value: (FileDirectory default directoryNamed: 'fonts') pathName.
"Platform specific directories" Smalltalk platformName caseOf:{ ['Win32'] -> [ "Standard Windows fonts directory" aBlock value: 'C:\Windows\Fonts'. ]. ['Mac OS'] -> [ "Standard system fonts directories" #('/System/Library/Fonts' '/Library/Fonts') do: [:fontDir | aBlock value: fontDir]. ]. ['unix'] -> [ | base | "Standard fonts are in /usr/share/fonts/*" base := '/usr/share/fonts'. + (FileDirectory on: base) directoryTreeDo: [ :path | + path last isDirectory ifTrue: [ + aBlock value: path last fullName ] ]. - (FileDirectory on: base) directoryNames - do:[:dn| aBlock value: base, '/', dn]. ]. } otherwise:[]. !