--- a/Geometric.st	Tue Oct 02 11:58:53 2001 +0200
+++ b/Geometric.st	Tue Oct 02 13:27:42 2001 +0200
@@ -339,6 +339,16 @@
     ].
     ^ self shouldNotImplement
 
+    "
+     |v r|
+
+     v := View new.
+     v extent:200@200.
+     v openAndWait.
+     r := Rectangle origin:10@10 corner:100@100.
+     r asFiller displayOn:v.
+    "
+
     "Modified: 12.2.1997 / 11:47:22 / cg"
 !
 
@@ -376,6 +386,16 @@
 
     ^ self subclassResponsibility
 
+    "
+     |v r|
+
+     v := View new.
+     v extent:200@200.
+     v openAndWait.
+     r := Rectangle origin:10@10 corner:100@100.
+     r displayFilledOn:v.
+    "
+
     "Modified: 8.5.1996 / 09:07:02 / cg"
 !
 
@@ -384,6 +404,16 @@
      attributes are used. The default here is to display the outline."
 
     ^ self displayStrokedOn:aGC
+
+    "
+     |v r|
+
+     v := View new.
+     v extent:200@200.
+     v openAndWait.
+     r := Rectangle origin:10@10 corner:100@100.
+     r displayOn:v.
+    "
 !
 
 displayStrokedOn:aGC
@@ -485,6 +515,6 @@
 !Geometric class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Geometric.st,v 1.26 2000-08-31 10:02:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Geometric.st,v 1.27 2001-10-02 11:27:42 cg Exp $'
 ! !
 Geometric initialize!