Rectangle.st
branchjv
changeset 18093 2b786a9af1d0
parent 18011 deb0c3355881
parent 15730 4013efc6649a
child 18112 0d7ac9096619
--- 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 $'
 ! !
+