Creating a Class to Measure
Create the following class and methods.
Person class
Object subclass: #Person
instanceVariableNames: 'name age '
classVariableNames: ''
poolDictionaries: ''
Person public class methods
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
Person public instance methods
age
^age
happyBirthday
"The receiver has had a birthday.
Display a Happy Birthday message, and increment his/her age."
age := age + 1.
System message: ('Happy ', self age printString, ' Birthday, ', self name, '!').
name
"Answer the name (String) of the receiver."
^name
Person private instance methods
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
Last modified date: 01/29/2015