WACallbackTest

• initialize
• renderContentOn:

	transcript _ String new writeStream

	html anchorWithCallback: [] do: 'Idempotent'.
	html space.
	html anchorWithAction: [] do: 'Side Effect'.
	
	html form: [
		html defaultAction: [transcript cr; nextPutAll: 'default action'].
		html textInputWithValue: '' callback: [:v | transcript cr; nextPutAll: 'text: ', v printString].
		html textInputWithValue: '' callback: [:v | transcript cr; nextPutAll: 'text2: ', v printString].
		html break.
		html submitButton.
		html space.
		html submitButtonWithAction: [transcript cr; nextPutAll: 'go'] text: 'Go'.
		html space.
		html cancelButtonWithAction: [transcript cr; nextPutAll: 'cancel'].
	].
	html preformatted: transcript contents.
	html horizontalRule.
	html render: WACounter new.