diff options
| author | lecoanet | 2003-04-24 14:19:55 +0000 |
|---|---|---|
| committer | lecoanet | 2003-04-24 14:19:55 +0000 |
| commit | 6e96ef7d9865c85245835b71051174a9ae4b2688 (patch) | |
| tree | 4f4874f8b1aed787d8efc67ca3855976e96fbd7e /demos/simpleRadar.tcl | |
| parent | 125ea8b4818f16f18490d8a81279867df8bb98e1 (diff) | |
| download | tkzinc-6e96ef7d9865c85245835b71051174a9ae4b2688.zip tkzinc-6e96ef7d9865c85245835b71051174a9ae4b2688.tar.gz tkzinc-6e96ef7d9865c85245835b71051174a9ae4b2688.tar.bz2 tkzinc-6e96ef7d9865c85245835b71051174a9ae4b2688.tar.xz | |
Corrected a typo that prevented destruction of the timer
on exit.
Diffstat (limited to 'demos/simpleRadar.tcl')
| -rw-r--r-- | demos/simpleRadar.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/demos/simpleRadar.tcl b/demos/simpleRadar.tcl index 9179d4b..6fc1cce 100644 --- a/demos/simpleRadar.tcl +++ b/demos/simpleRadar.tcl @@ -319,7 +319,7 @@ $w.zinc add map radar -color gray50 -mapinfo paris-w # Animate tracks along their trajectories #-------------------------------------------- set timer [after $delay "refresh $w.zinc"] -bind $w.zinc <Destroy> "puts {canceling timer}; after cancel $timer" +bind $w.zinc <Destroy> {puts {canceling timer}; after cancel $timer} proc refresh {z} { global pause timer delay tracks rate |