Queue subclass: #Alinhamento
instanceVariableNames: ''
classVariableNames:
'Preco '
poolDictionaries: '' !
!Alinhamento class methods !
setPreco: p
"preco"
Preco := p! !
!Alinhamento methods !
chega: carro
"um carro chega"
self enqueue: carro.!
sai
"sai um carro com a direccao arranjada"
| carro |
carro := self first.
self dequeue.
carro somaDespesa: Preco.
carro okDireccao.
self changed: carro.! !