AlignmentOrigin.st
changeset 191 cb2815b77100
parent 126 25df58661f32
child 216 a5f97668e99a
--- a/AlignmentOrigin.st	Fri Apr 19 18:07:39 1996 +0200
+++ b/AlignmentOrigin.st	Mon Apr 22 13:02:23 1996 +0200
@@ -11,10 +11,10 @@
 "
 
 LayoutOrigin subclass:#AlignmentOrigin
-	 instanceVariableNames:'leftAlignmentFraction topAlignmentFraction'
-	 classVariableNames:''
-	 poolDictionaries:''
-	 category:'Graphics-Geometry'
+	instanceVariableNames:'leftAlignmentFraction topAlignmentFraction'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Graphics-Geometry'
 !
 
 !AlignmentOrigin class methodsFor:'documentation'!
@@ -157,16 +157,18 @@
 !
 
 literalArrayEncoding
-    "encode myself as an array.
+    "encode myself as an array, from which a copy of the receiver
+     can be reconstructed with #decodeAsLiteralArray.
      The encoding is: 
-	(#AlignmentOrigin orgOffsX relOrgX orgOffsY relOrgY leftAlignFract topAlignFract)"
+        (#AlignmentOrigin orgOffsX relOrgX orgOffsY relOrgY leftAlignFract topAlignFract)"
 
     ^ super literalArrayEncoding
       , (Array
-	    with:leftAlignmentFraction
-	    with:topAlignmentFraction)
+            with:leftAlignmentFraction
+            with:topAlignmentFraction)
 
     "Modified: 1.9.1995 / 02:43:35 / claus"
+    "Modified: 22.4.1996 / 12:59:56 / cg"
 ! !
 
 !AlignmentOrigin methodsFor:'initialization'!
@@ -234,5 +236,5 @@
 !AlignmentOrigin class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/AlignmentOrigin.st,v 1.8 1995-11-23 17:42:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/AlignmentOrigin.st,v 1.9 1996-04-22 11:01:24 cg Exp $'
 ! !