Help needed!!!

[sergelaurent]

Does anyone out knows how to program an interruption task in tcl/tk?

In fact, I have the following code:
while {$toto==1}
incr i
}

I want to stop the loop by a simple touch on the keyboard. Is this possile?

How can I do this?

Thanks
lolo

 

[Bong]

First of all, I think you need to use the Wish (Tk) shell. I don't think Tclsh processes "events".

The event you want is KeyPress so you might try something like this:
set a 1
bind . <KeyPress> {set a 0}
set i 0
while {$toto==1 && $a} {
incr i
update;#[red]you need to update to process loop events[/red]
}

_________________
Bob Rashkin
rrashkin@csc.com