The Trunk: TrueType-ul.48.mcz

> On 10.04.2017, at 13:20, H. Hirzel <[hidden email]> wrote:
>
> Thank you for the fix, Levente.
>
> Now it works fine.
>
> --Hannes
>
> On Mon, 10 Apr 2017 11:12:34 0000, [hidden email]
> <[hidden email]> wrote:
>> 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:[].
>> !
>>
>>
>>
> <Unix_path_fix_for_FontImporterTool_Screenshot_2017-04-10.png>