--- a/AlignmentOrigin.st	Wed Aug 30 19:54:43 1995 +0200
+++ b/AlignmentOrigin.st	Sat Sep 09 04:30:16 1995 +0200
@@ -110,7 +110,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview2/AlignmentOrigin.st,v 1.5 1995-08-29 17:42:57 claus Exp $
+$Header: /cvs/stx/stx/libview2/AlignmentOrigin.st,v 1.6 1995-09-09 02:29:17 claus Exp $
 "
 ! !
 
@@ -202,3 +202,38 @@
     super initialize.
     leftAlignmentFraction := topAlignmentFraction := 0.
 ! !
+
+!AlignmentOrigin methodsFor:'converting'!
+
+literalArrayEncoding
+    "encode myself as an array.
+     The encoding is: 
+	(#AlignmentOrigin orgOffsX relOrgX orgOffsY relOrgY leftAlignFract topAlignFract)"
+
+    ^ super literalArrayEncoding
+      , (Array
+	    with:leftAlignmentFraction
+	    with:topAlignmentFraction)
+
+    "Modified: 1.9.1995 / 02:43:35 / claus"
+!
+
+fromLiteralArrayEncoding:encoding
+    "read my values from an encoding.
+     The encoding is supposed to be of the form: 
+	(AlignmentOrigin orgOffsX relOrgX orgOffsY relOrgY leftAlignFract topAlignFract)"
+
+    leftOffset := encoding at:2.
+    leftFraction := encoding at:3.
+    topOffset := encoding at:4.
+    topFraction := encoding at:5.
+    leftAlignmentFraction := encoding at:6.
+    topAlignmentFraction := encoding at:7.
+
+
+    "
+      AlignmentOrigin new fromLiteralArrayEncoding:#(#AlignmentOrigin 70 0 2 0 0.5 0.25)
+    "
+
+    "Modified: 1.9.1995 / 02:23:53 / claus"
+! !