archie/tk4.2/mac/tkMacRegion.c
2024-05-27 16:40:40 +02:00

218 lines
4.6 KiB
C
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

/*
* tkMacRegion.c --
*
* Implements X window calls for manipulating regions
*
* Copyright (c) 1995-1996 Sun Microsystems, Inc.
*
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
* SCCS: @(#) tkMacRegion.c 1.8 96/05/01 15:18:24
*/
#include "tkInt.h"
#include "X.h"
#include "Xlib.h"
#include <Windows.h>
#include <QDOffscreen.h>
/*
* Temporary region that can be reused.
*/
static RgnHandle tmpRgn = NULL;
/*
*----------------------------------------------------------------------
*
* TkCreateRegion --
*
* Implements the equivelent of the X window function
* XCreateRegion. See X window documentation for more details.
*
* Results:
* Returns an allocated region handle.
*
* Side effects:
* None.
*
*----------------------------------------------------------------------
*/
TkRegion
TkCreateRegion()
{
RgnHandle rgn;
rgn = NewRgn();
return (TkRegion) rgn;
}
/*
*----------------------------------------------------------------------
*
* TkDestroyRegion --
*
* Implements the equivelent of the X window function
* XDestroyRegion. See X window documentation for more details.
*
* Results:
* None.
*
* Side effects:
* Memory is freed.
*
*----------------------------------------------------------------------
*/
void
TkDestroyRegion(r)
TkRegion r;
{
RgnHandle rgn = (RgnHandle) r;
DisposeRgn(rgn);
}
/*
*----------------------------------------------------------------------
*
* TkIntersectRegion --
*
* Implements the equivilent of the X window function
* XIntersectRegion. See X window documentation for more details.
*
* Results:
* None.
*
* Side effects:
* None.
*
*----------------------------------------------------------------------
*/
void
TkIntersectRegion(sra, srb, dr_return)
TkRegion sra;
TkRegion srb;
TkRegion dr_return;
{
RgnHandle srcRgnA = (RgnHandle) sra;
RgnHandle srcRgnB = (RgnHandle) srb;
RgnHandle destRgn = (RgnHandle) dr_return;
SectRgn(srcRgnA, srcRgnB, destRgn);
}
/*
*----------------------------------------------------------------------
*
* TkUnionRectWithRegion --
*
* Implements the equivelent of the X window function
* XUnionRectWithRegion. See X window documentation for more
* details.
*
* Results:
* None.
*
* Side effects:
* None.
*
*----------------------------------------------------------------------
*/
void
TkUnionRectWithRegion(rectangle, src_region, dest_region_return)
XRectangle* rectangle;
TkRegion src_region;
TkRegion dest_region_return;
{
RgnHandle srcRgn = (RgnHandle) src_region;
RgnHandle destRgn = (RgnHandle) dest_region_return;
if (tmpRgn == NULL) {
tmpRgn = NewRgn();
}
SetRectRgn(tmpRgn, rectangle->x, rectangle->y,
rectangle->x + rectangle->width, rectangle->y + rectangle->height);
UnionRgn(srcRgn, tmpRgn, destRgn);
}
/*
*----------------------------------------------------------------------
*
* TkRectInRegion --
*
* Implements the equivelent of the X window function
* XRectInRegion. See X window documentation for more details.
*
* Results:
* Returns one of: RectangleOut, RectangleIn, RectanglePart.
*
* Side effects:
* None.
*
*----------------------------------------------------------------------
*/
int
TkRectInRegion(region, x, y, width, height)
TkRegion region;
int x;
int y;
unsigned int width;
unsigned int height;
{
RgnHandle rgn = (RgnHandle) region;
RgnHandle rectRgn, destRgn;
int result;
rectRgn = NewRgn();
destRgn = NewRgn();
SetRectRgn(rectRgn, x, y, x + width, y + height);
SectRgn(rgn, rectRgn, destRgn);
if (EmptyRgn(destRgn)) {
result = RectangleOut;
} else if (EqualRgn(rgn, destRgn)) {
result = RectangleIn;
} else {
result = RectanglePart;
}
DisposeRgn(rectRgn);
DisposeRgn(destRgn);
return result;
}
/*
*----------------------------------------------------------------------
*
* TkClipBox --
*
* Implements the equivelent of the X window function XClipBox.
* See X window documentation for more details.
*
* Results:
* None.
*
* Side effects:
* None.
*
*----------------------------------------------------------------------
*/
void
TkClipBox(r, rect_return)
TkRegion r;
XRectangle* rect_return;
{
RgnHandle rgn = (RgnHandle) r;
rect_return->x = (**rgn).rgnBBox.left;
rect_return->y = (**rgn).rgnBBox.top;
rect_return->width = (**rgn).rgnBBox.right - (**rgn).rgnBBox.left;
rect_return->height = (**rgn).rgnBBox.bottom - (**rgn).rgnBBox.top;
}