diff options
| author | Steve Bennett <steveb@workware.net.au> | 2013-08-02 08:42:11 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2013-08-02 08:44:05 +1000 |
| commit | a9fe2942a09523c248e64d080f8e3b38d3a34f19 (patch) | |
| tree | 5be808a32bb42f3ec98cdfb6e8d8b647b462651d /examples | |
| parent | 7c126ab08220024b7dfe293045e6ee4d0bb3ca95 (diff) | |
| download | jimtcl-a9fe2942a09523c248e64d080f8e3b38d3a34f19.zip jimtcl-a9fe2942a09523c248e64d080f8e3b38d3a34f19.tar.gz jimtcl-a9fe2942a09523c248e64d080f8e3b38d3a34f19.tar.bz2 | |
Correct file handler should be deleted
Previously, Jim_DeleteFileHandler() would indiscriminately
delete the first matching file handler in the list.
Instead, it should delete the file handler matching the event mask.
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/client-server.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/examples/client-server.tcl b/examples/client-server.tcl index 0740773..01b1ed2 100644 --- a/examples/client-server.tcl +++ b/examples/client-server.tcl @@ -34,8 +34,8 @@ if {[os.fork] == 0} { $f writable {} } - $f readable [list onread $f] $f writable [list onwrite $f] + $f readable [list onread $f] alarm 10 catch -signal { |