--- 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"
! !