WAValidationDecoration

• handleAnswer:
• handleAnswer:continueWith:
• initialize
• renderContentOn:
• validate:
• validateWith:

	(super handleAnswer: anObject) ifFalse:
		[^ (self validate: anObject) not].
	^ true

	(self validate: anObject) ifTrue: [aBlock value]

	message _ WAStateHolder new

	message contents ifNotNilDo:
		[:msg |
		html divClass: 'validation-error' with: msg].
	self renderOwnerOn: html.

	[validationBlock value: anObject.
	^ true]
		on: Error
		do: [:e | message contents: e messageText].
	^ false

	validationBlock _ aBlock