'From etoys2.3 of 28 November 2007 [latest update: #1823] on 7 December 2007 at 3:18 pm'!
"Change Set:		GreekInput2-yo
Date:			7 December 2007
Author:			Yoshiki Ohshima

A return symbol was missing."!


!GreekEnvironment class methodsFor: 'subclass responsibilities' stamp: 'yo 12/7/2007 15:17'!
inputInterpreterClass
	| platformName osVersion |
	platformName := SmalltalkImage current platformName.
	osVersion := SmalltalkImage current getSystemAttribute: 1002.
	(platformName = 'Win32'
			and: [osVersion = 'CE'])
		ifTrue: [^ MacRomanInputInterpreter].
	platformName = 'Win32'
		ifTrue: [^ (self win32VMUsesUnicode) ifTrue: [UTF32GreekInputInterpreter] ifFalse: [CP1253InputInterpreter]].
	platformName = 'Mac OS'
		ifTrue: [^ (('10*' match: SmalltalkImage current osVersion)
					and: [(SmalltalkImage current getSystemAttribute: 3) isNil])
				ifTrue: [MacUnicodeInputInterpreter]
				ifFalse: [MacShiftJISInputInterpreter]].
	platformName = 'unix'
		ifTrue: [^ UTF32GreekInputInterpreter].
	^ MacRomanInputInterpreter! !