Karl Ramberg uploaded a new version of Multilingual to project Etoys: http://source.squeak.org/etoys/Multilingual-kfr.20.mcz
==================== Summary ====================
Name: Multilingual-kfr.20 Author: kfr Time: 24 May 2011, 9:22:53 pm UUID: e8833a7b-7895-1247-a9e0-487b99fb57db Ancestors: Multilingual-kfr.19
Input method and clipboard copy&paste do not work for Chinese in Windows http://tracker.squeakland.org/browse/SQ-876
=============== Diff against Multilingual-kfr.19 ===============
Item was changed: ----- Method: SimplifiedChineseEnvironment class>>clipboardInterpreterClass (in category 'subclass responsibilities') ----- clipboardInterpreterClass | platformName osVersion | platformName := SmalltalkImage current platformName. osVersion := SmalltalkImage current getSystemAttribute: 1002. (platformName = 'Win32' and: [osVersion = 'CE']) ifTrue: [^NoConversionClipboardInterpreter]. + platformName = 'Win32' ifTrue: [^self win32VMUsesUnicode ifTrue: [UTF8CNClipboardInterpreter] ifFalse: [WinGB2312ClipboardInterpreter]]. - platformName = 'Win32' ifTrue: [^self win32VMUsesUnicode ifTrue: [UTF8ClipboardInterpreter] ifFalse: [WinGB2312ClipboardInterpreter]]. platformName = 'Mac OS' ifTrue: [('10*' match: SmalltalkImage current osVersion) ifTrue: [^NoConversionClipboardInterpreter] ifFalse: [^WinGB2312ClipboardInterpreter]]. platformName = 'unix' ifTrue: [(ShiftJISTextConverter encodingNames includes: X11Encoding getEncoding) ifTrue: [^MacShiftJISClipboardInterpreter] ifFalse: [^NoConversionClipboardInterpreter]]. ^NoConversionClipboardInterpreter!
Item was changed: ----- Method: SimplifiedChineseEnvironment class>>inputInterpreterClass (in category 'subclass responsibilities') ----- inputInterpreterClass | platformName osVersion encoding | platformName := SmalltalkImage current platformName. osVersion := SmalltalkImage current getSystemAttribute: 1002. (platformName = 'Win32' and: [osVersion = 'CE']) ifTrue: [^MacRomanInputInterpreter]. + platformName = 'Win32' + ifTrue: [^ (self win32VMUsesUnicode) ifTrue: [UTF32CNInputInterpreter] ifFalse: [WinGB2312InputInterpreter]]. - platformName = 'Win32' ifTrue: [^WinGB2312InputInterpreter]. platformName = 'Mac OS' ifTrue: [('10*' match: SmalltalkImage current osVersion) ifTrue: [^MacUnicodeInputInterpreter] ifFalse: [^WinGB2312InputInterpreter]]. platformName = 'unix' ifTrue: [encoding := X11Encoding encoding. (EUCJPTextConverter encodingNames includes: encoding) ifTrue: [^MacRomanInputInterpreter]. (UTF8TextConverter encodingNames includes: encoding) ifTrue: [^MacRomanInputInterpreter]. (ShiftJISTextConverter encodingNames includes: encoding) ifTrue: [^MacRomanInputInterpreter]]. ^MacRomanInputInterpreter!
Item was added: + KeyboardInputInterpreter subclass: #UTF32CNInputInterpreter + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Multilingual-TextConversion'!
Item was added: + ----- Method: UTF32CNInputInterpreter>>nextCharFrom:firstEvt: (in category 'as yet unclassified') ----- + nextCharFrom: sensor firstEvt: evtBuf + | keyValue | + keyValue := evtBuf at: 6. + keyValue < 256 + ifTrue: [^ (Character value: keyValue) squeakToIso]. + ^ Character leadingChar: SimplifiedChineseEnvironment leadingChar code: keyValue!
Item was added: + UTF8ClipboardInterpreter subclass: #UTF8CNClipboardInterpreter + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Multilingual-TextConversion'!
Item was added: + ----- Method: UTF8CNClipboardInterpreter>>fromSystemClipboard: (in category 'as yet unclassified') ----- + fromSystemClipboard: aString + ^aString convertFromWithConverter: UTF8TextConverter new.!