--- a/AlignOrg.st	Thu Nov 23 11:43:41 1995 +0100
+++ b/AlignOrg.st	Thu Nov 23 18:42:34 1995 +0100
@@ -106,36 +106,74 @@
 
 	top open
 "
-!
-
-version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/AlignOrg.st,v 1.7 1995-11-11 16:04:11 cg Exp $'
 ! !
 
 !AlignmentOrigin methodsFor:'accessing'!
 
+leftAlignmentFraction
+    "return leftAlignmentFraction"
+
+    ^ leftAlignmentFraction
+!
+
 leftAlignmentFraction:something
     "set leftAlignmentFraction"
 
     leftAlignmentFraction := something.
 !
 
-leftAlignmentFraction
-    "return leftAlignmentFraction"
+topAlignmentFraction
+    "return topAlignmentFraction"
 
-    ^ leftAlignmentFraction
+    ^ topFraction
 !
 
 topAlignmentFraction:something
     "set topAlignmentFraction"
 
     topAlignmentFraction := something.
+! !
+
+!AlignmentOrigin methodsFor:'converting'!
+
+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"
 !
 
-topAlignmentFraction
-    "return topAlignmentFraction"
+literalArrayEncoding
+    "encode myself as an array.
+     The encoding is: 
+	(#AlignmentOrigin orgOffsX relOrgX orgOffsY relOrgY leftAlignFract topAlignFract)"
 
-    ^ topFraction
+    ^ super literalArrayEncoding
+      , (Array
+	    with:leftAlignmentFraction
+	    with:topAlignmentFraction)
+
+    "Modified: 1.9.1995 / 02:43:35 / claus"
+! !
+
+!AlignmentOrigin methodsFor:'initialization'!
+
+initialize
+    super initialize.
+    leftAlignmentFraction := topAlignmentFraction := 0.
 ! !
 
 !AlignmentOrigin methodsFor:'printing & storing'!
@@ -151,7 +189,6 @@
 	, ')'
 ! !
 
-
 !AlignmentOrigin methodsFor:'queries'!
 
 rectangleRelativeTo:superRectangle preferred:prefRect
@@ -194,44 +231,8 @@
     "
 ! !
 
-!AlignmentOrigin methodsFor:'initialization'!
-
-initialize
-    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)
+!AlignmentOrigin class methodsFor:'documentation'!
 
-    "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"
+version
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/AlignOrg.st,v 1.8 1995-11-23 17:42:13 cg Exp $'
 ! !