diff options
| author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-11-14 04:25:11 +0000 |
|---|---|---|
| committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-11-14 04:25:11 +0000 |
| commit | 5349874252077136f51579ca397625a0dc715a7b (patch) | |
| tree | 43212608bbabe9ee3cdb7c438e39f22cccb2a040 /ext/tcltklib/tcltklib.c | |
| parent | 9fee0c277466ac85e58705cfcc413743dcc496f3 (diff) | |
| download | ruby-5349874252077136f51579ca397625a0dc715a7b.tar.gz ruby-5349874252077136f51579ca397625a0dc715a7b.tar.xz ruby-5349874252077136f51579ca397625a0dc715a7b.zip | |
* ext/tcltklib/tcltklib.c: fix (en-bugged at 2003/11/07)
* ext/tk/lib/tkdialog.rb: TkDialog.new accepts the parent widget [ruby-talk:85066]
git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@4955 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tcltklib/tcltklib.c')
| -rw-r--r-- | ext/tcltklib/tcltklib.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/ext/tcltklib/tcltklib.c b/ext/tcltklib/tcltklib.c index a49bd7c7f..d20c24eb2 100644 --- a/ext/tcltklib/tcltklib.c +++ b/ext/tcltklib/tcltklib.c @@ -461,9 +461,7 @@ lib_eventloop_core(check_root, check_var) } } - found_event = Tcl_DoOneEvent(TCL_ALL_EVENTS | TCL_DONT_WAIT); - - if (found_event) { + if (Tcl_DoOneEvent(TCL_ALL_EVENTS | TCL_DONT_WAIT)) { tick_counter++; } else { tick_counter += no_event_tick; |