equal
deleted
inserted
replaced
1210 storeOn:aStream |
1210 storeOn:aStream |
1211 "store the receiver on aStream; i.e. print an expression which will |
1211 "store the receiver on aStream; i.e. print an expression which will |
1212 reconstruct the receiver" |
1212 reconstruct the receiver" |
1213 |
1213 |
1214 aStream nextPut:$(. |
1214 aStream nextPut:$(. |
1215 aStream nextPutAll:(self class name). |
1215 aStream nextPutAll:(self className). |
1216 aStream nextPutAll:' origin:'. |
1216 aStream nextPutAll:' origin:'. |
1217 (self origin) storeOn:aStream. |
1217 (self origin) storeOn:aStream. |
1218 aStream nextPutAll:' extent:'. |
1218 aStream nextPutAll:' extent:'. |
1219 (self extent) storeOn:aStream. |
1219 (self extent) storeOn:aStream. |
1220 aStream nextPut:$) |
1220 aStream nextPut:$) |
1221 |
1221 |
1222 "Modified: 29.5.1996 / 00:17:42 / cg" |
1222 "Modified: / 29-05-1996 / 00:17:42 / cg" |
|
1223 "Modified: / 28-06-2019 / 09:07:46 / Claus Gittinger" |
1223 ! ! |
1224 ! ! |
1224 |
1225 |
1225 !Rectangle methodsFor:'queries'! |
1226 !Rectangle methodsFor:'queries'! |
1226 |
1227 |
1227 bounds |
1228 bounds |