[Pkg] The Trunk: TrueType-ul.48.mcz

[commits at source.squeak.org]

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