diff options
| author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2005-11-02 10:06:11 +0000 |
|---|---|---|
| committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2005-11-02 10:06:11 +0000 |
| commit | 573904c6b79dd691242718ef665620ee7c1c8370 (patch) | |
| tree | 6a225fcbce445dc5aa1d4ed1534d560b248c5efb /ext/tcltklib | |
| parent | b5bfebe4203257227713d08897529a60a6ef4347 (diff) | |
* ext/tcltklib/tcltklib.c (ip_rbUpdateObjCmd, ip_rb_threadUpdateObjCmd): passed improper flags to DoOneEvent().
* ext/tk/tkutil.c: use rb_obj_respond_to() instead of rb_respond_to().
git-svn-id: http://svn.ruby-lang.org/repos/ruby/branches/ruby_1_8@9492 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tcltklib')
| -rw-r--r-- | ext/tcltklib/tcltklib.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/ext/tcltklib/tcltklib.c b/ext/tcltklib/tcltklib.c index a6374cb0d..131dcd399 100644 --- a/ext/tcltklib/tcltklib.c +++ b/ext/tcltklib/tcltklib.c @@ -4,7 +4,7 @@ * Oct. 24, 1997 Y. Matsumoto */ -#define TCLTKLIB_RELEASE_DATE "2005-09-28" +#define TCLTKLIB_RELEASE_DATE "2005-11-02" #include "ruby.h" #include "rubysig.h" @@ -2758,7 +2758,7 @@ ip_rbUpdateCommand(clientData, interp, objc, objv) #endif if (objc == 1) { - flags = TCL_ALL_EVENTS|TCL_DONT_WAIT; + flags = TCL_DONT_WAIT; } else if (objc == 2) { #if TCL_MAJOR_VERSION >= 8 @@ -2768,7 +2768,7 @@ ip_rbUpdateCommand(clientData, interp, objc, objv) } switch ((enum updateOptions) optionIndex) { case REGEXP_IDLETASKS: { - flags = TCL_WINDOW_EVENTS|TCL_IDLE_EVENTS|TCL_DONT_WAIT; + flags = TCL_IDLE_EVENTS; break; } default: { @@ -2781,7 +2781,7 @@ ip_rbUpdateCommand(clientData, interp, objc, objv) "\": must be idletasks", (char *) NULL); return TCL_ERROR; } - flags = TCL_WINDOW_EVENTS|TCL_IDLE_EVENTS|TCL_DONT_WAIT; + flags = TCL_IDLE_EVENTS; #endif } else { #ifdef Tcl_WrongNumArgs @@ -2919,7 +2919,7 @@ ip_rb_threadUpdateCommand(clientData, interp, objc, objv) DUMP1("start Ruby's 'thread_update' body"); if (objc == 1) { - flags = TCL_ALL_EVENTS|TCL_DONT_WAIT; + flags = TCL_DONT_WAIT; } else if (objc == 2) { #if TCL_MAJOR_VERSION >= 8 @@ -2929,7 +2929,7 @@ ip_rb_threadUpdateCommand(clientData, interp, objc, objv) } switch ((enum updateOptions) optionIndex) { case REGEXP_IDLETASKS: { - flags = TCL_WINDOW_EVENTS|TCL_IDLE_EVENTS|TCL_DONT_WAIT; + flags = TCL_IDLE_EVENTS; break; } default: { @@ -2942,7 +2942,7 @@ ip_rb_threadUpdateCommand(clientData, interp, objc, objv) "\": must be idletasks", (char *) NULL); return TCL_ERROR; } - flags = TCL_WINDOW_EVENTS|TCL_IDLE_EVENTS|TCL_DONT_WAIT; + flags = TCL_IDLE_EVENTS; #endif } else { #ifdef Tcl_WrongNumArgs |