--- a/Rectangle.st	Wed May 08 13:44:32 1996 +0200
+++ b/Rectangle.st	Wed May 08 14:45:35 1996 +0200
@@ -766,13 +766,12 @@
     "
      |v|
 
-     v := View new open.
-     [v shown] whileFalse:[Processor yield].
+     v := View new openAndWait.
 
      (Rectangle origin:10@10 corner:50@50) displayFilledOn:v
     "
 
-    "Modified: 27.4.1996 / 14:52:38 / cg"
+    "Modified: 8.5.1996 / 14:40:42 / cg"
 !
 
 displayStrokedOn:aGC
@@ -784,13 +783,12 @@
     "
      |v|
 
-     v := View new open.
-     [v shown] whileFalse:[Processor yield].
+     v := View new openAndWait.
 
      (Rectangle origin:10@10 corner:50@50) displayStrokedOn:v
     "
 
-    "Modified: 27.4.1996 / 14:52:45 / cg"
+    "Modified: 8.5.1996 / 14:40:53 / cg"
 ! !
 
 !Rectangle methodsFor:'printing & storing'!
@@ -820,6 +818,24 @@
 
 !Rectangle methodsFor:'queries'!
 
+bounds
+    "return the smallest enclosing rectangle"
+
+    ^ self
+
+    "Created: 8.5.1996 / 13:56:24 / cg"
+    "Modified: 8.5.1996 / 14:06:38 / cg"
+!
+
+canBeFilled
+    "return true, if the receiver can be drawn as a filled geometric.
+     Always true here."
+
+    ^ true
+
+    "Created: 8.5.1996 / 08:16:47 / cg"
+!
+
 isRectangle
     "return true, if the receiver is some kind of rectangle"
 
@@ -1317,5 +1333,5 @@
 !Rectangle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Rectangle.st,v 1.38 1996-04-27 17:51:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Rectangle.st,v 1.39 1996-05-08 12:45:35 cg Exp $'
 ! !