From 9f8aadaa0e2f214d3dc4b4e3a5955de3162fb3f5 Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Sat, 22 Nov 2003 13:52:48 +0000
Subject: * ext/tk/lib/tk.rb: add Tk.grab_release and fix bug of TkComposite *
 ext/tk/lib/tkafter.rb: bug fix * ext/tk/sample/tkcombobox.rb: new sample
 script * ext/tcltklib/tcltklib.c: add native thread check

git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@5007 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/tcltklib/tcltklib.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'ext/tcltklib')

diff --git a/ext/tcltklib/tcltklib.c b/ext/tcltklib/tcltklib.c
index d20c24eb2..50c654d81 100644
--- a/ext/tcltklib/tcltklib.c
+++ b/ext/tcltklib/tcltklib.c
@@ -503,7 +503,9 @@ lib_eventloop_core(check_root, check_var)
 	    rb_trap_exec();
 	} else {
             DUMP1("thread scheduling");
-	    rb_thread_schedule();
+	    if (is_ruby_native_thread()) {
+		rb_thread_schedule();
+	    }
 	}
     }
     return 1;
-- 
cgit