[etoys-dev] Etoys: TrueType-Richo.5.mcz

[commits at source.squeak.org]

Ricardo Moran uploaded a new version of TrueType to project Etoys:
http://source.squeak.org/etoys/TrueType-Richo.5.mcz

==================== Summary ====================

Name: TrueType-Richo.5
Author: Richo
Time: 12 June 2010, 2:52:41 pm
UUID: eac6d292-1884-4e47-8da8-e965079f6b1f
Ancestors: TrueType-Richo.4

* Added (imagePath)/fonts as a path for looking fonts.

=============== Diff against TrueType-Richo.4 ===============

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.
  
+ 	aBlock value: (SmalltalkImage current imagePath, FileDirectory pathNameDelimiter asString, 'fonts').
+ 
  	"Platform specific directories"
  	SmalltalkImage current platformName caseOf:{
  		['Win32']	->	[
  			"Standard Windows fonts directory"
  			aBlock value: 'C:\Windows\Fonts'.
  		].
  		['Mac OS']	->	[
  			"Standard system fonts directory"
  			aBlock value: '/Library/Fonts'.
  		].
  		['unix']		->	[ | base |
  			"Standard fonts are in /usr/share/fonts/*"
  			base := '/usr/share/fonts'.
  			(FileDirectory on: base) directoryNames 
  				do:[:dn| aBlock value: base, '/', dn].
  		].
  	} otherwise:[].
  	!