The Trunk: Multilingual-tfel.216.mcz

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.
- !