--- a/CharacterEncoderImplementations__TwoByteEncoder.st	Mon Mar 08 18:08:27 2004 +0100
+++ b/CharacterEncoderImplementations__TwoByteEncoder.st	Mon Mar 08 18:09:58 2004 +0100
@@ -1,45 +1,14 @@
-"{ Encoding: utf8 }"
-
 "{ Package: 'stx:libbasic' }"
 
 "{ NameSpace: CharacterEncoderImplementations }"
 
-CharacterEncoder subclass:#TwoByteEncoder
+CharacterEncoderImplementation 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'!
 
@@ -51,13 +20,6 @@
     ^ 0 
 ! !
 
-!TwoByteEncoder class methodsFor:'testing'!
-
-isAbstract
-    self == TwoByteEncoder ifTrue:[^ true].
-    ^ super isAbstract
-! !
-
 !TwoByteEncoder methodsFor:'private'!
 
 newString:size
@@ -67,5 +29,5 @@
 !TwoByteEncoder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__TwoByteEncoder.st,v 1.1 2004-03-05 17:12:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__TwoByteEncoder.st,v 1.2 2004-03-08 17:09:28 cg Exp $'
 ! !