'From Squeak3.9 of 7 November 2006 [latest update: #7067] on 25 November 2006 at 3:33:15 pm'!

!FileList methodsFor: 'private' stamp: 'sumim 11/25/2006 15:32'!
defaultEncoderFor: aFileName

	"This method just illustrates the stupidest possible implementation of encoder selection."
	| l |
	l _ aFileName asLowercase.
"	((l endsWith: FileStream multiCs) or: [
		l endsWith: FileStream multiSt]) ifTrue: [
		^ UTF8TextConverter new.
	].
"
	((l endsWith: FileStream cs) or: [
		l endsWith: FileStream st]) ifTrue: [
		^ MacRomanTextConverter new.
	].

	(l endsWith: 'txt')
		ifTrue: [^ UTF8TextConverter new].

	^ Latin1TextConverter new.

	! !