WADecoration

Comment:

I am an abstract decoration around instances of WAComponent. I can be added to aComponent by calling #addDecoration: and I change the basic behaviour or look of a component. There are several methods that can be overriden to archive this:

- #renderContentOn: to emit xhtml around the decorated component. Call #renderOwnerOn: to let the owner emit its output.

- #processChildCallbacks: to intercept the callback processing of the owner.

- #handleAnswer: to intercept the answer processing.

Hierarchy:

ProtoObject

Object

WAPresenter

WADecoration

• SCAnswerChecker
• SCDivDecoration
• WAAnswerHandler
• WABasicAuthentication
• WADelegation
• WAFormDecoration
• WAMessageDecoration
• WASessionProtector
• WATransaction
• WAValidationDecoration
• WAWindowDecoration

Summary:

Detail:

	^ self owner isDecoration
		ifTrue: [self owner component]
		ifFalse: [self owner]

	(self owner handleAnswer: anObject) ifFalse:
		[self handleAnswer: anObject continueWith: [^ false]].
	^ true

	aBlock value

	^ true

	^ false

	^ false

	^ (self isGlobal or: [self isDelegation]) not

	aBlock value: self owner

	^ next ifNotNil: [next contents]

	next ifNil: [next _ WAStateHolder new].
	next contents: aPresenter

	self component removeDecoration: self

	self owner ifNotNilDo: [:owner | owner renderWithContext: html context]

^top