equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1992 by Claus Gittinger |
4 COPYRIGHT (c) 1992 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
243 |
245 |
244 printOn:aStream |
246 printOn:aStream |
245 "append a user printed representation of the receiver to aStream. |
247 "append a user printed representation of the receiver to aStream. |
246 The format is suitable for a human - not meant to be read back." |
248 The format is suitable for a human - not meant to be read back." |
247 |
249 |
248 aStream nextPutAll:self class name. |
250 aStream nextPutAll:self className. |
249 aStream nextPutAll:' scale: '. |
251 aStream nextPutAll:' scale: '. |
250 scale printOn:aStream. |
252 scale printOn:aStream. |
|
253 |
|
254 "Modified: / 28-06-2019 / 09:15:51 / Claus Gittinger" |
251 ! ! |
255 ! ! |
252 |
256 |
253 !ScaleTransform methodsFor:'private'! |
257 !ScaleTransform methodsFor:'private'! |
254 |
258 |
255 checkScale:aScale |
259 checkScale:aScale |