diff options
author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-07-28 06:10:13 +0000 |
---|---|---|
committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-07-28 06:10:13 +0000 |
commit | 4158a73ee47321de856b8bce5668b07a824d3374 (patch) | |
tree | 8a6419bec0d221f7fba9721de7984192be6adca6 /ext/tcltklib | |
parent | ad50cacf19cac418accfde8f4978b8a63aef4735 (diff) | |
download | ruby-4158a73ee47321de856b8bce5668b07a824d3374.tar.gz |
tcltklib.c : *bug fix
multi-tk.rb : *bug fix
*add methods depend on Tcl's 'interp' command
*suppot to control safe-level of each interpreter
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4189 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tcltklib')
-rw-r--r-- | ext/tcltklib/tcltklib.c | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/ext/tcltklib/tcltklib.c b/ext/tcltklib/tcltklib.c index bf258f6d9b..cad67babe0 100644 --- a/ext/tcltklib/tcltklib.c +++ b/ext/tcltklib/tcltklib.c @@ -217,7 +217,7 @@ rb_evloop_abort_no_cmd_set(self, val) { rb_secure(4); event_loop_abort_no_cmd = (val == Qtrue)? 1: 0; - return rb_event_loop_abort_no_cmd(); + return rb_evloop_abort_no_cmd(); } VALUE @@ -710,8 +710,7 @@ ip_create_slave(argc, argv, self) /* create slave-ip */ if ((slave->ip = Tcl_CreateSlave(master->ip, StringValuePtr(name), safe)) == NULL) { - rb_ip_raise(self, rb_eRuntimeError, - "fail to create the new slave interpreter"); + rb_raise(rb_eRuntimeError, "fail to create the new slave interpreter"); } Tcl_Preserve((ClientData)slave->ip); slave->return_value = 0; @@ -727,7 +726,7 @@ ip_make_safe(self) struct tcltkip *ptr = get_ip(self); if (Tcl_MakeSafe(ptr->ip) == TCL_ERROR) { - rb_ip_raise(self, rb_eRuntimeError, "%s", ptr->ip->result); + rb_raise(rb_eRuntimeError, "%s", ptr->ip->result); } return self; |