Object subclass: #Person

instanceVariableNames: 'name age '

classVariableNames: ''

poolDictionaries: ''

 

named: aString age: anInteger

"Answer a new instance of the receiver whose name is aString

and age is anInteger."

^self new

name: aString;

age: anInteger

 

initialize

"Initialize the receiver. This should only be done when it is first loaded

into the image."

Transcript cr; show: 'Initializing the receiver.'

happyBirthday

"The receiver has had a birthday.

Display a Happy Birthday message."

System message: ('Happy ', self age printString, ' Birthday, ', self name, '!').

 

name

"Answer the name (String) of the receiver."

^name

 

age

“Answer the age (Integer) of the receiver.”

^age

age: anInteger

"Set the age (Integer) of the receiver to anInteger."

age := anInteger

 

name: aString

"Set the name (String) of the receiver to aString."

name := aString