Hi all,

I'm having a problem trying to build a run loop. If an exception is signalled 
within one of the run loop tasks, the exception escapes through the loop and 
terminates the process.

I know I can catch the exception, and do something like print the message on 
the Transcript, but I was hoping to build something that was more helpful in 
development, allowing me to look through the stack, but if I press 'abandon' on 
that dialog, the run loop would continue from where I caught the exception.

The code:

startRunLoop
self stopRunLoop.
self runLoop: (
[ [ self doTimedTasks ]
on: Exception
do: [ :err | " show the exception notifier " ] ]
repeatEvery: 0.1 seconds named: 'BrTimeline run loop' )

where repeatEvery:named: is implemented as such:

repeatEvery: aDuration named: aProcessName
^ [ [ self value.
aDuration asDelay wait ] repeat ] forkNamed: aProcessName

Thanks,
Joe

Reply via email to