--- a/Rectangle.st	Mon Jul 03 04:38:27 1995 +0200
+++ b/Rectangle.st	Sat Jul 22 21:25:26 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Rectangle.st,v 1.22 1995-07-02 01:08:04 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Rectangle.st,v 1.23 1995-07-22 19:24:16 claus Exp $
 '!
 
 !Rectangle class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Rectangle.st,v 1.22 1995-07-02 01:08:04 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Rectangle.st,v 1.23 1995-07-22 19:24:16 claus Exp $
 "
 !
 
@@ -911,6 +911,25 @@
     "
 !
 
+insetOriginBy:originDelta cornerBy:cornerDelta
+    "return a new rectangle which is inset by originDelta 
+     and cornerDelta; both may be instances of Point or Number"
+
+    |amountPoint deltaLeft deltaTop deltaWidth deltaHeight|
+
+    ^ Rectangle
+	origin:(left @ top) + originDelta asPoint
+	corner:(self corner - cornerDelta asPoint)
+    "
+     |r|
+     r := Rectangle origin:10@10 corner:100@100.
+     r insetOriginBy:5 cornerBy:10. 
+     r insetOriginBy:10@5 cornerBy:10.
+     r insetOriginBy:10 cornerBy:10@5. 
+     r insetOriginBy:10@10 cornerBy:20@20.
+    "
+!
+
 translatedBy:amount
     "return a new rectangle which is translated (i.e. moved)
      by amount, aPoint or Number"