WANavigation

• initialize
• options

• labelForOption:

• renderContentOn:
• renderOptionsOn:
• renderSelectionOn:

• select:
• selection
• selectionChanged

	selection _ WAStateHolder new

	^ #()

	^ anObject asString

	html divClass: 'kalsey' with: [
		html divClass: 'navigation-options' with: [self renderOptionsOn: html].
		html divClass: 'navigation-content' with: [self renderSelectionOn: html].
	]

	html
		unorderedList: self options
		selected: self selection
		callback: [:v | self select: v]
		labels: [:ea | self labelForOption: ea]

	selection contents: anObject.
	self selectionChanged

	^ selection contents