no.
--- a/LayoutFrame.st Sat Aug 31 13:19:53 2002 +0200
+++ b/LayoutFrame.st Sat Aug 31 13:21:08 2002 +0200
@@ -419,19 +419,19 @@
leftFraction notNil ifTrue:[
superWidth := superRectangle width.
- x1 := x1 + (superWidth * leftFraction value) asInteger
+ x1 := x1 + (superWidth * leftFraction value)
].
topFraction notNil ifTrue:[
superHeight := superRectangle height.
- y1 := y1 + (superHeight * topFraction value) asInteger
+ y1 := y1 + (superHeight * topFraction value)
].
rightFraction notNil ifTrue:[
superWidth isNil ifTrue:[superWidth := superRectangle width].
- x2 := x2 + (superWidth * rightFraction value) asInteger
+ x2 := x2 + (superWidth * rightFraction value)
].
bottomFraction notNil ifTrue:[
superHeight isNil ifTrue:[superHeight := superRectangle height].
- y2 := y2 + (superHeight * bottomFraction value) asInteger
+ y2 := y2 + (superHeight * bottomFraction value)
].
^ 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.28 2002-08-31 11:19:53 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/LayoutFrame.st,v 1.29 2002-08-31 11:20:41 cg Exp $'
! !
--- 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 $'
! !