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:[]. !
Thank you for the fix, Levente.
Now it works fine.
--Hannes
On Mon, 10 Apr 2017 11:12:34 0000, commits@source.squeak.org commits@source.squeak.org 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
]. } otherwise:[]. !do:[:dn| aBlock value: base, '/', dn].
\o/
Thanks y'all!
Best regards -Tobias
On 10.04.2017, at 13:20, H. Hirzel hannes.hirzel@gmail.com wrote:
Thank you for the fix, Levente.
Now it works fine.
--Hannes
On Mon, 10 Apr 2017 11:12:34 0000, commits@source.squeak.org commits@source.squeak.org 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
]. } otherwise:[]. !do:[:dn| aBlock value: base, '/', dn].
<Unix_path_fix_for_FontImporterTool_Screenshot_2017-04-10.png>
squeak-dev@lists.squeakfoundation.org