WALoginDialog

• authenticator:
• cancel
• login
• renderContentOn:

	authenticator _ anAuthenticator

	self answer: nil

	(authenticator verifyPassword: password forUser: username) ifTrue: [self answer: username]

	html form: [
		html table: [
			html tableRowWithLabel: 'Username:' column: [html textInputWithValue: username callback: [:v | username _ v]].
			html tableRowWithLabel: 'Password:' column: [html passwordInputWithCallback: [:v | password _ v]].
			html attributes alignCenter.
			html tableRowWith: [
				html submitButtonOn: #login of: self.
				html space.
				html submitButtonOn: #cancel of: self] span: 2.
		]
	]