--- a/LayoutOrigin.st Thu Sep 18 20:22:08 2003 +0200
+++ b/LayoutOrigin.st Mon Sep 22 18:19:18 2003 +0200
@@ -118,9 +118,9 @@
!
fromPoint:aPoint
- "return a new LayoutOrigin from aPoint.
- If the coordinates are between 0 and 1, take
- them as fractional parts (relative to superview).
+ "return a new LayoutOrigin from aPoint.
+ If the coordinates are between 0 and 1,
+ take them as fractional parts (relative to superview).
Otherwise, treat them as absolute offsets."
|x y layout|
@@ -130,9 +130,9 @@
layout := self new.
((x between:0 and:1)
and:[y between:0 and:1]) ifTrue:[
- layout leftFraction:x topFraction:y
+ layout leftFraction:x topFraction:y
] ifFalse:[
- layout leftOffset:x topOffset:y
+ layout leftOffset:x topOffset:y
].
^ layout
@@ -390,5 +390,5 @@
!LayoutOrigin class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/LayoutOrigin.st,v 1.22 2002-08-31 11:21:08 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/LayoutOrigin.st,v 1.23 2003-09-22 16:19:18 cg Exp $'
! !