5 lines
98 B
Smalltalk
5 lines
98 B
Smalltalk
|
accessing
|
||
|
|
printOn: aStream
|
||
|
|
super printOn: aStream.
|
||
|
|
aStream
|
||
|
|
nextPutAll: '(@', self userName,')'
|