From 4cd2a9864c9d215500dacef309c4eacb0db9ce3a Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Tue, 6 Mar 2007 02:56:32 +0000
Subject: * ext/tk/sample/irbtkw.rbw: fails to exit process.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@12002 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ChangeLog                | 4 ++++
 ext/tk/sample/irbtkw.rbw | 7 ++++++-
 2 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index b0ee82468e..c8e0d04471 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Tue Mar  6 11:53:25 2007  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
+
+	* ext/tk/sample/irbtkw.rbw: fails to exit process.
+
 Tue Mar  6 10:23:09 2007  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* runruby.rb: added --pure (turned on by default) and --debugger
diff --git a/ext/tk/sample/irbtkw.rbw b/ext/tk/sample/irbtkw.rbw
index 92fa5692f2..f6a35be6ed 100644
--- a/ext/tk/sample/irbtkw.rbw
+++ b/ext/tk/sample/irbtkw.rbw
@@ -26,7 +26,11 @@ console.yscrollbar(TkScrollbar.new(top, :width=>10).pack(:before=>console,
                                                          :side=>:right, 
                                                          :expand=>false, 
                                                          :fill=>:y))
-ev_loop = Thread.new{Tk.mainloop}
+irb_thread = nil
+ev_loop = Thread.new{
+  Tk.mainloop
+  irb_thread.kill if irb_thread
+}
 
 # window position control
 root = Tk.root
@@ -116,4 +120,5 @@ console.bind('Control-c'){
 irb_thread.join
 
 # exit
+ev_thread.kill
 Tk.exit
-- 
cgit v1.2.3