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