> >
> What with infinite loops?
> "rebol.exe" says Windows?
> my 95 can stop rebol's with the task-manager, but for instance old textpad
> can't do it (maybe textpads fault)?
> And all are named REBOL..
> Could there be a timeout which triggers like escape?
>
> Volker

Hi Volker,

This is kind of  off target here, but..
The method below would solve that problem in rebol/view. It ensures that
processes don't keep running in the task manager after the window is closed
for a rebol/view script that has an infinite loop.
Hopefully the event scheme could be added to rebol/core too. or Perhaps some
of the rebol/core gurus have similar solution for rebol/core?

event-port: open [scheme: 'event]
forever [
    ; do stuff...
    ; do more stuff
    wait event-port ; since time events are always firing it won't have to
wait long.
    event: first event-port
    if event/type = 'quit [break]
    do event
]
close event-port
; end of script..

Cheers,

Allen K



>
>

Reply via email to