Rectangle.st
changeset 2 6526dde5f3ac
parent 1 a27a279701f8
child 3 24d81bf47225
--- a/Rectangle.st	Fri Jul 16 11:39:45 1993 +0200
+++ b/Rectangle.st	Mon Oct 04 11:32:33 1993 +0100
@@ -70,7 +70,10 @@
             _InstPtr(newRect)->i_instvars[1] = _PointInstPtr(origin)->p_y;
             _InstPtr(newRect)->i_instvars[2] = _PointInstPtr(extent)->p_x;
             _InstPtr(newRect)->i_instvars[3] = _PointInstPtr(extent)->p_y;
-            /* no STOREs needed - newRect is in newSpace */
+	    __STORE(newRect, _PointInstPtr(origin)->p_x);
+	    __STORE(newRect, _PointInstPtr(origin)->p_y);
+	    __STORE(newRect, _PointInstPtr(extent)->p_x);
+	    __STORE(newRect, _PointInstPtr(extent)->p_y);
             RETURN ( newRect );
         }
     }
@@ -96,7 +99,10 @@
             _InstPtr(newRect)->i_instvars[1] = top;
             _InstPtr(newRect)->i_instvars[2] = w;
             _InstPtr(newRect)->i_instvars[3] = h;
-            /* no STOREs needed - newRect is in newSpace */
+	    __STORE(newRect, left);
+	    __STORE(newRect, top);
+	    __STORE(newRect, w);
+	    __STORE(newRect, h);
             RETURN ( newRect );
         }
     }