WACallbackRegistry

• initializeWithContext:owner:
• registerActionCallback:
• registerCallback:
• registerCancelActionCallback:
• registerDefaultActionCallback:
• registerDispatchCallback
• registerIdempotentActionCallback:
• registerImageCallback:
• storeCallback:

• context:owner:

inferredType:

UndefinedObject

inferredType:

UndefinedObject

	context _ aContext.
	owner _ anObject

	^ self storeCallback: (WAActionCallback new block: aBlock)

	^ self storeCallback: (WAValueCallback new block: aBlock)

	^ self storeCallback: (WACancelActionCallback new block: aBlock)

	^ self storeCallback: (WADefaultActionCallback new block: aBlock)

	^ self storeCallback: WADispatchCallback new

	^ self storeCallback: (WAIdempotentActionCallback new block: aBlock)

	^ self storeCallback: (WAImageCallback new block: aBlock)

	| key |
	key _ context storeCallback: aCallback.
	aCallback setContext: context owner: owner key: key.
	^ key

	^ self basicNew initializeWithContext: aContext owner: anObject