--- a/LayoutOrg.st	Thu Apr 17 19:53:00 1997 +0200
+++ b/LayoutOrg.st	Fri Apr 18 20:10:47 1997 +0200
@@ -173,6 +173,15 @@
     leftOffset := o
 !
 
+leftFraction:lF offset:lO topFraction:tF offset:tO 
+    "set leftFraction, leftOffset, topFraction and topOffset"
+
+    leftFraction := lF. leftOffset := lO.
+    topFraction := tF. topOffset := tO.
+
+    "Created: 18.4.1997 / 20:07:15 / cg"
+!
+
 leftFraction:newLeft topFraction:newTop 
     "set leftFraction and topFraction"
 
@@ -250,6 +259,18 @@
 
 !LayoutOrigin methodsFor:'converting'!
 
+asAlignmentOrigin
+    "return an equivalent alignmentOrigin"
+
+    ^ AlignmentOrigin new
+        leftFraction:leftFraction offset:leftOffset;
+        topFraction:topFraction offset:topOffset;
+        leftAlignmentFraction:0 topAlignmentFraction: 0;
+        yourself
+
+    "Created: 18.4.1997 / 20:08:14 / cg"
+!
+
 fromLiteralArrayEncoding:encoding
     "read my values from an encoding.
      The encoding is supposed to be of the form: 
@@ -362,5 +383,5 @@
 !LayoutOrigin class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/LayoutOrg.st,v 1.15 1997-02-11 23:06:37 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/LayoutOrg.st,v 1.16 1997-04-18 18:10:47 cg Exp $'
 ! !

--- a/LayoutOrigin.st	Thu Apr 17 19:53:00 1997 +0200
+++ b/LayoutOrigin.st	Fri Apr 18 20:10:47 1997 +0200
@@ -173,6 +173,15 @@
     leftOffset := o
 !
 
+leftFraction:lF offset:lO topFraction:tF offset:tO 
+    "set leftFraction, leftOffset, topFraction and topOffset"
+
+    leftFraction := lF. leftOffset := lO.
+    topFraction := tF. topOffset := tO.
+
+    "Created: 18.4.1997 / 20:07:15 / cg"
+!
+
 leftFraction:newLeft topFraction:newTop 
     "set leftFraction and topFraction"
 
@@ -250,6 +259,18 @@
 
 !LayoutOrigin methodsFor:'converting'!
 
+asAlignmentOrigin
+    "return an equivalent alignmentOrigin"
+
+    ^ AlignmentOrigin new
+        leftFraction:leftFraction offset:leftOffset;
+        topFraction:topFraction offset:topOffset;
+        leftAlignmentFraction:0 topAlignmentFraction: 0;
+        yourself
+
+    "Created: 18.4.1997 / 20:08:14 / cg"
+!
+
 fromLiteralArrayEncoding:encoding
     "read my values from an encoding.
      The encoding is supposed to be of the form: 
@@ -362,5 +383,5 @@
 !LayoutOrigin class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/LayoutOrigin.st,v 1.15 1997-02-11 23:06:37 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/LayoutOrigin.st,v 1.16 1997-04-18 18:10:47 cg Exp $'
 ! !