--- a/Rectangle.st	Fri Feb 27 12:02:16 2004 +0100
+++ b/Rectangle.st	Fri Feb 27 12:17:31 2004 +0100
@@ -1730,14 +1730,23 @@
 
     (aRectangle left <= left) ifTrue:[
       (aRectangle right >= (left + width)) ifTrue:[
-	(aRectangle top <= top) ifTrue:[
-	  (aRectangle bottom >= (top + height)) ifTrue:[
-	    ^ true
-	  ]
-	]
+        (aRectangle top <= top) ifTrue:[
+          (aRectangle bottom >= (top + height)) ifTrue:[
+            ^ true
+          ]
+        ]
       ]
     ].
     ^ false
+
+    "
+     |r|
+
+     r := Rectangle origin:10@10 corner:100@100.
+     r isContainedIn: (Rectangle origin:10@10 corner:100@100).
+     r isContainedIn: (Rectangle origin:11@10 corner:100@100).
+     r isContainedIn: (Rectangle origin:9@10 corner:100@100).
+    "
 ! !
 
 !Rectangle methodsFor:'truncation & rounding'!
@@ -1778,5 +1787,5 @@
 !Rectangle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Rectangle.st,v 1.79 2004-02-27 11:02:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Rectangle.st,v 1.80 2004-02-27 11:17:31 cg Exp $'
 ! !