Marcel Taeumel uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-mt.275.mcz
==================== Summary ====================
Name: Multilingual-mt.275 Author: mt Time: 5 April 2022, 5:11:53.218013 pm UUID: 78036f07-7964-4e69-bcd9-ef8a71100a67 Ancestors: Multilingual-mt.274
Fixes several Unicode input interpreters to consider third buffer position (i.e. ASCII) if the sixth is zero, which aligns with the implementation in UTF32InputInterpreter and UTF32JPInputInterpreter.
=============== Diff against Multilingual-mt.274 ===============
Item was changed: ----- Method: MacUnicodeInputInterpreter>>nextCharFrom:firstEvt: (in category 'keyboard') ----- nextCharFrom: sensor firstEvt: evtBuf | keyValue mark | keyValue := evtBuf at: 6. + keyValue = 0 ifTrue: [keyValue := evtBuf at: 3]. mark := self japaneseSpecialMark: keyValue. + mark notNil ifTrue: [^ mark]. - mark notNil - ifTrue: [^ mark]. - "Smalltalk systemLanguage charsetClass charFromUnicode: keyValue." ^ Unicode value: keyValue!
Item was changed: ----- Method: UTF32CNInputInterpreter>>nextCharFrom:firstEvt: (in category 'as yet unclassified') ----- nextCharFrom: sensor firstEvt: evtBuf | keyValue | keyValue := evtBuf at: 6. + keyValue = 0 ifTrue: [keyValue := evtBuf at: 3]. keyValue < 256 ifTrue: [^Character value: keyValue]. ^ Character leadingChar: SimplifiedChineseEnvironment leadingChar code: keyValue!
Item was changed: ----- Method: UTF32GreekInputInterpreter>>nextCharFrom:firstEvt: (in category 'as yet unclassified') ----- nextCharFrom: sensor firstEvt: evtBuf | keyValue | keyValue := evtBuf at: 6. + keyValue = 0 ifTrue: [keyValue := evtBuf at: 3]. keyValue < 256 ifTrue: [^Character value: keyValue]. ^ Character leadingChar: GreekEnvironment leadingChar code: keyValue!
Item was changed: ----- Method: UTF32NPInputInterpreter>>nextCharFrom:firstEvt: (in category 'all') ----- nextCharFrom: sensor firstEvt: evtBuf | keyValue | keyValue := evtBuf at: 6. + keyValue = 0 ifTrue: [keyValue := evtBuf at: 3]. keyValue < 256 ifTrue: [^Character value: keyValue]. ^ Character leadingChar: NepaleseEnvironment leadingChar code: keyValue!
Item was changed: ----- Method: UTF32RussianInputInterpreter>>nextCharFrom:firstEvt: (in category 'keyboard') ----- nextCharFrom: sensor firstEvt: evtBuf | keyValue | keyValue := evtBuf at: 6. + keyValue = 0 ifTrue: [keyValue := evtBuf at: 3]. keyValue < 256 ifTrue: [^Character value: keyValue]. ^ Character leadingChar: RussianEnvironment leadingChar code: keyValue!
packages@lists.squeakfoundation.org