Queue subclass: #Caixa
instanceVariableNames:
'caixa '
classVariableNames: ''
poolDictionaries: '' !
!Caixa class methods !
new
"nova"
| c |
c := super new.
^c initCaixa! !
!Caixa methods !
caixa
"valor em caixa"
^caixa!
chega: carro
"um carro chega"
self enqueue: carro.
self changed: #listCaixa:!
initCaixa
"poe a caixa a zero"
caixa := 0!
listCaixa: pane
"listar os carros em caixa"
| lista |
lista:= Queue new.
self do: [:carro| lista enqueue: carro matricula].
pane contents: lista!
sai
"sai um carro"
| carro |
carro := self first.
self dequeue.
caixa := carro despesa + caixa.
^carro! !