added interface to Tk_DoOneEvent (R Lindsay Todd)

This commit is contained in:
Guido van Rossum 1995-01-10 17:42:51 +00:00
parent 58b6873f6b
commit 062cfb0c4e
1 changed files with 34 additions and 0 deletions

View File

@ -1030,6 +1030,26 @@ Tkapp_MainLoop (self, args)
return Py_None;
}
static PyObject *
Tkapp_DoOneEvent (self, args)
PyObject *self;
PyObject *args;
{
int flags;
int rv;
if (PyArg_Parse (args, ""))
flags = TK_ALL_EVENTS;
else
{
PyErr_Clear();
if (!PyArg_Parse (args, "i", &flags))
return NULL;
}
rv = Tk_DoOneEvent(flags);
return Py_BuildValue ("i", rv);
}
static PyObject *
Tkapp_Quit (self, args)
PyObject *self;
@ -1076,6 +1096,7 @@ static PyMethodDef Tkapp_methods[] =
{"deletefilehandler", Tkapp_DeleteFileHandler},
{"createtimerhandler", Tkapp_CreateTimerHandler},
{"mainloop", Tkapp_MainLoop},
{"dooneevent", Tkapp_DoOneEvent},
{"quit", Tkapp_Quit},
{NULL, NULL}
};
@ -1165,6 +1186,7 @@ static PyMethodDef moduleMethods[] =
{"deletefilehandler", Tkapp_DeleteFileHandler},
{"createtimerhandler", Tkapp_CreateTimerHandler},
{"mainloop", Tkapp_MainLoop},
{"dooneevent", Tkapp_DoOneEvent},
{"quit", Tkapp_Quit},
{NULL, NULL}
};
@ -1216,6 +1238,18 @@ PyInit_tkinter ()
PyDict_SetItemString (d, "WRITABLE", v);
v = Py_BuildValue ("i", TK_EXCEPTION);
PyDict_SetItemString (d, "EXCEPTION", v);
v = Py_BuildValue ("i", TK_X_EVENTS);
PyDict_SetItemString (d, "X_EVENTS", v);
v = Py_BuildValue ("i", TK_FILE_EVENTS);
PyDict_SetItemString (d, "FILE_EVENTS", v);
v = Py_BuildValue ("i", TK_TIMER_EVENTS);
PyDict_SetItemString (d, "TIMER_EVENTS", v);
v = Py_BuildValue ("i", TK_IDLE_EVENTS);
PyDict_SetItemString (d, "IDLE_EVENTS", v);
v = Py_BuildValue ("i", TK_ALL_EVENTS);
PyDict_SetItemString (d, "ALL_EVENTS", v);
v = Py_BuildValue ("i", TK_DONT_WAIT);
PyDict_SetItemString (d, "DONT_WAIT", v);
#ifdef WITH_READLINE
rl_event_hook = EventHook;