WARenderLoop

• application
• basicRoot:
• root:
• session

• call:
• call:withToolFrame:

• alwaysRedirect
• processCallbacks:
• redirect
• render
• run
• unprocessedCallbacks:
• updateUrl:
• withPageExpiredHandler:
• withRenderNowHandler:

inferredType:

UndefinedObject

	^ self session application

	root _ aComponent

	self basicRoot: ((self application preferenceAt: #deploymentMode)
					ifFalse: [WAToolFrame on: aComponent]
					ifTrue: [aComponent])

	^ WACurrentSession value

	^ self call: aComponent withToolFrame: true

	aBoolean ifTrue: [self root: aComponent] ifFalse: [self basicRoot: aComponent].
	aComponent onAnswer: [:v | ^ v].
	self run

	
	^ self application preferenceAt: #alwaysRedirect

	| lastPosition |
	lastPosition _ nil.
	[aCallbackStream position = lastPosition] whileFalse:
		[lastPosition _ aCallbackStream position.
		root decorationChainDo: [:ea | ea processCallbackStream: aCallbackStream]].
	aCallbackStream atEnd
		ifTrue: [WARenderNotification raiseSignal]
		ifFalse: [self unprocessedCallbacks: aCallbackStream upToEnd].

	
	self alwaysRedirect ifTrue:
		[self session respond:
			[:url |
			self updateUrl: url.
			WAResponse redirectTo: url asString]]

	|request context document docRoot |
	
	context _ WARenderingContext new request: self session currentRequest.
	request _ self session respond:
				[:url | |response|
				self updateUrl: url.
				docRoot _ WARenderedHtmlRoot context: context.
				root visiblePresentersDo: [:ea | ea updateRoot: docRoot].
				self session application updateRoot: docRoot.				
				response _ WAResponse new.
				response headerAt: 'Cache-Control' put: 'No-cache'.
				document _ WAHtmlStreamDocument root: docRoot.
				document stream: response stream.
				context actionUrl: url; document: document.
				root decorationChainDo: [:ea | ea renderWithContext: context].				
				document close.
				response]. 

	self processCallbacks: (context callbackStreamForRequest: request)

	| notification |
	[self withPageExpiredHandler:
		[notification _ self withRenderNowHandler: [self render].
		 notification shouldRedirect ifTrue: [self redirect]]]
				repeat

	| owners |
	owners _ (aCollection collect: [:ea | ea owner]) asSet asArray.
	self error: 'Components not found while processing callbacks: ', owners asString

	root visiblePresentersDo: [:c | c updateUrl: aUrl]

	^ aBlock on: WAPageExpired do: [:n |]

	^ aBlock on: WARenderNotification do: [:n | n]