WANavigationBar

• actions
• actionsSelector:
• initialize
• owner:
• renderContentOn:
• renderInput:on:
• renderLink:on:
• target

	^ self target perform: actionsSelector

	actionsSelector _ aSymbol

	actionsSelector _ #actions

	mOwner _ anObject

	self actions do:
		[:symbol |
		symbol numArgs = 0
			ifTrue: [self renderLink: symbol on: html]
			ifFalse: [self renderInput: symbol on: html]]

	html form: [
		html bold: aSymbol capitalized.
		html space.
		html textInputWithValue: '' callback: [:v | self target perform: aSymbol with: v].
	]

	html anchorOn: aSymbol of: self target.
	html break

	^ mOwner activeComponent