[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
|