From 4158a73ee47321de856b8bce5668b07a824d3374 Mon Sep 17 00:00:00 2001 From: nagai Date: Mon, 28 Jul 2003 06:10:13 +0000 Subject: 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 --- ext/tcltklib/tcltklib.c | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'ext/tcltklib') 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; -- cgit v1.2.3