diff options
| -rw-r--r-- | generic/tkTest.c | 1 | ||||
| -rw-r--r-- | 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> {} |