--- a/Rectangle.st	Sat Sep 02 18:08:30 1995 +0200
+++ b/Rectangle.st	Sun Sep 03 17:06:58 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Rectangle.st,v 1.25 1995-08-11 03:03:19 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Rectangle.st,v 1.26 1995-09-03 15:06:06 claus Exp $
 '!
 
 !Rectangle class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Rectangle.st,v 1.25 1995-08-11 03:03:19 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Rectangle.st,v 1.26 1995-09-03 15:06:06 claus Exp $
 "
 !
 
@@ -586,6 +586,26 @@
     "
 !
 
+literalArrayEncoding
+    "encode myself as an array.
+     The encoding is: (Rectangle orgX orgY cornX cornY)"
+
+    ^ Array
+	with:#Rectangle
+	with:left
+	with:top
+	with:width
+	with:height
+
+
+    "
+     Rectangle new fromLiteralArrayEncoding:#(Rectangle 100 200 300 500) 
+     (100@200 corner:300@500) literalArrayEncoding 
+    "
+
+    "Modified: 1.9.1995 / 02:16:54 / claus"
+!
+
 fromLiteralArrayEncoding:encoding
     "read my values from an encoding.
      The encoding is supposed to be of the form: (Rectangle orgX orgY cornX cornY)"