--- 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 $'
! !