On Mar 15, 2012, at 2:34 PM, Guillermo Polito wrote:
> Do we want this dependency?
>
This has been removed some weeks ago.
> 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
--
Marcus Denker -- http://marcusdenker.de
