| changes translationFile fontFile formTranslator stream |
translationFile := 'ja050223-1.translation'.
fontFile := 'uJapaneseFont.out'.
formTranslator := 'formTranslator_ja.bin'.

changes := (self memberNames
	select: [:each | 'updates*' match: each]) asSortedCollection.

self extractMember: translationFile.
self extractMember: fontFile.
self extractMember: 'scripts/SqueaklandSplash.morph'.
self extractMember: 'scripts/Nezumi.morph'.
self extractMember: 'scripts/RelNote7.0.morph'.
self extractMember: formTranslator.

(NaturalLanguageTranslator isoLanguage: 'ja') loadFromFileNamed: translationFile.

changes do: [ :each | self installMember: each].

StrikeFontSet installExternalFontFileName6: fontFile encoding: JapaneseEnvironment leadingChar encodingName: #Japanese textStyleName: #DefaultMultiStyle.

stream _ FileStream oldFileNamed: formTranslator.
[NaturalLanguageFormTranslator loadFormsFrom: stream]
	ensure: [stream close].

"
StringHolder new
		acceptContents: ((self memberNamed: 'README.txt') contents convertFromWithConverter: ShiftJISTextConverter new);
		openLabel: 'README'.
"