diff options
author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-07-30 04:36:29 +0000 |
---|---|---|
committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-07-30 04:36:29 +0000 |
commit | b873f41c1e577168b6322bd96f38b077b44d5314 (patch) | |
tree | 5824d094039c3c2af7e448bb3946f1be10dbabe0 /ext/tk/lib/tkafter.rb | |
parent | 2555db608ec305fdd478c48b6e689715e711b037 (diff) | |
download | ruby-b873f41c1e577168b6322bd96f38b077b44d5314.tar.gz |
* additional check of Tk interpreters' status for a little more safety
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4226 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk/lib/tkafter.rb')
-rw-r--r-- | ext/tk/lib/tkafter.rb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ext/tk/lib/tkafter.rb b/ext/tk/lib/tkafter.rb index b24d6c72d3..eddfc16f63 100644 --- a/ext/tk/lib/tkafter.rb +++ b/ext/tk/lib/tkafter.rb @@ -34,7 +34,7 @@ class TkTimer begin ex_obj.cb_call rescue Exception - Tk_CBTBL[obj_id] = nil + ex_obj.cancel "" end end @@ -143,6 +143,7 @@ class TkTimer set_procs(*args) if args != [] @running = false + @in_callback = false end attr :after_id |