--- a/Polygon.st	Mon Oct 26 22:14:55 2009 +0100
+++ b/Polygon.st	Mon Oct 26 22:15:19 2009 +0100
@@ -146,6 +146,13 @@
 
 !Polygon methodsFor:'accessing'!
 
+add:aPoint
+    vertices isNil ifTrue:[
+        vertices := OrderedCollection new
+    ].
+    vertices add:aPoint
+!
+
 vertices
     "return the array containing my points"
 
@@ -471,5 +478,9 @@
 !Polygon class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Polygon.st,v 1.28 2009-06-06 10:12:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Polygon.st,v 1.29 2009-10-26 21:15:19 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libbasic2/Polygon.st,v 1.29 2009-10-26 21:15:19 cg Exp $'
 ! !