--- a/AlignmentOrigin.st Wed May 08 13:53:17 1996 +0200
+++ b/AlignmentOrigin.st Wed May 08 21:07:16 1996 +0200
@@ -233,7 +233,7 @@
topAlignmentFraction ~~ 0 ifTrue:[
y := y - (prefRect height * topAlignmentFraction)
].
- ^ Rectangle origin:x@y extent:prefRect extent
+ ^ Rectangle left:x top:y extent:prefRect extent
"
|superRect aO|
@@ -247,11 +247,11 @@
aO rectangleRelativeTo:superRect preferred:(0@0 corner:30@30)
"
- "Modified: 27.4.1996 / 14:53:56 / cg"
+ "Modified: 8.5.1996 / 20:57:09 / cg"
! !
!AlignmentOrigin class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/AlignmentOrigin.st,v 1.12 1996-04-27 17:51:19 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/AlignmentOrigin.st,v 1.13 1996-05-08 19:07:16 cg Exp $'
! !