From 3be4523bde22f2db6a5b7c60929f8e4194ba2a92 Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Mon, 22 Dec 2008 09:04:14 +0000
Subject: [PATCH] * ext/tk/tcltklib.c: fix wrong flag value.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@20913 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ChangeLog         | 4 ++++
 ext/tk/tcltklib.c | 7 ++++---
 2 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 2e8b2b6c7e..c3b2821cbe 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Mon Dec 22 18:00:36 2008  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
+
+	* ext/tk/tcltklib.c: fix wrong flag value.
+
 Mon Dec 22 12:26:18 2008  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* cygwin/GNUmakefile.in (rubydll.def), win32/mkexports.rb
diff --git a/ext/tk/tcltklib.c b/ext/tk/tcltklib.c
index 22287e8c65..a187dceed5 100644
--- a/ext/tk/tcltklib.c
+++ b/ext/tk/tcltklib.c
@@ -4,7 +4,7 @@
  *              Oct. 24, 1997   Y. Matsumoto
  */
 
-#define TCLTKLIB_RELEASE_DATE "2008-12-03"
+#define TCLTKLIB_RELEASE_DATE "2008-12-22"
 
 #include "ruby.h"
 
@@ -411,7 +411,7 @@ static VALUE eventloop_thread;
 Tcl_ThreadId tk_eventloop_thread_id;  /* native thread ID of Tcl interpreter */
 #endif
 static VALUE eventloop_stack;
-static int   window_event_mode = ( ~ TCL_IDLE_EVENTS | TCL_WINDOW_EVENTS );
+static int   window_event_mode = ~0;
 
 static VALUE watchdog_thread;
 
@@ -1187,7 +1187,7 @@ set_eventloop_window_mode(self, mode)
     if (RTEST(mode)) {
       window_event_mode = ~0;
     } else {
-      window_event_mode = ~(TCL_WINDOW_EVENTS | TCL_IDLE_EVENTS);
+      window_event_mode = ~TCL_WINDOW_EVENTS;
     }
 
     return mode;
@@ -10152,3 +10152,4 @@ Init_tcltklib()
 }
 
 /* eof */
+