The Trunk: TrueType-ul.48.mcz - Squeak-dev

10 Apr 2017


      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:[].
    !