WAConfigurationBrowser

• addConfiguration:
• children
• deleteConfiguration
• editorFor:
• initialize
• pool:
• renderContentOn:
• select:
• selectedConfiguration

	| config |
	config _ WAUserConfiguration named: nameString.
	pool add: config.
	self select: config

	^ Array with: trail with: selection

	(self confirm: 'Are you sure you want to delete ', self selectedConfiguration name printString, '?')
		ifTrue: [pool remove: self selectedConfiguration].
	selection _ trail _ nil

	^ editors at: aConfiguration ifAbsentPut:
		[WAConfigurationEditor new
			configuration: aConfiguration;
			onAnswer: [:v | self answer];
			yourself]

	editors _ Dictionary new

	pool _ aConfigurationPool

	html form: [
		html
			selectFromList: pool configurations
			selected: self selectedConfiguration
			callback: [:v | self select: v]
			labels: [:ea | ea name].
		html space.
		html submitButtonWithText: 'Go'.
	].
	html form: [
		html text: 'New configuration: '.
		html textInputWithValue: '' callback: [:v | self addConfiguration: v].
		html space.
		html submitButtonWithText: 'Add'.
	].
	selection ifNotNil:
		[html render: trail.
		html horizontalRule.
		self selectedConfiguration isDeletable ifTrue:
			[html paragraph: [html anchorWithAction: [self deleteConfiguration] text: 'Delete']].
		html render: selection]

	selection _ self editorFor: aConfiguration.
	trail _ WATrail on: selection

	^ selection ifNotNil: [selection configuration]