WACallbackStream

• atEnd
• initializeWithCallbacks:request:
• position
• processCallbacksWithOwner:
• upToEnd

• callbacks:request:

inferredType:

UndefinedObject

inferredType:

UndefinedObject

	^ callbacks atEnd

	| collection |
	collection _ SortedCollection new.
	aRequest fields keys do:
		[:ea |
		aDictionary at: ea ifPresent: [:callback | collection add: callback]].
	callbacks _ ReadStream on: collection asArray.
	request _ aRequest

	^ callbacks position

	| callback |
	[callbacks atEnd not and: [callbacks peek owner == anObject]] whileTrue:
		[callback _ callbacks next.
		callback evaluateWithField: (request fields at: callback key)]

	^ callbacks upToEnd

	^ self basicNew initializeWithCallbacks: aDictionary request: aRequest