Bug [f9eddb541a] (TkSetRegion(), XSetClipRectangles): Patch 5 from Christopher Chavez - Implement XSetClipRectangles() on Windows by relocating the existing Aqua implementation

1 files changed, 26 insertions, 1 deletions

diff --git a/xlib/xgc.c b/xlib/xgc.c
index ba186b4..1a5dd81 100644
--- a/xlib/xgc.c
+++ b/xlib/xgc.c
@@ -432,7 +432,7 @@ XSetClipOrigin(
 /*
  *----------------------------------------------------------------------
  *
- * TkSetRegion, XSetClipMask --
+ * TkSetRegion, XSetClipMask, XSetClipRectangles --
  *
  *	Sets the clipping region/pixmap for a GC.
  *
@@ -488,6 +488,31 @@ XSetClipMask(
     return Success;
 }
 
+int
+XSetClipRectangles(
+    Display* d,
+    GC gc,
+    int clip_x_origin,
+    int clip_y_origin,
+    XRectangle* rectangles,
+    int n,
+    TCL_UNUSED(int))
+{
+    TkRegion clipRgn = TkCreateRegion();
+
+    while (n--) {
+	XRectangle rect = *rectangles;
+
+	rect.x += clip_x_origin;
+	rect.y += clip_y_origin;
+	TkUnionRectWithRegion(&rect, clipRgn, clipRgn);
+	rectangles++;
+    }
+    TkSetRegion(d, gc, clipRgn);
+    TkDestroyRegion(clipRgn);
+    return 1;
+}
+
 /*
  * Some additional dummy functions (hopefully implemented soon).
  */