diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-06-29 11:39:00 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-06-29 11:39:00 (GMT) |
commit | 88fc841203408d81942346c602bc76dd7a97fc3b (patch) | |
tree | 7ce411d2af949b4e0efb15ac084505dc3427742a /tests | |
parent | 75a582f3570a03b8c517653637102c8baf987067 (diff) | |
download | tcl-88fc841203408d81942346c602bc76dd7a97fc3b.zip tcl-88fc841203408d81942346c602bc76dd7a97fc3b.tar.gz tcl-88fc841203408d81942346c602bc76dd7a97fc3b.tar.bz2 |
Tcl_SetVar -> Tcl_SetVar2 and comparable replacements, eliminating functions which are deprecated.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/event.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/event.test b/tests/event.test index 207c799..ef0947f 100644 --- a/tests/event.test +++ b/tests/event.test @@ -595,16 +595,16 @@ test event-11.7 {Bug 16828b3744} { test event-11.8 {Bug 16828b3744} -setup { oo::class create A { variable continue - + method start {} { after idle [self] destroy - + set continue 0 vwait [namespace current]::continue } destructor { set continue 1 - } + } } } -body { [A new] start |