Implementing printing.
This commit is contained in:
parent
14d46728b1
commit
4b6f82222a
@ -70,3 +70,9 @@ HlPerson >> givenName: anObject [
|
|||||||
|
|
||||||
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