WARenderingContext

• actionUrl
• actionUrl:
• document
• document:
• request
• request:
• response
• response:

• advanceKey
• callbackAt:
• callbackStreamForRequest:
• callbacksFor:
• increaseKey
• nextKey
• storeCallback:

• registry
• urlForDocument:
• urlForDocument:mimeType:
• urlForDocument:mimeType:fileName:

• initialize

• clearMode
• debugMode
• isDebugMode

• new

inferredType:

UndefinedObject

InitialValue:

a Dictionary()

inferredType:

Dictionary

InitialValue:

1

inferredType:

SmallInteger

inferredType:

UndefinedObject

inferredType:

UndefinedObject

inferredType:

UndefinedObject

inferredType:

UndefinedObject

	"Answer the value of actionUrl"

	^ actionUrl

	"Set the value of actionUrl"

	actionUrl _ anObject

	"Answer the value of document"

	^ document

	"Set the value of document"

	document _ anObject

	^ request

	request _ aRequest

	^ response

	response _ aResponse

	| key |
	key _ self nextKey.
	self increaseKey.
	^ key

	^ callbacks at: aString

	^ WACallbackStream callbacks: callbacks request: aRequest

	^ WACallbackRegistry context: self owner: anObject

	count _ count + 1

	^ count asString

	
	| key |
	key _ self advanceKey.
	callbacks at: (aCallback convertKey: key) put: aCallback.
	^ key

	^ WACurrentSession value application

	^ self urlForDocument: anObject mimeType: nil

	^ self urlForDocument: anObject mimeType: mimeString fileName: nil

	^ (self registry urlForRequestHandler:
		(WADocumentHandler
			document: anObject
			mimeType: mimeType
			fileName: fileName)) asString

	count _ 1.
	callbacks _ Dictionary new

	mode _ nil

	mode _ #debug

	^ mode = #debug

	^ self basicNew initialize