# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1569241637 -7200
# Node ID e109c45c5a34f84a914ad458ce801ad3d7a424b3
# Parent  a6db153815e15933f040b98d5df29605a1f9df8b
#TUNING by exept
class: Rectangle
changed: #storeOn:
shortened storeString

diff -r a6db153815e1 -r e109c45c5a34 Rectangle.st
--- a/Rectangle.st	Fri Sep 20 15:34:54 2019 +0200
+++ b/Rectangle.st	Mon Sep 23 14:27:17 2019 +0200
@@ -1208,13 +1208,33 @@
      reconstruct the receiver"
 
     aStream nextPut:$(.
-    aStream nextPutAll:(self className).
-    aStream nextPutAll:' origin:'.
-    (self origin) storeOn:aStream.
-    aStream nextPutAll:' extent:'.
-    (self extent) storeOn:aStream.
+    (self class == Rectangle
+      and:[left isNumber 
+      and:[top isNumber
+      and:[width isNumber
+      and:[height isNumber
+    ]]]]) ifTrue:[
+        left storeOn:aStream.
+        aStream nextPut:$@.
+        top storeOn:aStream.
+        aStream nextPutAll:' extent:'.
+        width storeOn:aStream.
+        aStream nextPut:$@.
+        height storeOn:aStream.
+    ] ifFalse:[
+        aStream nextPutAll:(self className).
+        aStream nextPutAll:' origin:'.
+        (self origin) storeOn:aStream.
+        aStream nextPutAll:' extent:'.
+        (self extent) storeOn:aStream.
+    ].
     aStream nextPut:$)
 
+    "
+     (10@20 corner:110@120) storeString  
+     (10@20 extent:100@200) storeString  
+    "
+
     "Modified: / 29-05-1996 / 00:17:42 / cg"
     "Modified: / 28-06-2019 / 09:07:46 / Claus Gittinger"
 ! !