--- a/ObjectCoder.st	Wed Feb 06 20:10:11 2002 +0100
+++ b/ObjectCoder.st	Wed Feb 06 20:10:50 2002 +0100
@@ -14,7 +14,7 @@
 
 "{ Package: 'stx:libbasic' }"
 
-Object subclass:#ObjectCoder
+AbstractObjectCoder subclass:#ObjectCoder
 	instanceVariableNames:'stream'
 	classVariableNames:''
 	poolDictionaries:''
@@ -136,120 +136,6 @@
 
 ! !
 
-!ObjectCoder methodsFor:'encoding-smalltalk-types'!
-
-encodeAbsoluteTime:anAbsoluteTime with:aParameter
-    "encode an absolute time value"
-
-    self encodeObject:anAbsoluteTime with:aParameter
-
-
-!
-
-encodeBitArray:aBitArray with:aParameter
-    "encode a BitArray"
-
-    self encodeObject:aBitArray with:aParameter
-
-
-!
-
-encodeBoolean:aBoolean with:aParameter
-    "encode a Boolean"
-
-    self encodeObject:aBoolean with:aParameter
-
-
-!
-
-encodeByteArray:aByteArray with:aParameter
-    "encode an absolute time value"
-
-    self encodeObject:aByteArray with:aParameter
-
-
-!
-
-encodeCharacter:aCharacter with:aParameter
-    "encode a Character"
-
-    self encodeObject:aCharacter with:aParameter
-
-
-!
-
-encodeDictionary:aDictionary with:aParameter
-    "encode a Dictionary"
-
-    self encodeObject:aDictionary with:aParameter
-
-
-!
-
-encodeFloat:aFloat with:aParameter
-    "encode a Float"
-
-    self encodeObject:aFloat with:aParameter
-
-
-!
-
-encodeInteger:anInteger with:aParameter
-    "encode an Integer"
-
-    self encodeObject:anInteger with:aParameter
-
-
-!
-
-encodeNilWith:aParameter
-    "encode a nil"
-
-    self encodeObject:nil with:aParameter
-
-
-!
-
-encodeObject:anObject with:aParameter
-    "encode an object. Subclasses must implement this method"
-
-    self subclassResponsibility
-
-
-!
-
-encodeSequencableCollection:aCollection with:aParameter
-    "encode a SequencableCollection"
-
-    self encodeObject:aCollection with:aParameter
-
-
-!
-
-encodeSet:aCollection with:aParameter
-    "encode a Set"
-
-    self encodeObject:aCollection with:aParameter
-
-
-!
-
-encodeString:aString with:aParameter
-    "encode a String"
-
-    self encodeObject:aString with:aParameter
-
-
-!
-
-encodeSymbol:aSymbol with:aParameter
-    "encode a Symbol"
-
-    self encodeObject:aSymbol with:aParameter
-
-
-! !
-
 !ObjectCoder methodsFor:'initialization'!
 
 close
@@ -285,5 +171,5 @@
 !ObjectCoder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ObjectCoder.st,v 1.4 2000-09-20 08:32:51 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ObjectCoder.st,v 1.5 2002-02-06 19:10:50 stefan Exp $'
 ! !