Rectangle.st
changeset 24428 c8bd1630abaf
parent 24391 ddb42bf98435
child 24801 e109c45c5a34
--- a/Rectangle.st	Tue Jul 16 16:41:31 2019 +0200
+++ b/Rectangle.st	Wed Jul 17 10:31:42 2019 +0200
@@ -839,12 +839,9 @@
      are taken from corresponding edges of the receiver.
      You have to make certain that those are in 0..1."
 
-    ^ LayoutFrame new
-        leftFraction:(self left);
-        rightFraction:(self right);
-        topFraction:(self top);
-        bottomFraction:(self bottom);
-        yourself.
+    ^ LayoutFrame
+        leftFraction:(self left) rightFraction:(self right)
+        topFraction:(self top) bottomFraction:(self bottom)
 
     "
      (0.5@0.5 corner:0.75@0.75) asFractionalLayout
@@ -854,6 +851,8 @@
      (0@0 corner:1@1) asFractionalLayout
      (0@0 corner:1@1) asOffsetLayout
     "
+
+    "Modified: / 17-07-2019 / 10:21:48 / Claus Gittinger"
 !
 
 asLayout
@@ -873,17 +872,13 @@
     and:[(r between:0.0 and:1.0)
     and:[(t between:0.0 and:1.0)
     and:[(b between:0.0 and:1.0)]]]) ifTrue:[
-	newLayout
-	    leftFraction:l;
-	    rightFraction:r;
-	    topFraction:t;
-	    bottomFraction:b.
+        newLayout leftFraction:l rightFraction:r topFraction:t bottomFraction:b.
     ] ifFalse:[
-	newLayout
-	    leftOffset:l;
-	    rightFraction:0 offset:r;
-	    topOffset:t;
-	    bottomFraction:0 offset:b.
+        newLayout
+            leftOffset:l;
+            rightFraction:0 offset:r;
+            topOffset:t;
+            bottomFraction:0 offset:b.
     ].
     ^ newLayout
 
@@ -896,7 +891,8 @@
      (0@0 corner:1@1) asOffsetLayout
     "
 
-    "Modified: 5.6.1996 / 00:45:46 / cg"
+    "Modified: / 05-06-1996 / 00:45:46 / cg"
+    "Modified: / 17-07-2019 / 10:21:09 / Claus Gittinger"
 !
 
 asOffsetLayout