--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/CharacterEncoderImplementations__TwoByteEncoder.st	Fri Mar 05 18:14:28 2004 +0100
@@ -0,0 +1,71 @@
+"{ Encoding: utf8 }"
+
+"{ Package: 'stx:libbasic' }"
+
+"{ NameSpace: CharacterEncoderImplementations }"
+
+CharacterEncoder subclass:#TwoByteEncoder
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Collections-Text-Encodings'
+!
+
+TwoByteEncoder class instanceVariableNames:'mySingleInstance'
+
+"
+ No other class instance variables are inherited by this class.
+"
+!
+
+
+!TwoByteEncoder class methodsFor:'instance creation'!
+
+new
+    "singleton - there is only one"
+
+    mySingleInstance isNil ifTrue:[
+	mySingleInstance := self basicNew initialize.
+    ].
+    ^ mySingleInstance
+! !
+
+!TwoByteEncoder class methodsFor:'private'!
+
+flushSingletons
+    mySingleInstance := nil.
+    super flushSingletons
+
+    "
+     self flushSingletons
+    "
+! !
+
+!TwoByteEncoder class methodsFor:'queries'!
+
+maxCode
+    ^ 16rFFFF 
+!
+
+minCode
+    ^ 0 
+! !
+
+!TwoByteEncoder class methodsFor:'testing'!
+
+isAbstract
+    self == TwoByteEncoder ifTrue:[^ true].
+    ^ super isAbstract
+! !
+
+!TwoByteEncoder methodsFor:'private'!
+
+newString:size
+    ^ TwoByteString uninitializedNew:size
+! !
+
+!TwoByteEncoder class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__TwoByteEncoder.st,v 1.1 2004-03-05 17:12:27 cg Exp $'
+! !