The Inbox: Multilingual-sn.131.mcz

Suslov Nikolay uploaded a new version of Multilingual to project The Inbox:
http://source.squeak.org/inbox/Multilingual-sn.131.mcz

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

Name: Multilingual-sn.131
Author: sn
Time: 8 November 2010, 12:54:12.262 am
UUID: 64aa8ddf-9938-4373-a45d-7bde1c0ccced
Ancestors: Multilingual-ul.130

Fixes for Latin1Environment from EToys

=============== Diff against Multilingual-ul.130 ===============

Item was changed:
  ----- Method: Latin1Environment class>>fileNameConverterClass (in category 'subclass responsibilities') -----
  fileNameConverterClass
 
+ ^ self systemConverterClass
- ^ Latin1TextConverter
  !

Item was changed:
  ----- Method: Latin1Environment class>>inputInterpreterClass (in category 'subclass responsibilities') -----
  inputInterpreterClass
  | platformName osVersion |
  platformName := SmalltalkImage current platformName.
  osVersion := SmalltalkImage current osVersion.
  (platformName = 'Win32' and: [osVersion ~= 'CE'])
  ifTrue: [^ (self win32VMUsesUnicode) ifTrue: [UTF32InputInterpreter] ifFalse: [MacRomanInputInterpreter]].
  platformName = 'Mac OS'
+ ifTrue: [^ MacUnicodeInputInterpreter].
- ifTrue: [^ MacRomanInputInterpreter].
  platformName = 'unix'
  ifTrue: [^ UTF32InputInterpreter].
+ ^ MacUnicodeInputInterpreter!
- ^ MacRomanInputInterpreter!

Item was changed:
  ----- Method: Latin1Environment class>>systemConverterClass (in category 'subclass responsibilities') -----
  systemConverterClass
 
+ | platformName osVersion |
+ platformName := SmalltalkImage current platformName.
+ osVersion := SmalltalkImage current getSystemAttribute: 1002.
+ (platformName = 'Win32'
+ and: [osVersion = 'CE'])
+ ifTrue: [^ MacRomanTextConverter].
+ platformName = 'Win32'
+ ifTrue: [^ (self win32VMUsesUnicode) ifTrue: [UTF8TextConverter] ifFalse: [Latin1TextConverter]].
+ platformName = 'Mac OS'
+ ifTrue: [^ ('10*' match: SmalltalkImage current osVersion)
+ ifTrue: [UTF8TextConverter]
+ ifFalse: [MacRomanTextConverter]].
+ platformName = 'unix'
+ ifTrue: [^ UTF8TextConverter].
+ ^ MacRomanTextConverter!
- ^ Latin1TextConverter.
- !

Item was changed:
  ----- Method: MacUnicodeInputInterpreter>>initialize (in category 'initialization') -----
  initialize
  | satisfiesVersion |
  satisfiesVersion := self
  majorMinorBuildFrom: SmalltalkImage current vmVersion
+ satisfies: [:major :minor :build |
+ major >= 4 or: [
+ major >= 3 and: [minor >= 8 and: [build >= 7]]]].
- satisfies: [:major :minor :build |  (major >= 3
- and: [minor >= 8
- and: [build >= 7]]) or: [major >= 4]].
-
  satisfiesVersion
  ifTrue: [keyValueIndex := 6]
  ifFalse: [keyValueIndex := 3]!