'From Pharo2.0a of ''18 April 2012'' [Latest update: #20301] on 22 September 2012 at 11:21:59 am'!
Object subclass: #LanguageEnvironment
	instanceVariableNames: 'id '
	classVariableNames: 'ClipboardInterpreterClass Current FileNameConverterClass InputInterpreterClass KnownEnvironments SystemConverterClass FileNameConverter SystemConverter '
	poolDictionaries: ''
	category: 'Multilingual-Languages'!

!LanguageEnvironment class methodsFor: 'initialization' stamp: 'CamilloBruni 8/24/2012 18:05'!
clearDefault
	SystemConverter := nil.
	FileNameConverter := nil.
! !

!LanguageEnvironment class methodsFor: 'public query' stamp: 'CamilloBruni 8/24/2012 18:05'!
defaultFileNameConverter
	FileNameConverter
		ifNil: [FileNameConverter := self currentPlatform class fileNameConverterClass new].
	^ FileNameConverter! !

!LanguageEnvironment class methodsFor: 'public query' stamp: 'CamilloBruni 8/24/2012 18:06'!
defaultSystemConverter
	SystemConverter
		ifNil: [SystemConverter := self currentPlatform class systemConverterClass new].
	^ SystemConverter! !


!FilePath methodsFor: 'conversion' stamp: 'CamilloBruni 9/22/2012 10:24'!
pathName: p isEncoded: isEncoded
	| encodingConverter |
	encodingConverter := LanguageEnvironment defaultFileNameConverter.
	isEncoded ifTrue: [
		squeakPathName := p convertFromWithConverter: encodingConverter.
		vmPathName := p.
	] ifFalse: [
		squeakPathName := p isOctetString ifTrue: [p asOctetString] ifFalse: [p].
		vmPathName := squeakPathName convertToWithConverter: encodingConverter.
	].
! !

Object subclass: #FilePath
	instanceVariableNames: 'squeakPathName vmPathName'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Files-Directories'!
Object subclass: #LanguageEnvironment
	instanceVariableNames: 'id'
	classVariableNames: 'ClipboardInterpreterClass Current FileNameConverter InputInterpreterClass KnownEnvironments SystemConverter'
	poolDictionaries: ''
	category: 'Multilingual-Languages'!
	
[Morph subclass: #GroupWindowMorph
	uses: TEasilyThemed
	instanceVariableNames: 'tabGroup'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Morphic-Windows'] on: Error do: [].!