Queue subclass: #Lavagem
instanceVariableNames: ''
classVariableNames:
'Preco '
poolDictionaries: '' !
!Lavagem class methods !
setPreco: p
"por preco"
Preco := p! !
!Lavagem methods !
chega: carro
"um carro chega"
self enqueue: carro!
sai
"sai um carro ja lavado"
| carro |
carro := self first.
self dequeue.
carro somaDespesa: Preco.
carro okLimpeza.
self changed: carro.! !