diff options
-rw-r--r-- | generic/tkTest.c | 14 | ||||
-rw-r--r-- | tests/event.test | 16 |
2 files changed, 15 insertions, 15 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, diff --git a/tests/event.test b/tests/event.test index c37fc67..b1c7931 100644 --- a/tests/event.test +++ b/tests/event.test @@ -937,7 +937,7 @@ test event-9.11 {pointer window container = parent} -setup { bind all <Enter> {append result "<Enter> %d %W|"} destroy .one.f1.f2 if {[tk windowingsystem] ne "x11"} { - processevents enter leave + testprocessevents enter leave } else { update } @@ -965,7 +965,7 @@ test event-9.12 {pointer window container != parent} -setup { bind all <Enter> {append result "<Enter> %d %W|"} destroy .one.g if {[tk windowingsystem] ne "x11"} { - processevents enter leave + testprocessevents enter leave } else { update } @@ -992,7 +992,7 @@ test event-9.13 {pointer window is a toplevel, toplevel destination} -setup { destroy .two waitForWindowEvent .one <Enter> if {[tk windowingsystem] ne "x11"} { - processevents enter leave + testprocessevents enter leave } else { update } @@ -1020,7 +1020,7 @@ test event-9.14 {pointer window is a toplevel, tk internal destination} -setup { bind all <Enter> {append result "<Enter> %d %W|"} destroy .two waitForWindowEvent .one.f1.f2 <Enter> - processevents enter leave + testprocessevents enter leave set result } -cleanup { bind all <Leave> {} @@ -1068,7 +1068,7 @@ test event-9.16 {Successive destructions (pointer window + parent), single gener bind all <Enter> {append result "<Enter> %d %W|"} destroy .one.f1 if {[tk windowingsystem] ne "x11"} { - processevents enter leave + testprocessevents enter leave } else { update } @@ -1098,7 +1098,7 @@ test event-9.17 {Successive destructions (pointer window + parent), separate cro update; # make sure window is gone destroy .one.f1 update; # make sure window is gone - if {[tk windowingsystem] ne "x11"} {processevents enter leave} + if {[tk windowingsystem] ne "x11"} {testprocessevents enter leave} set result } -cleanup { bind all <Leave> {} @@ -1121,7 +1121,7 @@ test event-9.18 {Successive destructions (pointer window + ancestors including i bind all <Enter> {append result "<Enter> %d %W|"} destroy .two waitForWindowEvent .one <Enter> - if {[tk windowingsystem] ne "x11"} {processevents enter leave} + if {[tk windowingsystem] ne "x11"} {testprocessevents enter leave} set result } -cleanup { bind all <Leave> {} @@ -1152,7 +1152,7 @@ test event-9.19 {Successive destructions (pointer window + ancestors including i destroy .three waitForWindowEvent .two.f1.f2 <Enter> update idletasks; #finish destroying .two - if {[tk windowingsystem] ne "x11"} {processevents enter leave} + if {[tk windowingsystem] ne "x11"} {testprocessevents enter leave} set result } -cleanup { bind all <Leave> {} |