Issue 3230 in pharo: Fixes for Latin1Environment from EToys

Status: FixedWaitingToBePharoed
Owner: stephane.ducasse
Labels: Type-Squeak

New issue 3230 by stephane.ducasse: Fixes for Latin1Environment from EToys
http://code.google.com/p/pharo/issues/detail?id=3230

***Need to be really verified if this applies to pharo***


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