[Seaside-dev] [Dolphin] Use of Delay on CTPusher class>>startUp and pingProcess

[GallegO]

Hi list,

I'm having problems with CTPusher class>>startUp, called in the image startUp.

startUp
	self shutDown.
	delay := Delay forSeconds: 15.
	process := WAPlatform current
		forkCometProcessDo: [ [ self pingProcess ] repeat ]

I think that there is no sense to maintain cached delay. The only
reader is pingProcess doing...

pingProcess
	self allInstancesDo: [ :each | each ping ].
	delay wait

I think "delay wait" can be safely replaced by "Delay forSeconds: 15"
(removing it from startUp).

I'm asking on this because in Dolphin Smalltalk, Delay's are one shot,
and calling #wait for a second time results on returning immediately
and due to this falling into an infinite loop.

Can be modified on core?

Cheers
  Sebastian