[squeak-dev] The Trunk: Multilingual-tfel.216.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Aug 30 17:07:25 UTC 2016


Tim Felgentreff uploaded a new version of Multilingual to project The Trunk:
http://source.squeak.org/trunk/Multilingual-tfel.216.mcz

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

Name: Multilingual-tfel.216
Author: tfel
Time: 2 August 2016, 10:01:52.413368 am
UUID: a4287057-8e19-d549-852b-85fa1bcca8ef
Ancestors: Multilingual-tfel.215, Multilingual-bf.24

merge from Squeakland Etoys image

=============== Diff against Multilingual-tfel.215 ===============

Item was changed:
  ----- Method: LanguageEnvironment class>>localeID: (in category 'accessing') -----
+ localeID: localeID 
+ 	"LanguageEnvironment localeID: (LocaleID isoString: 'ja-kid')"
+ 	"LanguageEnvironment localeID: (LocaleID isoString: 'xx')"
+ 	^ self knownEnvironments
+ 		at: localeID
+ 		ifAbsent: [localeID hasParent
+ 				ifTrue: [self knownEnvironments
+ 						at: localeID parent
+ 						ifAbsent: [self
+ 								localeID: (LocaleID isoLanguage: 'en')]]
+ 				ifFalse: [self
+ 						localeID: (LocaleID isoLanguage: 'en')]]!
- localeID: localeID
- 	^self knownEnvironments at: localeID ifAbsent: [self localeID: (LocaleID isoLanguage: 'en')]!

Item was changed:
  ----- Method: StrikeFontSet class>>createExternalFontFileForUnicodeKorean: (in category 'as yet unclassified') -----
  createExternalFontFileForUnicodeKorean: fileName
  "
  	Smalltalk garbageCollect.
  	StrikeFontSet createExternalFontFileForUnicodeKorean: 'uKoreanFont.out'.
  "
  
  	| file array f installDirectory |
+ 	file _ FileStream newFileNamed: fileName.
+ 	installDirectory _ Smalltalk at: #M17nInstallDirectory ifAbsent: [].
+ 	installDirectory _ installDirectory
- 	file := FileStream newFileNamed: fileName.
- 	installDirectory := Smalltalk at: #M17nInstallDirectory ifAbsent: [].
- 	installDirectory := installDirectory
  		ifNil: [String new]
  		ifNotNil: [installDirectory , FileDirectory pathNameDelimiter asString].
+ 	array _ Array
+ 				with: (StrikeFont newForKoreanFromEFontBDFFile: installDirectory , 'b12.bdf' name: 'Korean10' overrideWith: 'shnmk12.bdf')
+ 				with: ((StrikeFont newForKoreanFromEFontBDFFile: installDirectory , 'b14.bdf' name: 'Korean12' overrideWith: 'shnmk14.bdf') "fixAscent: 14 andDescent: 1 head: 1")
+ 				with: ((StrikeFont newForKoreanFromEFontBDFFile: installDirectory , 'b16.bdf' name: 'Korean14' overrideWith: 'hanglg16.bdf') fixAscent: 16 andDescent: 4 head: 4)
+ 				with: (StrikeFont newForKoreanFromEFontBDFFile: installDirectory , 'b24.bdf' name: 'Korean18' overrideWith: 'hanglm24.bdf').
- 	array := Array
- 				with: (StrikeFont newForKoreanFromEFontBDFFile: installDirectory , 'b12.bdf' name: 'Japanese10' overrideWith: 'shnmk12.bdf')
- 				with: ((StrikeFont newForKoreanFromEFontBDFFile: installDirectory , 'b14.bdf' name: 'Japanese12' overrideWith: 'shnmk14.bdf') "fixAscent: 14 andDescent: 1 head: 1")
- 				with: ((StrikeFont newForKoreanFromEFontBDFFile: installDirectory , 'b16.bdf' name: 'Japanese14' overrideWith: 'hanglg16.bdf') fixAscent: 16 andDescent: 4 head: 4)
- 				with: (StrikeFont newForKoreanFromEFontBDFFile: installDirectory , 'b24.bdf' name: 'Japanese18' overrideWith: 'hanglm24.bdf').
  	TextConstants at: #forceFontWriting put: true.
+ 	f _ ReferenceStream on: file.
- 	f := ReferenceStream on: file.
  	f nextPut: array.
  	file close.
+ 	TextConstants removeKey: #forceFontWriting.!
- 	TextConstants removeKey: #forceFontWriting.
- !



More information about the Squeak-dev mailing list