class: Rectangle
authorClaus Gittinger <cg@exept.de>
Sun, 21 Dec 2014 23:40:14 +0100
changeset 17239 6f71da3ffaea
parent 17238 94b805b727cf
child 17240 9e36e4384637
class: Rectangle changed: #corner
Rectangle.st
--- a/Rectangle.st	Sun Dec 21 21:15:53 2014 +0100
+++ b/Rectangle.st	Sun Dec 21 23:40:14 2014 +0100
@@ -392,14 +392,14 @@
     "return the corner"
 
 %{  /* NOCONTEXT */
-    OBJ _left = __INST(left);
-    OBJ _top = __INST(top);
-    OBJ _width = __INST(width);
-    OBJ _height = __INST(height);
+    if (self == @global(Rectangle)) {
+        OBJ _left = __INST(left);
+        OBJ _top = __INST(top);
+        OBJ _width = __INST(width);
+        OBJ _height = __INST(height);
 
-    if (__bothSmallInteger(_left, _top)
-     && __bothSmallInteger(_width, _height)) {
-        if (self == @global(Rectangle)) {
+        if (__bothSmallInteger(_left, _top)
+         && __bothSmallInteger(_width, _height)) {
             if (__CanDoQuickNew(sizeof(struct __Point))) {      /* OBJECT ALLOCATION */
                 OBJ newPoint;
                 int spc;
@@ -1896,10 +1896,10 @@
 !Rectangle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Rectangle.st,v 1.88 2014-12-21 20:15:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Rectangle.st,v 1.89 2014-12-21 22:40:14 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Rectangle.st,v 1.88 2014-12-21 20:15:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Rectangle.st,v 1.89 2014-12-21 22:40:14 cg Exp $'
 ! !