Updated to tk 8.4.1

[pf3gnuchains/sourceware.git] / tk / mac / tkMacRegion.c

diff --git a/tk/mac/tkMacRegion.c b/tk/mac/tkMacRegion.c
index e724996..4582456 100644 (file)
--- a/tk/mac/tkMacRegion.c
+++ b/tk/mac/tkMacRegion.c
@@ -216,4 +216,33 @@ TkClipBox(
     rect_return->width = (**rgn).rgnBBox.right - (**rgn).rgnBBox.left;
     rect_return->height = (**rgn).rgnBBox.bottom - (**rgn).rgnBBox.top;
 }
+\f
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkSubtractRegion --
+ *
+ *     Implements the equivilent of the X window function
+ *     XSubtractRegion.  See X window documentation for more details.
+ *
+ * Results:
+ *     None.
+ *
+ * Side effects:
+ *     None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void 
+TkSubtractRegion(
+    TkRegion sra,
+    TkRegion srb,
+    TkRegion dr_return)
+{
+    RgnHandle srcRgnA = (RgnHandle) sra;
+    RgnHandle srcRgnB = (RgnHandle) srb;
+    RgnHandle destRgn = (RgnHandle) dr_return;
 
+    DiffRgn(srcRgnA, srcRgnB, destRgn);
+}