4594 "Modified: / 18-10-2016 / 16:08:15 / cg" |
4594 "Modified: / 18-10-2016 / 16:08:15 / cg" |
4595 ! ! |
4595 ! ! |
4596 |
4596 |
4597 !Filename methodsFor:'printing & storing'! |
4597 !Filename methodsFor:'printing & storing'! |
4598 |
4598 |
4599 printOn:aStream |
4599 displayOn:aStream |
4600 "append a user printed representation of the receiver to aStream. |
4600 "append a user printed representation of the receiver to aStream. |
4601 The format is suitable for a human - not meant to be read back." |
4601 The format is suitable for a human - not meant to be read back." |
4602 |
4602 |
4603 aStream nextPutAll:(self class name). |
4603 aStream nextPutAll:(self class name). |
4604 aStream nextPutAll:'('''. |
4604 aStream nextPutAll:'('''. |
4605 nameString printOn:aStream. |
4605 nameString printOn:aStream. |
4606 aStream nextPutAll:''')' |
4606 aStream nextPutAll:''')' |
4607 |
4607 |
4608 "Modified: 7.9.1997 / 23:46:20 / cg" |
4608 "Created: / 21-02-2017 / 09:02:34 / cg" |
|
4609 ! |
|
4610 |
|
4611 printOn:aStream |
|
4612 "append a user printed representation of the receiver to aStream. |
|
4613 The format is suitable for a human - not meant to be read back. |
|
4614 Here, I print myself as a string, so I can be easily embedded in bind-with strings." |
|
4615 |
|
4616 "/ aStream nextPutAll:(self class name). |
|
4617 "/ aStream nextPutAll:'('''. |
|
4618 nameString printOn:aStream. |
|
4619 "/ aStream nextPutAll:''')' |
|
4620 |
|
4621 "Modified (comment): / 21-02-2017 / 09:03:57 / cg" |
4609 ! |
4622 ! |
4610 |
4623 |
4611 storeOn:aStream |
4624 storeOn:aStream |
4612 "append a printed representation of the receiver to aStream, |
4625 "append a printed representation of the receiver to aStream, |
4613 which allows reconstructing it via readFrom:" |
4626 which allows reconstructing it via readFrom:" |