[Seaside] Seaside Uptime

[Sven Van Caekenberghe]

Hi,

The following code is not good enough (Seaside 3):

WAImageStatus>>#renderValuesOn: html
	| image upTime |
	image := SmalltalkImage current.
	
	upTime := Duration milliseconds: Time millisecondClockValue.
	
	self renderLabel: 'Uptime' value: (self printDuration: upTime) on: html.
	...

The uptime wraps around on long running images, and since all Seaside applications have enormeous uptimes, it is a pity that this is not reported correctly. I have a fix by registering the class with the image startUpList, setting the startUpTime in a class variable.

Sven