WAComponent

• addDecoration:
• allDecorationsDo:
• authenticateWith:during:
• children
• childrenDo:
• decorateWith:during:
• decoration
• decoration:
• decoration:shouldWrap:
• decorationChainDo:
• delegations
• home
• initializeDecoration
• nextPresentersDo:
• removeDecoration:
• renderOn:
• visiblePresentersDo:

• answer
• answer:
• call:
• handleAnswer:
• onAnswer:
• show:
• show:onAnswer:

• activeComponent
• addMessage:
• confirm:
• inform:
• isolate:
• request:
• request:default:
• request:label:
• request:label:default:
• validateWith:

• script
• style

• applicationWithPath:
• canBeRoot
• new
• registerAsApplication:
• registerAsAuthenticatedApplication:

	| prev dec |
	prev _ nil.
	dec _ self decoration.
	[dec ~~ self and: [self decoration: dec shouldWrap: newDecoration]] whileTrue:
		[prev _ dec.
		dec _ dec owner].
	newDecoration owner: dec.
	prev
		ifNil: [self decoration: newDecoration]
		ifNotNil: [prev owner: newDecoration].
	^ newDecoration

	| ea |
	ea _ self decoration.
	[ea notNil and: [ea ~~ self]] whileTrue:
		[aBlock value: ea.
		ea _ ea owner]

	^ self decorateWith: (WABasicAuthentication new authenticator: anAuthenticator) during: aBlock

	"This method is really important. It should return a collection of all subcomponents of the current component that will be rendered in #renderContentOn:. Components that are displayed using #call: are *not* children."
	
	^ #()

	self children do: [:ea | ea ifNotNil: [aBlock value: ea]]

	| val |
	self addDecoration: aDecoration.
	val _ aBlock value.
	self removeDecoration: aDecoration.
	^ val

	decoration ifNil: [decoration _ WAStateHolder new contents: self].
	^ decoration contents

	decoration contents: aDecoration

	^ (oldDecoration isGlobal and: [newDecoration isGlobal not])
		or: [oldDecoration isDelegation and: [newDecoration isLocal]]

	aBlock value: self decoration

	| delegations |
	delegations _ OrderedCollection new.
	self allDecorationsDo: [:ea | ea isDelegation ifTrue: [delegations add: ea]].
	^ delegations

	self delegations do: [:ea | self removeDecoration: ea]

	decoration _ WAStateHolder new contents: self

	self childrenDo: [:ea | ea decorationChainDo: aBlock]

	| dec |
	dec _ self decoration.
	dec = aDecoration ifTrue:
		[self decoration: dec owner.
		^ self].
	
	[dec notNil] whileTrue:
		[dec owner = aDecoration
			ifTrue: [dec owner: aDecoration owner.  ^ self]
			ifFalse: [dec _ dec owner]]

	"Do not override this methods on your component, override instead #renderContentOn: and in addition to not invoke directly renderContentOn: on subcomponent in such method but use instead html render: subcomponent."

	self decorationChainDo: [ :each | each renderWithContext: aRenderer context ].

	self decorationChainDo: [:ea | ea withNextPresentersDo: aBlock]

	self answer: self

	self decorationChainDo: [:ea | ea handleAnswer: anObject]

	^ AnswerContinuation currentDo: [:cc | self show: aComponent onAnswer: cc]

	^ false

	^ self addDecoration: (WAAnswerHandler new block: aBlock)

	self show: aComponent onAnswer: [:v]

	| delegation event |
	delegation _ WADelegation new delegate: aComponent.
	event _ nil.
	event _ aComponent onAnswer: [:v | delegation remove. event remove. aBlock value: v].
	self addDecoration: delegation.
	WARenderNotification raiseSignal

	self visiblePresentersDo: [:ea | ea isDecoration ifFalse: [^ ea]]

	self addDecoration: (WAMessageDecoration new message: aString)

	^ self call: (WAYesOrNoDialog new addMessage: aString)

	self call: (WAFormDialog new addMessage: aString)

	|txn val |
	txn _ WATransaction new.
	val _ self decorateWith: txn during: aBlock.
	txn close.
	^ val

	^ self request: aString default: ''

	^ self request: aString label: nil default: initialString

	^ self request: requestString label: labelString default: ''

	^ self call:
		((WAInputDialog new
			label: labelString;
			default: initialString)
				addMessage: requestString)

	self addDecoration: (WAValidationDecoration new validateWith: aBlock)

	^ nil

	^ nil

	| app |
	app _ WAApplication path: aString.
	app configuration addAncestor: WARenderLoopConfiguration localConfiguration.
	app preferenceAt: #rootComponent put: self.
	^ app

	"When returning true, the component can be registered as a standalone application from the config interface."
	
	^ false

	^ self basicNew initializeDecoration initialize

	|app|
	app _ self applicationWithPath: appName.
	WADispatcher default registerEntryPoint: app at: appName.
	^ app

	| app user password |
	app _ self registerAsApplication: appName.
	app configuration addAncestor: WAAuthConfiguration localConfiguration.
	
	[user _ FillInTheBlank
		request: ('Please choose an administrator\username for the application ''', appName asString , '''') withCRs.
	user = ''] whileTrue.
		
	[password _ FillInTheBlank
		request: 'Please enter a password for ', user printString.
	password = ''] whileTrue.
		
	app preferenceAt: #login put: user.
	app preferenceAt: #password put: password.
	
	^ app