# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1038308073 -3600
# Node ID ebfdcf4e35e5230f9d1dcc92135ccf31cab88bfd
# Parent  2434bee328c1b3e73f1ee35cb928653f5b32e181
utilities

diff -r 2434bee328c1 -r ebfdcf4e35e5 ObjectCoder.st
--- a/ObjectCoder.st	Tue Nov 26 11:45:55 2002 +0100
+++ b/ObjectCoder.st	Tue Nov 26 11:54:33 2002 +0100
@@ -73,6 +73,17 @@
 
 !ObjectCoder class methodsFor:'encoding'!
 
+decodingOf:anObject
+    "return the decoding of anObject"
+
+    ^ (self on:anObject readStream) upToEnd
+
+    "
+     Base64Coder encodingOf:#[1 2 16rFe 16rFF]
+     Base64Coder decodingOf:'AQL+/w=='    
+    "
+!
+
 encode:anObject on:aStream
 
     |coder|
@@ -93,6 +104,10 @@
     "return the encoding of anObject"
 
     ^ self new encodingOf:anObject with:nil
+
+    "
+     Base64Coder encodingOf:#[1 2 16rFe 16rFF]
+    "
 !
 
 encodingOf:anObject with:aParameter
@@ -206,5 +221,5 @@
 !ObjectCoder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ObjectCoder.st,v 1.9 2002-08-02 14:10:02 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ObjectCoder.st,v 1.10 2002-11-26 10:54:33 cg Exp $'
 ! !