'From etoys2.3 of 28 November 2007 [latest update: #1822] on 6 December 2007 at 12:37:42 am'!
"Change Set:		GreekClipboard-yo
Date:			6 December 2007
Author:			Yoshiki Ohshima

A fix for clipboard access for Greek on Windows."!


!UTF8GreekClipboardInterpreter methodsFor: 'as yet unclassified' stamp: 'yo 12/6/2007 00:36'!
fromSystemClipboard: aString
	| str |
	str _ aString convertFromWithConverter: UTF8TextConverter new.
	^ str collect: [:c |
		(#(
		16r20AC 16rFFFD 16r201A 16r0192 16r201E 16r2026 16r2020 16r2021
		16rFFFD 16r2030 16rFFFD 16r2039 16rFFFD 16rFFFD 16rFFFD 16rFFFD
		16rFFFD 16r2018 16r2019 16r201C 16r201D 16r2022 16r2013 16r2014
		16rFFFD 16r2122 16rFFFD 16r203A 16rFFFD 16rFFFD 16rFFFD 16rFFFD
		16r00A0 16r0385 16r0386 16r00A3 16r00A4 16r00A5 16r00A6 16r00A7
		16r00A8 16r00A9 16rFFFD 16r00AB 16r00AC 16r00AD 16r00AE 16r2015
		16r00B0 16r00B1 16r00B2 16r00B3 16r0384 16r00B5 16r00B6 16r00B7
		16r0388 16r0389 16r038A 16r00BB 16r038C 16r00BD 16r038E 16r038F
		16r0390 16r0391 16r0392 16r0393 16r0394 16r0395 16r0396 16r0397
		16r0398 16r0399 16r039A 16r039B 16r039C 16r039D 16r039E 16r039F
		16r03A0 16r03A1 16rFFFD 16r03A3 16r03A4 16r03A5 16r03A6 16r03A7
		16r03A8 16r03A9 16r03AA 16r03AB 16r03AC 16r03AD 16r03AE 16r03AF
		16r03B0 16r03B1 16r03B2 16r03B3 16r03B4 16r03B5 16r03B6 16r03B7
		16r03B8 16r03B9 16r03BA 16r03BB 16r03BC 16r03BD 16r03BE 16r03BF
		16r03C0 16r03C1 16r03C2 16r03C3 16r03C4 16r03C5 16r03C6 16r03C7
		16r03C8 16r03C9 16r03CA 16r03CB 16r03CC 16r03CD 16r03CE 16rFFFD
		) includes: c charCode) ifTrue: [Character leadingChar: GreekEnvironment leadingChar code: c charCode] ifFalse: [c]].
	! !