--- a/AlignmentOrigin.st	Fri Apr 18 20:10:47 1997 +0200
+++ b/AlignmentOrigin.st	Fri Apr 18 20:11:06 1997 +0200
@@ -172,6 +172,15 @@
     leftAlignmentFraction := something.
 !
 
+leftAlignmentFraction:lF topAlignmentFraction:tF
+    "set both leftAlignmentFraction and topAlignmentFraction"
+
+    leftAlignmentFraction := lF.
+    topAlignmentFraction := tF
+
+    "Created: 18.4.1997 / 20:06:02 / cg"
+!
+
 topAlignmentFraction
     "return topAlignmentFraction"
 
@@ -303,5 +312,5 @@
 !AlignmentOrigin class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/AlignmentOrigin.st,v 1.19 1997-02-13 18:18:48 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/AlignmentOrigin.st,v 1.20 1997-04-18 18:11:06 cg Exp $'
 ! !