--- a/Polygon.st	Sat Mar 20 11:16:05 2004 +0100
+++ b/Polygon.st	Sat Mar 20 14:19:25 2004 +0100
@@ -128,7 +128,18 @@
                              with:20@20
                              with:30@30)
 
-     Polygon vertices:(#(10 10  100 0  50 50) pairWiseCollect:[:x :y | x @ y])
+     Polygon vertices:(#(10 10  100 0  50 50) pairWiseCollect:[:x :y | x @ y]).
+    "
+
+    "
+     |p v|
+
+     v := View new openAndWait.
+     p := Polygon 
+            vertices:(Array with:10@10
+                            with:20@10
+                            with:20@30).
+     p displayOn:v
     "
 
     "Modified: 8.5.1996 / 20:11:31 / cg"
@@ -408,5 +419,5 @@
 !Polygon class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Polygon.st,v 1.25 2003-08-29 17:32:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Polygon.st,v 1.26 2004-03-20 13:19:25 cg Exp $'
 ! !