diff options
| author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2004-09-03 02:33:08 +0000 |
|---|---|---|
| committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2004-09-03 02:33:08 +0000 |
| commit | 1ece9c7f20ffd30414bd2c23d84a6cd1d9e7fbbc (patch) | |
| tree | 37377afef3e7da5e819326c0f38866bf8e3f02af | |
| parent | 2fe633b7492890808b0ff7f3e57c5de2dd98ccee (diff) | |
| download | ruby-1ece9c7f20ffd30414bd2c23d84a6cd1d9e7fbbc.tar.gz ruby-1ece9c7f20ffd30414bd2c23d84a6cd1d9e7fbbc.tar.xz ruby-1ece9c7f20ffd30414bd2c23d84a6cd1d9e7fbbc.zip | |
* ext/tk/lib/tk.rb: Tk.after makes TkCore::INTERP.tk_cmd_tbl grow [ruby-dev:24207]
git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@6853 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | ext/tk/lib/tk.rb | 16 |
2 files changed, 19 insertions, 2 deletions
@@ -1,3 +1,8 @@ +Fri Sep 3 11:31:44 2004 Hidetoshi NAGAI <nagai@ai.kyutech.ac.jp> + + * ext/tk/lib/tk.rb: Tk.after makes TkCore::INTERP.tk_cmd_tbl grow + [ruby-dev:24207] + Fri Sep 3 02:12:48 2004 Hidetoshi NAGAI <nagai@ai.kyutech.ac.jp> * ext/tcltklib/tcltklib.c: fix typo [ruby-talk:111266] diff --git a/ext/tk/lib/tk.rb b/ext/tk/lib/tk.rb index 800031a68..e6a4dd14e 100644 --- a/ext/tk/lib/tk.rb +++ b/ext/tk/lib/tk.rb @@ -1191,8 +1191,14 @@ module TkCore end def after(ms, cmd=Proc.new) + crit_bup = Thread.critical + Thread.critical = true + myid = _curr_cmd_id - cmdid = install_cmd(cmd) + cmdid = install_cmd(proc{ret = cmd.call;uninstall_cmd(myid); ret}) + + Thread.critical = crit_bup + tk_call_without_enc("after",ms,cmdid) # return id # return # if false #defined? Thread @@ -1209,8 +1215,14 @@ module TkCore end def after_idle(cmd=Proc.new) + crit_bup = Thread.critical + Thread.critical = true + myid = _curr_cmd_id - cmdid = install_cmd(cmd) + cmdid = install_cmd(proc{ret = cmd.call;uninstall_cmd(myid); ret}) + + Thread.critical = crit_bup + tk_call_without_enc('after','idle',cmdid) end |