Point.st
changeset 339 e8658d38abfb
parent 325 46bca6125b93
child 345 cf2301210c47
--- a/Point.st	Sat May 06 06:26:35 1995 +0200
+++ b/Point.st	Mon May 08 05:31:14 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Point.st,v 1.20 1995-04-02 11:07:32 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Point.st,v 1.21 1995-05-08 03:30:26 claus Exp $
 '!
 
 !Point class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Point.st,v 1.20 1995-04-02 11:07:32 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Point.st,v 1.21 1995-05-08 03:30:26 claus Exp $
 "
 !
 
@@ -292,6 +292,33 @@
      and corner being the receiver"
 
     ^ self corner:self
+!
+
+asLayout
+    "return a LayoutOrigin from the receiver.
+     If the receiver coordinates are between 0 and 1, take
+     them as fractional parts (relative to superview).
+     Otherwise, treat them as absolute offsets.
+     Notice: in 10.5.x LayoutOrigin is not yet released."
+
+    ^ LayoutOrigin fromPoint:self
+!
+
+asFractionalLayout
+    "return a LayoutOrigin from the receiver,
+     treating the receiver coordinates as fractional parts 
+     (i.e. relative to superview).
+     Notice: in 10.5.x LayoutOrigin is not yet released."
+
+    ^ LayoutOrigin fractionalFromPoint:self
+!
+
+asOffsetLayout
+    "return a LayoutOrigin from the receiver,
+     treating the receiver coordinates as absolute offsets. 
+     Notice: in 10.5.x LayoutOrigin is not yet released."
+
+    ^ LayoutOrigin offsetFromPoint:self
 ! !
 
 !Point methodsFor:'creating rectangles'!