'From etoys3.0 of 24 February 2008 [latest update: #2120] on 29 August 2008 at 2:14:30 pm'!
UTF32InputInterpreter subclass: #UTF32RussianInputInterpreter
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Multilingual-TextConversion'!

!RussianEnvironment class methodsFor: 'as yet unclassified' stamp: 'yo 8/29/2008 14:12'!
clipboardInterpreterClass

	^ UTF8ClipboardInterpreter.
! !

!RussianEnvironment class methodsFor: 'as yet unclassified' stamp: 'yo 8/29/2008 14:12'!
fileNameConverterClass

	^UTF8TextConverter.
! !

!RussianEnvironment class methodsFor: 'as yet unclassified' stamp: 'yo 8/29/2008 14:12'!
inputInterpreterClass
	| platformName osVersion |
	platformName := SmalltalkImage current platformName.
	osVersion := SmalltalkImage current getSystemAttribute: 1002.
	platformName = 'Win32'
		ifTrue: [^ (self win32VMUsesUnicode) ifTrue: [UTF32RussianInputInterpreter] ifFalse: [MacRomanInputInterpreter]].
	platformName = 'Mac OS'
		ifTrue: [^ (('10*' match: SmalltalkImage current osVersion)
					and: [(SmalltalkImage current getSystemAttribute: 3) isNil])
				ifTrue: [MacUnicodeInputInterpreter]
				ifFalse: [MacRomanInputInterpreter]].
	platformName = 'unix'
		ifTrue: [^ UTF32RussianInputInterpreter].
	^ MacRomanInputInterpreter! !

!RussianEnvironment class methodsFor: 'as yet unclassified' stamp: 'yo 8/29/2008 14:11'!
systemConverterClass

	^ UTF8TextConverter! !


!UTF32RussianInputInterpreter methodsFor: 'as yet unclassified' stamp: 'yo 8/29/2008 14:09'!
nextCharFrom: sensor firstEvt: evtBuf 
	| keyValue |
	keyValue := evtBuf at: 6.
	keyValue < 256
		ifTrue: [^ (Character value: keyValue) squeakToIso].
	^ Character leadingChar: RussianEnvironment leadingChar code: keyValue! !