Of the two remaining classes, OceanQueue seemed easier, so we did that one next.

" Defining the class "
Object subclass: #OceanQueue
	instanceVariableNames: 'fish time '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'FishWorld'

OceanQueue methodsFor: 'initialization'

initialize
	fish := OrderedCollection new.
	time := 0.

OceanQueue methodsFor: 'live processing'

activate
	fish do: [:aFish | aFish activate].
	time := time + 1.

OceanQueue methodsFor: 'connections'

addFish: aFish
	fish add: aFish.