Object subclass: #Automovel
instanceVariableNames:
'matricula marca modelo boaLimpeza boaDireccao '
classVariableNames: ''
poolDictionaries: '' !
!Automovel class methods !
new: mat marca: mar modelo: mod limpeza: l direccao: d
"Criar um novo Automovel"
| car |
car := self new.
car matricula: mat marca: mar modelo: mod.
l ifTrue: [car okLimpeza].
d ifTrue: [car okDireccao].
^car.! !
!Automovel methods !
marca
"Consultar a marca do Automovel"
^marca!
matricula
"Consultar a matricula do Automovel"
^matricula!
matricula: mat marca: mar modelo: mod
"atribuir - coloca tudo a estragado"
marca := mar.
matricula := mat.
modelo := mod.
boaDireccao := false.
boaLimpeza := false!
modelo
"Consultar o modelo do Automovel"
^modelo!
okDireccao
"Colocar direccao em bom estado"
boaDireccao := true!
okLimpeza
"Colocar limpeza em bom estado"
boaLimpeza := true!
testaDireccao
"Concultar estado da direccao"
^boaDireccao!
testaLimpeza
"Consultar estado da limpeza"
^boaLimpeza! !