From c333b6fa71d92be0364b3ed3b7ecd9af3c58f3cc Mon Sep 17 00:00:00 2001
From: culler <culler>
Date: Wed, 29 May 2024 16:23:21 +0000
Subject: remove unused variable; forgot to save events.test

---
 generic/tkTest.c |  1 -
 tests/event.test | 20 ++++++++++----------
 2 files changed, 10 insertions(+), 11 deletions(-)

diff --git a/generic/tkTest.c b/generic/tkTest.c
index 4fc6a80..a5f1c34 100644
--- a/generic/tkTest.c
+++ b/generic/tkTest.c
@@ -1718,7 +1718,6 @@ static int ProcessEventsObjCmd(ClientData dummy,
 {
     ClientData oldArg;
     Tk_RestrictProc *oldProc;
-    int count = 0;
     oldProc = Tk_RestrictEvents(CrossingRestrictProc, NULL, &oldArg);
     while (Tcl_ServiceEvent(TCL_WINDOW_EVENTS|TCL_DONT_WAIT)) {};
     Tk_RestrictEvents(oldProc, oldArg, &oldArg);
diff --git a/tests/event.test b/tests/event.test
index 10dcf07..65208b1 100644
--- a/tests/event.test
+++ b/tests/event.test
@@ -935,7 +935,7 @@ test event-9.11 {pointer window container = parent} -setup {
     bind all <Leave> {append result "<Leave> %d %W|"}
     bind all <Enter> {append result "<Enter> %d %W|"}
     destroy .one.f1.f2
-    processevents end
+    processevents
     set result
 } -cleanup {
     bind all <Leave> {}
@@ -959,7 +959,7 @@ test event-9.12 {pointer window container != parent} -setup {
     bind all <Leave> {append result "<Leave> %d %W|"}
     bind all <Enter> {append result "<Enter> %d %W|"}
     destroy .one.g
-    processevents end
+    processevents
     set result
 } -cleanup {
     bind all <Leave> {}
@@ -982,7 +982,7 @@ test event-9.13 {pointer window is a toplevel, toplevel destination} -setup {
     bind all <Enter> {append result "<Enter> %d %W|"}
     destroy .two
     waitForWindowEvent .one <Enter>
-    processevents end
+    processevents
     set result
 } -cleanup {
     bind all <Leave> {}
@@ -1007,7 +1007,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 end
+    processevents
     set result
 } -cleanup {
     bind all <Leave> {}
@@ -1029,7 +1029,7 @@ test event-9.15 {pointer window is a toplevel, destination is screen root} -setu
     bind all <Leave> {append result "<Leave> %d %W|"}
     bind all <Enter> {append result "<Enter> %d %W|"}
     destroy .two
-    processevents end
+    processevents
     set result
 } -cleanup {
     bind all <Leave> {}
@@ -1052,7 +1052,7 @@ test event-9.16 {Successive destructions (pointer window + parent), single gener
     bind all <Leave> {append result "<Leave> %d %W|"}
     bind all <Enter> {append result "<Enter> %d %W|"}
     destroy .one.f1
-    processevents end
+    processevents
     set result
 } -cleanup {
     bind all <Leave> {}
@@ -1078,7 +1078,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
-    processevents end
+    processevents
     set result
 } -cleanup {
     bind all <Leave> {}
@@ -1101,7 +1101,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>
-    processevents end
+    processevents
     set result
 } -cleanup {
     bind all <Leave> {}
@@ -1131,7 +1131,7 @@ test event-9.19 {Successive destructions (pointer window + ancestors including i
     bind all <Enter> {append result "<Enter> %d %W|"}
     destroy .three
     waitForWindowEvent .two.f1.f2 <Enter>
-    processevents end
+    processevents
     set result
 } -cleanup {
     bind all <Leave> {}
@@ -1154,7 +1154,7 @@ test event-9.20 {Successive destructions (pointer window + ancestors including i
     bind all <Leave> {append result "<Leave> %d %W|"}
     bind all <Enter> {append result "<Enter> %d %W|"}
     destroy .two
-    processevents end
+    processevents
     set result
 } -cleanup {
     bind all <Leave> {}
-- 
cgit v0.12