--- a/Rectangle.st	Wed May 08 19:50:32 1996 +0200
+++ b/Rectangle.st	Wed May 08 20:17:16 1996 +0200
@@ -570,6 +570,18 @@
     "
 !
 
+asPolygon
+    "return a polygon from the receiver"
+
+    ^ Polygon vertices:self asPointArray
+
+    "
+     (10@10 corner:100@100) asPolygon
+    "
+
+    "Modified: 8.5.1996 / 20:14:44 / cg"
+!
+
 fromLiteralArrayEncoding:encoding
     "read my values from an encoding.
      The encoding is supposed to be of the form: (Rectangle orgX orgY cornX cornY)"
@@ -1333,5 +1345,5 @@
 !Rectangle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Rectangle.st,v 1.39 1996-05-08 12:45:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Rectangle.st,v 1.40 1996-05-08 18:17:16 cg Exp $'
 ! !