WAApplicationEditor

• application:

• select:

• children

• addLibrary
• allLibraries
• libraryOptions
• renderContentOn:
• renderFormOn:

	application _ anApplication.
	configuration _ application configuration.

	self call: (WAConfigurationBrowser new
				pool: (WASystemConfigurationPool default);
				select: aConfiguration;
				yourself)

	^ Array with: configEditor

	application libraries add: library

	^ WAStyleLibrary subclasses, WAScriptLibrary subclasses

	^ self allLibraries difference: application libraries

	html heading: 'Application: ', application name.

	super renderContentOn: html.

		html text: 'Base Path: '.
		html textInputOn: #basePath of: application.
		
		html heading: 'Libraries' level: 2.
		self libraryOptions isEmpty ifFalse:
			[html text: 'Add Library: '.
			html
				selectFromList: self libraryOptions
				selected: nil
				callback: [:v | library _ v].
			html space.
			html submitButtonWithAction: [self addLibrary] text: 'Add'.].
		html list: application libraries do:
			[:ea |
			html text: ea.
			html space.
			html anchorWithAction: [application libraries remove: ea] text: '(remove)'].
		
		super renderFormOn: html