From bbbd008273a2c030840742cac6b09d596d66ee59 Mon Sep 17 00:00:00 2001
From: fvogel <fvogelnew1@free.fr>
Date: Sun, 9 Jun 2024 20:08:52 +0000
Subject: Rename processevents --> testprocessevents to conform to the widely
 used convention that commands specific to the test suite start with 'test'.

---
 generic/tkTest.c | 14 +++++++-------
 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> {}
-- 
cgit v0.12