[Seaside] WAApplication isDeployed vs. deploymentMode

[Dominic Letz]

Hi

WAApplication contains two instance side messages

1. "isDeployed" which is called during automatic deployment preparation
using "WADispatcher default trimForDeployment".

2. "deploymentMode" which is called to decide wheter debugging
information should be visible

Currently these messages produce independent results. 
isDeployed calls the root WAComponent's class side message isDeployed
(which may produce an error if that WAApplication has no root component)
deploymentMode checks the WAApplications configuration's #deploymentMode
variable

In my opinion isDeployed should never fail and override deploymentMode.
Hence deplyomentMode should return "true" if isDeployed returned "true"
or the WAApplications configurtaion's #deploymentMode variable contains true

Here are my implementations (using seaside2.6b1-pmm.76)

deploymentMode
	self isDeployed
		ifTrue: [^true]
		ifFalse:[^self preferenceAt: #deploymentMode]

isDeployed
	self rootComponent isNil
		ifTrue: [^false]
		ifFalse: [^self rootComponent isDeployed]		


I hope for suggestions and hints on the meaning of deploymentMode and
isDeployed.

Faithfully
Dominic Letz