Etoys: Multilingual-kfr.20.mcz

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

_______________________________________________
etoys-dev mailing list
[hidden email]
http://lists.squeakland.org/mailman/listinfo/etoys-dev