diff options
| author | das <das@noemail.net> | 2007-10-12 03:13:55 (GMT) |
|---|---|---|
| committer | das <das@noemail.net> | 2007-10-12 03:13:55 (GMT) |
| commit | f6c4bcc717d34031924a43c31c85b6c1c440875b (patch) | |
| tree | 19db4bde02cd865bf8f7eeedf826c2080de5b5f8 /macosx | |
| parent | a572f75d5b086ec3af662fb715dc436ae8c1f98e (diff) | |
| download | tk-f6c4bcc717d34031924a43c31c85b6c1c440875b.zip tk-f6c4bcc717d34031924a43c31c85b6c1c440875b.tar.gz tk-f6c4bcc717d34031924a43c31c85b6c1c440875b.tar.bz2 | |
* xlib/xgc.c: factor out alloc/free of GC clip_mask;
* macosx/tkMacOSXXStubs.c: manage clip rgn lifetime with new
Tkp{Retain,Release}Region().
FossilOrigin-Name: 43cd1a0de3c33c7fa5a517531d805254d0d772a7
Diffstat (limited to 'macosx')
| -rw-r--r-- | macosx/tkMacOSXXStubs.c | 13 |
1 files changed, 3 insertions, 10 deletions
diff --git a/macosx/tkMacOSXXStubs.c b/macosx/tkMacOSXXStubs.c index 31ae7ea..78bd909 100644 --- a/macosx/tkMacOSXXStubs.c +++ b/macosx/tkMacOSXXStubs.c @@ -13,7 +13,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkMacOSXXStubs.c,v 1.23 2007/07/04 17:32:39 andreas_kupries Exp $ + * RCS: @(#) $Id: tkMacOSXXStubs.c,v 1.24 2007/10/12 03:13:55 das Exp $ */ #include "tkMacOSXPrivate.h" @@ -706,15 +706,7 @@ XSetClipRectangles( int n, int ordering) { - TkRegion clipRgn; - - if (gc->clip_mask && ((TkpClipMask*)gc->clip_mask)->type - == TKP_CLIP_REGION) { - clipRgn = ((TkpClipMask*)gc->clip_mask)->value.region; - SetEmptyRgn((RgnHandle) clipRgn); - } else { - clipRgn = TkCreateRegion(); /* LEAK! */ - } + TkRegion clipRgn = TkCreateRegion(); while (n--) { XRectangle rect = *rectangles; @@ -725,6 +717,7 @@ XSetClipRectangles( rectangles++; } TkSetRegion(d, gc, clipRgn); + TkDestroyRegion(clipRgn); return 1; } #endif |