LayoutOrigin.st
changeset 1039 4095e7721dad
parent 949 0eb888b21192
child 1600 ac585461747e
--- a/LayoutOrigin.st	Thu Aug 13 17:10:16 1998 +0200
+++ b/LayoutOrigin.st	Thu Aug 13 18:41:10 1998 +0200
@@ -355,15 +355,14 @@
 
     prefRect := prefRectHolder value.
 
-    leftOffset isNil ifTrue:[
-        x := 0
-    ] ifFalse:[
-        x := leftOffset value
+    x := superRectangle left.
+    y := superRectangle top.
+
+    leftOffset notNil ifTrue:[
+        x := x + leftOffset value
     ].
-    topOffset isNil ifTrue:[
-        y := 0
-    ] ifFalse:[
-        y := topOffset value
+    topOffset notNil ifTrue:[
+        y := y + topOffset value
     ].
     leftFraction notNil ifTrue:[
         x := x + (superRectangle width * leftFraction value)
@@ -383,11 +382,11 @@
      lO rectangleRelativeTo:superRect preferred:(0@0 corner:30@30)
     "
 
-    "Modified: / 27.5.1998 / 10:19:58 / cg"
+    "Modified: / 13.8.1998 / 18:39:49 / cg"
 ! !
 
 !LayoutOrigin class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/LayoutOrigin.st,v 1.19 1998-05-27 09:21:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/LayoutOrigin.st,v 1.20 1998-08-13 16:41:10 cg Exp $'
 ! !