comment
authorClaus Gittinger <cg@exept.de>
Mon, 22 Sep 2003 18:19:18 +0200
changeset 1821 5539214ed293
parent 1820 7817c4809af7
child 1822 ceeb17948f5d
comment
LayoutOrigin.st
--- 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 $'
 ! !