[etoys-dev] Etoys: Multilingual-kfr.20.mcz

[commits at source.squeak.org]

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