6 lines
134 B
Smalltalk
6 lines
134 B
Smalltalk
|
printing
|
||
|
|
printOn: aStream
|
||
|
|
super printOn: aStream.
|
||
|
|
aStream
|
||
|
|
nextPutAll: ' ( ' , self name , ' | ';
|
||
|
|
nextPutAll: self category, ' )'
|