Do we want this dependency?
LanguageEnvironment>>fontDownload
"(Locale isoLanguage: 'ja') languageEnvironment fontDownload"
(FileDirectory default fileExists: self fontFullName)
ifTrue: [^ self].
Cursor read
showWhile: [self fontDownloadUrls
do: [:each | [ | contents f |contents := (each
, '/' , self
fontFileName) asUrl retrieveContents contents.
(contents first: 2)
= 'PK'
ifTrue: [f := FileStream
newFileNamed: self fontFullName.
f binary.
[f nextPutAll: contents]
ensure: [f
close].
^ self]]
on: NameLookupFailure
do: [:e | e]]].
self error: 'Fonts does not found (' , self fontFullName , ')'
http://code.google.com/p/pharo/issues/detail?id=5479&thanks=5479&ts=1331734668