Implementing printing.
This commit is contained in:
parent
14d46728b1
commit
4b6f82222a
@ -70,3 +70,9 @@ HlPerson >> givenName: anObject [
|
||||
|
||||
givenName := anObject
|
||||
]
|
||||
|
||||
{ #category : #accessing }
|
||||
HlPerson >> printOn: aStream [
|
||||
super printOn: aStream.
|
||||
aStream nextPutAll: '( ', self givenName, ' ', self familyName, ' )'
|
||||
]
|
||||
|
Loading…
Reference in New Issue
Block a user