--- a/Rectangle.st	Mon Mar 03 13:48:50 1997 +0100
+++ b/Rectangle.st	Mon Mar 03 16:34:15 1997 +0100
@@ -285,6 +285,15 @@
     ^ height
 !
 
+height:aNumber
+    "change the height of the rectangle.
+     logically, this changes the corner to get the given height."
+
+    height := aNumber
+
+    "Created: 3.3.1997 / 16:33:22 / cg"
+!
+
 left
     "return the x-coordinate of the top-left origin"
 
@@ -474,6 +483,15 @@
     "return the width of the rectangle"
 
     ^ width
+!
+
+width:aNumber
+    "change the width of the rectangle.
+     logically, this changes the corner to get the given width."
+
+    width := aNumber
+
+    "Created: 3.3.1997 / 16:33:48 / cg"
 ! !
 
 !Rectangle methodsFor:'comparing'!
@@ -1458,5 +1476,5 @@
 !Rectangle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Rectangle.st,v 1.52 1997-02-28 16:22:10 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Rectangle.st,v 1.53 1997-03-03 15:34:15 cg Exp $'
 ! !