7 lines
162 B
Smalltalk
7 lines
162 B
Smalltalk
accessing
|
|
printOn: aStream
|
|
| currentName |
|
|
currentName := self name ifNil: ['Unammed'].
|
|
super printOn: aStream.
|
|
aStream
|
|
nextPutAll: '( ', currentName, ' )'. |