[Pharo-project] LanguageEnvironment depending on Network stuff

Stéphane Ducasse stephane.ducasse at inria.fr
Thu Mar 15 11:18:46 EDT 2012


I would also removed the thibetan environment.

Stef


> 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





More information about the Pharo-dev mailing list