Implementing printing.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2022-05-02 22:39:26 -05:00
parent 14d46728b1
commit 4b6f82222a

View File

@ -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, ' )'
]