WinWorkstation.st
changeset 2630 f1c54987ea84
parent 2629 d5fcb2aa3181
child 2632 e18b55db3e1e
--- a/WinWorkstation.st	Tue May 04 02:46:11 1999 +0200
+++ b/WinWorkstation.st	Tue May 04 03:15:53 1999 +0200
@@ -1470,13 +1470,19 @@
 
 	if (ev != NULL) {
 	    if (ev->count != -1) {
+		static int anyGoodEventReceived = 1;
+
 		if (eventempfcount != ev->count) {
-		    fprintf(stderr, "eventcount error %d <-> %d\n",
-				     eventempfcount, ev->count);
+		    if (anyGoodEventReceived) {    
+			fprintf(stderr, "WinWorkstation [warning]: lost event (eventcount error %d <-> %d)\n",
+					 eventempfcount, ev->count);
+		    }
 		    eventempfcount = ev->count;
+		    anyGoodEventReceived = 0;
 		} else {
-		    eventempfcount++;
-		}
+		    anyGoodEventReceived = 1;
+		}
+		eventempfcount++;
 	    }
 	    if (ev->ev_message == WM_DESTROY) {
 		if (ev->ev_arg2) {
@@ -11574,6 +11580,6 @@
 !WinWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.109 1999-05-04 00:46:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.110 1999-05-04 01:15:53 cg Exp $'
 ! !
 WinWorkstation initialize!