Object subclass: #Pessoa
	instanceVariableNames: 'nome dataDeNacimento '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'MAC441'!


!Pessoa methodsFor: 'accesors'!

anive: aDate
	"--atualiza o aniversario da instancia"

	dataDeNacimento:= aDate.!

nome: aString
	"--atualiza o nome da instancia"

	nome := aString.! !

!Pessoa methodsFor: 'initialization'!

initializeNome: aString anive: aDate
	"--inicializa esta instancia de Pessoa, com o nome e aniversario recebidos"

	self nome: aString.
	self anive: aDate.
	"--implicitamente ^self."! !
"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!