LayoutOrigin.st
changeset 1601 012540f1d64c
parent 1600 ac585461747e
child 1821 5539214ed293
--- a/LayoutOrigin.st	Sat Aug 31 13:19:53 2002 +0200
+++ b/LayoutOrigin.st	Sat Aug 31 13:21:08 2002 +0200
@@ -367,10 +367,10 @@
         y := y + topOffset value
     ].
     leftFraction notNil ifTrue:[
-        x := x + (superRectangle width * leftFraction value) asInteger
+        x := x + (superRectangle width * leftFraction value)
     ].
     topFraction notNil ifTrue:[
-        y := y + (superRectangle height * topFraction value) asInteger
+        y := y + (superRectangle height * topFraction value)
     ].
     ^ Rectangle left:x top:y extent:prefRect extent
 
@@ -390,5 +390,5 @@
 !LayoutOrigin class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/LayoutOrigin.st,v 1.21 2002-08-31 11:19:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/LayoutOrigin.st,v 1.22 2002-08-31 11:21:08 cg Exp $'
 ! !