--- 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 $'
! !