summaryrefslogtreecommitdiff
path: root/ext/tk/lib/tkafter.rb
diff options
context:
space:
mode:
Diffstat (limited to 'ext/tk/lib/tkafter.rb')
-rw-r--r--ext/tk/lib/tkafter.rb9
1 files changed, 8 insertions, 1 deletions
diff --git a/ext/tk/lib/tkafter.rb b/ext/tk/lib/tkafter.rb
index eddfc16..529b1e6 100644
--- a/ext/tk/lib/tkafter.rb
+++ b/ext/tk/lib/tkafter.rb
@@ -114,7 +114,14 @@ class TkTimer
@id = Tk_CBID.join
Tk_CBID[1].succ!
- @cb_cmd = TkCore::INTERP.get_cb_entry(self.method(:do_callback))
+ # @cb_cmd = TkCore::INTERP.get_cb_entry(self.method(:do_callback))
+ @cb_cmd = TkCore::INTERP.get_cb_entry(proc{
+ begin
+ self.do_callback
+ rescue
+ self.cancel
+ end
+ })
@set_next = true