1 files changed, 148 insertions, 0 deletions
diff --git a/xc/test/xsuite/xtest/src/lib/exposechk.c b/xc/test/xsuite/xtest/src/lib/exposechk.c
new file mode 100644
index 000000000..ede92f8d5
--- /dev/null
+++ b/xc/test/xsuite/xtest/src/lib/exposechk.c
@@ -0,0 +1,148 @@
+/*
+ * Copyright 1990, 1991 by the Massachusetts Institute of Technology and
+ * UniSoft Group Limited.
+ * 
+ * Permission to use, copy, modify, distribute, and sell this software and
+ * its documentation for any purpose is hereby granted without fee,
+ * provided that the above copyright notice appear in all copies and that
+ * both that copyright notice and this permission notice appear in
+ * supporting documentation, and that the names of MIT and UniSoft not be
+ * used in advertising or publicity pertaining to distribution of the
+ * software without specific, written prior permission.  MIT and UniSoft
+ * make no representations about the suitability of this software for any
+ * purpose.  It is provided "as is" without express or implied warranty.
+ *
+ * $XConsortium$
+ */
+
+#include	"xtest.h"
+#include	"Xlib.h"
+#include	"Xutil.h"
+#include	"xtestlib.h"
+
+/*
+ * Set up a window for testing exposure processing.  This routine
+ * is called first, the window is then covered and exposed.
+ */
+void
+setforexpose(disp, w)
+Display	*disp;
+Window	w;
+{
+	/*
+	 * Ensure that the background is set.  The whole screen is drawn
+	 * on.
+	 */
+	XSetWindowBackground(disp, w, W_BG);
+	dset(disp, w, W_FG);
+}
+
+/*
+ * Take the given window and use any Expose events in the queue
+ * to redraw exposed parts of the window.
+ * The fields in the events are checked at the same time.
+ * Returns False if the Expose events fields (other than the position/size
+ * fields) are incorrect.
+ */
+Status
+exposefill(disp, w)
+Display	*disp;
+Window	w;
+{
+XEvent	ev;
+XExposeEvent	good;
+XExposeEvent	*ep;
+GC	gc;
+struct	area	area;
+int 	lastcount = 0;
+
+	good.type = Expose;
+	good.serial = 0;
+	good.send_event = False;
+	good.display = disp;
+	good.window = w;
+
+	gc = makegc(disp, w);
+
+	/*
+	 * Mimic the action of a client - redraw the areas that get
+	 * Expose events.  Then checking that the window is complete
+	 * verifies that either expose events were received or that
+	 * the contents were restored from backing store.
+	 */
+	while (XCheckTypedWindowEvent(disp, w, Expose, &ev)) {
+
+		ep = (XExposeEvent*)&ev;
+
+		debug(2, "Expose (%d,%d) %dx%d", ep->x, ep->y, ep->width, ep->height);
+
+		/*
+		 * This is for interest.  Check that the exposed area is currently
+		 * background.  The spec does not seem to disallow overlapping
+		 * expose areas.
+		 */
+		setarea(&area, ep->x, ep->y, ep->width, ep->height);
+		if (!checkarea(disp, w, &area, W_BG, W_BG, CHECK_IN|CHECK_DIFFER))
+			trace("Exposed area was not all background");
+
+		/*
+		 * Fill in the exposed area.
+		 */
+		XFillRectangle(disp, w, gc, ep->x, ep->y, ep->width, ep->height);
+
+		/*
+		 * Check the count field.
+		 * NOTE: Not clear what the spec really means here.
+		 * I am expecting a series of contiguous sequences counting
+		 * down to zero.
+		 */
+		if (lastcount == 0) {
+			lastcount = ep->count;
+			good.count = ep->count;
+		} else {
+			good.count = --lastcount;
+		}
+
+		/* Check other event fields */
+		good.x = ep->x;
+		good.y = ep->y;
+		good.width = ep->width;
+		good.height = ep->height;
+
+		if (checkevent((XEvent*)&good, (XEvent*)ep)) {
+			trace("Checkevent failed");
+			return(False);
+		}
+	}
+	return(True);
+}
+
+/*
+ * Check that either enough expose events were received to
+ * restore the window, or that the window has been restored from backing
+ * store.  The field in the events are checked at the same time.
+ * This routine may produce error messages and files.
+ */
+Status
+exposecheck(disp, w)
+Display	*disp;
+Window	w;
+{
+
+	if (exposefill(disp, w) == False)
+		return(False);
+	return checkarea(disp, w, (struct area *)0, W_FG, W_FG, CHECK_ALL);
+}
+
+/*
+ * Verify that the window has been restored to the original pattern
+ * drawn in setforexpose().  This routine produces a status return only -
+ * no error messages or error files are produced.
+ */
+Status
+expose_test_restored(disp, w)
+Display	*disp;
+Window	w;
+{
+	return checkarea(disp, w, (struct area *)0, W_FG, W_FG, CHECK_ALL|CHECK_DIFFER);
+}