10 lines
346 B
Smalltalk
10 lines
346 B
Smalltalk
accessing
|
|
printOn: aStream
|
|
super initialize.
|
|
aStream
|
|
nextPutAll: '- Name: ', self name; cr;
|
|
nextPutAll: '- Pronouns: ', self pronouns; cr;
|
|
nextPutAll: '- Approaches'; cr;
|
|
nextPutAll: ' - Strong: ', self strong asString; cr;
|
|
nextPutAll: ' - Patient: ', self patient asString; cr;
|
|
nextPutAll: ' - Quick: ', self quick asString; cr |