WAApplication

• baseUrl
• configurationComponent
• defaultLibraries
• libraries
• name

• sessionClass

• configuration
• defaultAncestor
• preferenceAt:
• preferenceAt:put:

• handleDefaultRequest:
• updateRoot:

• description
• path:

InitialValue:

a WAUserConfiguration

inferredType:

WAUserConfiguration

InitialValue:

an OrderedCollection(WAStandardScripts WAStandardStyles)

inferredType:

OrderedCollection

inferredType:

UndefinedObject

	^ super baseUrl
		port: (self preferenceAt: #serverPort);
		hostname: (self preferenceAt: #serverHostname);
		scheme: (self preferenceAt: #serverProtocol);
		yourself

	^ WAApplicationEditor new application: self

	^ Array with: WAStandardScripts with: WAStandardStyles

	^ libraries ifNil: [libraries _ OrderedCollection withAll: self defaultLibraries]

	| segments |
	segments _ basePath findTokens: '/'.
	^ segments isEmpty
		ifTrue: ['']
		ifFalse: [segments last ]

	^ configuration valueAt: #sessionClass

	^ configuration ifNil: [configuration _ WAUserConfiguration new addAncestor: self defaultAncestor]

	"yes, breaking layering"
	^ WARenderLoopConfiguration localConfiguration

	^ self configuration valueAt: aSymbol

	^ self configuration valueAt: aSymbol put: anObject

	|session|
	session _ self sessionClass application: self.
	^ session handleRequest: aRequest

	anHtmlRoot title = '' ifTrue: [anHtmlRoot title: self basePath].
	self libraries do: [:ea | ea updateRoot: anHtmlRoot]

	^ 'Seaside Application'

	^ self new basePath: pathString