diff options
| author | fvogel <fvogelnew1@free.fr> | 2024-06-09 20:08:52 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2024-06-09 20:08:52 (GMT) |
| commit | bbbd008273a2c030840742cac6b09d596d66ee59 (patch) | |
| tree | 31e57e3d36bb861fd3f6fabf9e2874c5adb32413 /generic | |
| parent | c9218c7a9dd08f1c281c1ba82cb09cc2d7a9e3f7 (diff) | |
| download | tk-bbbd008273a2c030840742cac6b09d596d66ee59.zip tk-bbbd008273a2c030840742cac6b09d596d66ee59.tar.gz tk-bbbd008273a2c030840742cac6b09d596d66ee59.tar.bz2 | |
Rename processevents --> testprocessevents to conform to the widely used convention that commands specific to the test suite start with 'test'.
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tkTest.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/generic/tkTest.c b/generic/tkTest.c index bd6dde3..85dd664 100644 --- a/generic/tkTest.c +++ b/generic/tkTest.c @@ -147,7 +147,7 @@ typedef struct TrivialCommandHeader { static int ImageObjCmd(ClientData dummy, Tcl_Interp *interp, int objc, Tcl_Obj * const objv[]); -static int ProcessEventsObjCmd(ClientData dummy, +static int TestProcessEventsObjCmd(ClientData dummy, Tcl_Interp *interp, int objc, Tcl_Obj * const objv[]); static int TestbitmapObjCmd(ClientData dummy, @@ -250,7 +250,7 @@ Tktest_Init( return TCL_ERROR; } - Tcl_CreateObjCommand(interp, "processevents", ProcessEventsObjCmd, NULL, NULL); + Tcl_CreateObjCommand(interp, "testprocessevents", TestProcessEventsObjCmd, NULL, NULL); Tcl_CreateObjCommand(interp, "square", SquareObjCmd, NULL, NULL); Tcl_CreateObjCommand(interp, "testbitmap", TestbitmapObjCmd, (ClientData) Tk_MainWindow(interp), NULL); @@ -1686,12 +1686,12 @@ ImageDelete( /* *---------------------------------------------------------------------- * - * ProcessEventsObjCmd -- + * TestProcessEventsObjCmd -- * - * This function implements the "processevents" command which processes + * This function implements the "testprocessevents" command which processes * all queued events of a type specified by one of the arguments to the - * command. Currently the supported arguments are leave, enter, and - * motion. Others could be added if needed. + * command. Currently the supported arguments are leave, enter, motion, + * and expose. Others could be added if needed. * * Results: * A standard Tcl result. @@ -1716,7 +1716,7 @@ CrossingRestrictProc( return TK_DEFER_EVENT; } -static int ProcessEventsObjCmd( +static int TestProcessEventsObjCmd( ClientData dummy, Tcl_Interp *interp, int objc, |