--- a/LayoutFrame.st	Thu Aug 22 18:53:08 2002 +0200
+++ b/LayoutFrame.st	Sat Aug 31 13:19:53 2002 +0200
@@ -419,19 +419,19 @@
 
     leftFraction notNil ifTrue:[
         superWidth := superRectangle width.
-        x1 := x1 + (superWidth * leftFraction value)
+        x1 := x1 + (superWidth * leftFraction value) asInteger
     ].
     topFraction notNil ifTrue:[
         superHeight := superRectangle height.
-        y1 := y1 + (superHeight * topFraction value)
+        y1 := y1 + (superHeight * topFraction value) asInteger
     ].
     rightFraction notNil ifTrue:[
         superWidth isNil ifTrue:[superWidth := superRectangle width].
-        x2 := x2 + (superWidth * rightFraction value)
+        x2 := x2 + (superWidth * rightFraction value) asInteger
     ].
     bottomFraction notNil ifTrue:[
         superHeight isNil ifTrue:[superHeight := superRectangle height].
-        y2 := y2 + (superHeight * bottomFraction value)
+        y2 := y2 + (superHeight * bottomFraction value) asInteger
     ].
     ^ Rectangle left:x1 top:y1 right:x2 bottom:y2
 
@@ -454,5 +454,5 @@
 !LayoutFrame class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/LayoutFrame.st,v 1.27 2002-08-22 10:40:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/LayoutFrame.st,v 1.28 2002-08-31 11:19:53 cg Exp $'
 ! !

--- a/LayoutOrigin.st	Thu Aug 22 18:53:08 2002 +0200
+++ b/LayoutOrigin.st	Sat Aug 31 13:19:53 2002 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libview2' }"
+
 Layout subclass:#LayoutOrigin
 	instanceVariableNames:'leftFraction topFraction leftOffset topOffset'
 	classVariableNames:''
@@ -365,10 +367,10 @@
         y := y + topOffset value
     ].
     leftFraction notNil ifTrue:[
-        x := x + (superRectangle width * leftFraction value)
+        x := x + (superRectangle width * leftFraction value) asInteger
     ].
     topFraction notNil ifTrue:[
-        y := y + (superRectangle height * topFraction value)
+        y := y + (superRectangle height * topFraction value) asInteger
     ].
     ^ Rectangle left:x top:y extent:prefRect extent
 
@@ -388,5 +390,5 @@
 !LayoutOrigin class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/LayoutOrigin.st,v 1.20 1998-08-13 16:41:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/LayoutOrigin.st,v 1.21 2002-08-31 11:19:26 cg Exp $'
 ! !