From 82ba5974c4c1d9ddd6b7374a1efdcd4d4cf7eff6 Mon Sep 17 00:00:00 2001 From: nagai Date: Sat, 11 Sep 2004 17:45:53 +0000 Subject: * ext/tcltklib/tcltklib.c: add TclTkIp#allow_ruby_exit? and allow_ruby_exit= * ext/tk/lib/multi-tk.rb: ditto. * ext/tk/lib/remote-tk.rb: ditto. * ext/tcltklib/MANUAL.euc: ditto. * ext/tcltklib/MANUAL.eng: ditto. * ext/tcltklib/tcltklib.c: fix some reasons of SEGV * ext/tk/tkutil.c: ditto. * ext/tk/lib/multi-tk.rb: ditto. * ext/tk/lib/tk/timer.rb: ditto. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@6884 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ext/tk/lib/remote-tk.rb | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'ext/tk/lib/remote-tk.rb') diff --git a/ext/tk/lib/remote-tk.rb b/ext/tk/lib/remote-tk.rb index 85888b158a..d09b2289e6 100644 --- a/ext/tk/lib/remote-tk.rb +++ b/ext/tk/lib/remote-tk.rb @@ -68,6 +68,7 @@ class RemoteTkIp end @interp = MultiTkIp.__getip + @interp.allow_ruby_exit = false @appname = @interp._invoke('tk', 'appname') @remote = remote_ip.dup.freeze if displayof.kind_of?(TkWindow) @@ -249,6 +250,18 @@ class RemoteTkIp _appsend(false, false, 'interp issafe') end + def safe_base? + false + end + + def allow_ruby_exit? + false + end + + def allow_ruby_exit= (mode) + fail RuntimeError, 'cannot change mode of the remote interpreter' + end + def delete _appsend(false, true, 'exit') end -- cgit v1.2.3