--- a/ObjectCoder.st	Tue Oct 19 16:54:00 2004 +0200
+++ b/ObjectCoder.st	Mon Oct 25 10:45:13 2004 +0200
@@ -73,14 +73,32 @@
 
 !ObjectCoder class methodsFor:'encoding'!
 
-decodingOf:anObject
-    "return the decoding of anObject"
+decode:anObject
+    "decode anObject"
 
     ^ (self on:anObject readStream) upToEnd
 
     "
-     Base64Coder encodingOf:#[1 2 16rFe 16rFF]
-     Base64Coder decodingOf:'AQL+/w=='    
+     Base64Coder encode:#[1 2 16rFe 16rFF]
+     Base64Coder decode:'AQL+/w=='    
+    "
+!
+
+decodingOf:anObject
+    "use encode"
+
+    <resource: #obsolete>
+
+    ^ self decode:anObject
+!
+
+encode:anObject
+    "encode of anObject"
+
+    ^ self new encodingOf:anObject with:nil
+
+    "
+     Base64Coder encode:#[1 2 16rFe 16rFF]
     "
 !
 
@@ -100,10 +118,18 @@
     anObject acceptVisitor:coder with:info.
 !
 
-encodingOf:anObject
+encode:anObject with:aParameter
     "return the encoding of anObject"
 
-    ^ self new encodingOf:anObject with:nil
+    ^ self new encodingOf:anObject with:aParameter
+!
+
+encodingOf:anObject
+    "use #encode:"
+
+    <resource: #obsolete>
+
+    ^ self encode:anObject
 
     "
      Base64Coder encodingOf:#[1 2 16rFe 16rFF]
@@ -111,7 +137,9 @@
 !
 
 encodingOf:anObject with:aParameter
-    "return the encoding of anObject"
+    "use #encode:with:"
+
+    <resource: #obsolete>
 
     ^ self new encodingOf:anObject with:aParameter
 ! !
@@ -153,7 +181,8 @@
         stream reset.
     ].
 
-    self nextPut:anObject with:aParameter.
+    anObject acceptVisitor:self with:aParameter.
+
     ^ stream contents.
 !
 
@@ -235,5 +264,5 @@
 !ObjectCoder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ObjectCoder.st,v 1.13 2004-06-11 19:59:08 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ObjectCoder.st,v 1.14 2004-10-25 08:45:13 stefan Exp $'
 ! !