Hey Bjvrn Persson,
Please see my comments below,
> > -------------------------------------------------------------------
> > # # # # # # # # # # # # # # # # # # # # # # # # # #
> > # Play an Aleart
> > # # # # # # # # # # # # # # # # # # # # # # # # # #
> > proc playSound {} \
> > {
> > global playSnd
> >
> > if {$playSnd > 0} \
> > {
> > bell
> > # after 1250 milli secs play a bell
> > after 1250 bell
> > playNext
> > }
> > #puts "in playSound -> $playSnd"
> > }
> >
> > proc playNext {} \
> > {
> > after 1250 playSound
> > }
>
> Is recursion the normal way of making a loop in TCL? If the interpreter is
> smart enough it might be able to see that this is tail recursion and turn
> it into a loop, but otherwise it will eventually run out of memory.
I am using the recursive technique, but b4 doing that I am checking for a
global flag (playSnd). So technically it is not an endless loop.
>
> What exactly did you change when it worked?
I just put a "#" in front of the bell commands ( I made it inactive).
Thanks,
Matt
_______________________________________________
VNC-List mailing list
[EMAIL PROTECTED]
To remove yourself from the list visit:
http://www.realvnc.com/mailman/listinfo/vnc-list
