WAPresenter

• clearAllDelegates
• clearDelegate
• hasSCMenuItems

• session

• isDecoration

• initialize

• updateRoot:
• updateUrl:

• renderContentOn:
• renderWithContext:
• rendererClass
• script
• showHalo
• style

• processCallbackStream:
• processChildCallbacks:

• nextPresentersDo:
• withNextPresentersDo:

• hasTestSuite
• suite
• testSuiteName

• new

    self decorationChainDo:
        [:ea |
        (ea isDecoration and: [ea isDelegation]) ifTrue:
            [self removeDecoration: ea]] 

    self clearAllDelegates 

	^ false

	^ WACurrentSession value

	^ false

	self script ifNotNilDo: [:script | anHtmlRoot addScript: script].
	self style ifNotNilDo: [:style | anHtmlRoot addStyle: style].
	

	self nextPresentersDo: [:ea | ea renderWithContext: aRenderer context]

	| html callbacks |
	callbacks _ aRenderingContext callbacksFor: self.
	html _ self rendererClass context: aRenderingContext callbacks: callbacks.
	(self showHalo and: [aRenderingContext isDebugMode])
		ifTrue: [(WAHalo for: self) renderContentOn: html]
		ifFalse: [self renderContentOn: html].
	html close.

	^ WAHtmlRenderer

	^ nil

	^ true

	^ nil

	aCallbackStream processCallbacksWithOwner: self.
	self processChildCallbacks: aCallbackStream.
	aCallbackStream processCallbacksWithOwner: self.

	self nextPresentersDo: [:ea | ea processCallbackStream: aStream]

	self subclassResponsibility 

	aBlock value: self.
	self nextPresentersDo: [:ea | ea withNextPresentersDo: aBlock]

	^self suite notNil

	^ (Smalltalk hasClassNamed: self testSuiteName)
		ifTrue: [(Smalltalk classNamed: self testSuiteName) suite]

	^(self name , 'Test') asSymbol

	^ self basicNew initialize