--- a/Rectangle.st Wed Aug 28 10:49:29 2013 +0100
+++ b/Rectangle.st Wed Sep 04 09:43:51 2013 +0100
@@ -1081,6 +1081,7 @@
"Modified: 8.5.1996 / 14:40:53 / cg"
! !
+
!Rectangle methodsFor:'printing & storing'!
printOn:aStream
@@ -1438,20 +1439,6 @@
"Created: 25.1.1997 / 17:30:21 / cg"
!
-align:offset with:someCoordinate
- "return a new rectangle which is translated (i.e. moved)
- such that the point offset in mySelf is placed on someCoordinate."
-
- ^ Rectangle origin:(someCoordinate - offset + self origin)
- extent:(self extent)
- "
- |r|
-
- r := Rectangle origin:10@10 corner:50@50.
- r align:(r center) with:100@100.
- "
-!
-
areasOutside: aRectangle
"Answer an Array of Rectangles comprising the parts of the receiver not
intersecting aRectangle."
@@ -1779,6 +1766,22 @@
^ true
! !
+!Rectangle methodsFor:'transformations'!
+
+align:offset with:someCoordinate
+ "return a new rectangle which is translated (i.e. moved)
+ such that the point offset in mySelf is placed on someCoordinate."
+
+ ^ Rectangle origin:(someCoordinate - offset + self origin)
+ extent:(self extent)
+ "
+ |r|
+
+ r := Rectangle origin:10@10 corner:50@50.
+ r align:(r center) with:100@100.
+ "
+! !
+
!Rectangle methodsFor:'truncation & rounding'!
rounded
@@ -1817,9 +1820,10 @@
!Rectangle class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Rectangle.st,v 1.84 2010-07-16 14:59:40 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Rectangle.st,v 1.85 2013-08-31 11:46:55 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/Rectangle.st,v 1.84 2010-07-16 14:59:40 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Rectangle.st,v 1.85 2013-08-31 11:46:55 cg Exp $'
! !
+