'From Croquet1.0beta of 11 April 2006 [latest update: #1] on 4 June 2007 at 9:54:40 pm'!
"Change Set:		UTF8Clipboard
Date:			4 June 2007
Author:			Andreas Raab

- UTF8 clipboard support"!

ClipboardInterpreter subclass: #UTF8ClipboardInterpreter
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Multilingual-TextConversion'!

!LanguageEnvironment class methodsFor: 'public query' stamp: 'ar 6/3/2007 18:48'!
defaultClipboardInterpreter
	Smalltalk platformName = 'Win32' ifTrue:[^UTF8ClipboardInterpreter new].
	ClipboardInterpreterClass ifNil: [ClipboardInterpreterClass := self currentPlatform class clipboardInterpreterClass].
	^ ClipboardInterpreterClass new.

! !

!LanguageEnvironment class methodsFor: 'public query' stamp: 'ar 6/3/2007 18:49'!
defaultFileNameConverter
	Smalltalk platformName = 'Win32' ifTrue:[^UTF8TextConverter new].
	FileNameConverterClass
		ifNil: [FileNameConverterClass := self currentPlatform class fileNameConverterClass].
	^ FileNameConverterClass new! !


!UTF8ClipboardInterpreter methodsFor: 'as yet unclassified' stamp: 'ar 6/3/2007 18:47'!
fromSystemClipboard: aString
	^aString utf8ToSqueak! !

!UTF8ClipboardInterpreter methodsFor: 'as yet unclassified' stamp: 'ar 6/3/2007 18:48'!
toSystemClipboard: aString
	^aString squeakToUtf8
! !