Automovel subclass: #AutoComFactura
instanceVariableNames:
'despesa '
classVariableNames: ''
poolDictionaries: '' !
!AutoComFactura class methods !
new: mat marca: mar modelo: mod limpeza: l direccao: d
"Criar um novo AutoComFactura"
| car |
car := super new: mat marca: mar modelo: mod
limpeza: l direccao: d.
^car initDespesa.! !
!AutoComFactura methods !
despesa
"Consultar despesa do Automovel"
^despesa!
initDespesa
"Colocar despesa a zero"
despesa := 0!
somaDespesa: d
"somar valor a despesa"
despesa := despesa + d! !