--- a/Rectangle.st	Tue Feb 03 18:59:53 1998 +0100
+++ b/Rectangle.st	Tue Feb 03 19:01:58 1998 +0100
@@ -441,6 +441,24 @@
     "Modified: 4.6.1996 / 16:09:05 / cg"
 !
 
+setLeft:newLeft
+    "set left without adjusting width"
+
+    left := newLeft.
+
+    "Modified: / 22.1.1998 / 09:40:35 / av"
+    "Created: / 3.2.1998 / 19:01:06 / cg"
+!
+
+setTop:newTop
+    "set top without adjusting height"
+
+    top := newTop.
+
+    "Modified: / 20.1.1998 / 18:25:35 / av"
+    "Created: / 3.2.1998 / 19:01:01 / cg"
+!
+
 top
     "return the y-coordinate of the top-left"
 
@@ -1495,5 +1513,5 @@
 !Rectangle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Rectangle.st,v 1.56 1998-01-28 16:47:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Rectangle.st,v 1.57 1998-02-03 18:01:58 cg Exp $'
 ! !