diff options
| -rw-r--r-- | ChangeLog | 4 | ||||
| -rw-r--r-- | ext/tk/tcltklib.c | 7 |
2 files changed, 8 insertions, 3 deletions
@@ -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 */ + |