Subversion Repositories or1k

/*

 * xgc.c --

 *

 *      This file contains generic routines for manipulating X graphics

 *      contexts.

 *

 * 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.

 *

 * RCS: @(#) $Id: xgc.c,v 1.1.1.1 2002-01-16 10:26:04 markom Exp $

 */

#include <tkInt.h>

#ifdef MAC_TCL

#       include <Xlib.h>

#else

#       include <X11/Xlib.h>

#endif

/*

 *----------------------------------------------------------------------

 *

 * XCreateGC --

 *

 *      Allocate a new GC, and initialize the specified fields.

 *

 * Results:

 *      Returns a newly allocated GC.

 *

 * Side effects:

 *      None.

 *

 *----------------------------------------------------------------------

 */

GC

XCreateGC(display, d, mask, values)

    Display* display;

    Drawable d;

    unsigned long mask;

    XGCValues* values;

{

    GC gp;

    gp = (XGCValues *)ckalloc(sizeof(XGCValues));

    if (!gp) {

        return None;

    }

    gp->function =      (mask & GCFunction)     ?values->function       :GXcopy;

    gp->plane_mask =    (mask & GCPlaneMask)    ?values->plane_mask     :~0;

    gp->foreground =    (mask & GCForeground)   ?values->foreground     :0;

    gp->background =    (mask & GCBackground)   ?values->background     :0xffffff;

    gp->line_width =    (mask & GCLineWidth)    ?values->line_width     :0;

    gp->line_style =    (mask & GCLineStyle)    ?values->line_style     :LineSolid;

    gp->cap_style =     (mask & GCCapStyle)     ?values->cap_style      :0;

    gp->join_style =    (mask & GCJoinStyle)    ?values->join_style     :0;

    gp->fill_style =    (mask & GCFillStyle)    ?values->fill_style     :FillSolid;

    gp->fill_rule =     (mask & GCFillRule)     ?values->fill_rule      :WindingRule;

    gp->arc_mode =      (mask & GCArcMode)      ?values->arc_mode       :ArcPieSlice;

    gp->tile =          (mask & GCTile)         ?values->tile           :None;

    gp->stipple =       (mask & GCStipple)      ?values->stipple        :None;

    gp->ts_x_origin =   (mask & GCTileStipXOrigin)      ?values->ts_x_origin:0;

    gp->ts_y_origin =   (mask & GCTileStipYOrigin)      ?values->ts_y_origin:0;

    gp->font =          (mask & GCFont)         ?values->font           :None;

    gp->subwindow_mode = (mask & GCSubwindowMode)?values->subwindow_mode:ClipByChildren;

    gp->graphics_exposures = (mask & GCGraphicsExposures)?values->graphics_exposures:True;

    gp->clip_x_origin = (mask & GCClipXOrigin)  ?values->clip_x_origin  :0;

    gp->clip_y_origin = (mask & GCClipYOrigin)  ?values->clip_y_origin  :0;

    gp->dash_offset =   (mask & GCDashOffset)   ?values->dash_offset    :0;

    gp->dashes =        (mask & GCDashList)     ?values->dashes         :4;

    if (mask & GCClipMask) {

        gp->clip_mask = (Pixmap)ckalloc(sizeof(TkpClipMask));

        ((TkpClipMask*)gp->clip_mask)->type = TKP_CLIP_PIXMAP;

        ((TkpClipMask*)gp->clip_mask)->value.pixmap = values->clip_mask;

    } else {

        gp->clip_mask = None;

    }

    return gp;

}

/*

 *----------------------------------------------------------------------

 *

 * XChangeGC --

 *

 *      Changes the GC components specified by valuemask for the

 *      specified GC.

 *

 * Results:

 *      None.

 *

 * Side effects:

 *      Updates the specified GC.

 *

 *----------------------------------------------------------------------

 */

void

XChangeGC(d, gc, mask, values)

    Display * d;

    GC gc;

    unsigned long mask;

    XGCValues *values;

{

    if (mask & GCFunction) { gc->function = values->function; }

    if (mask & GCPlaneMask) { gc->plane_mask = values->plane_mask; }

    if (mask & GCForeground) { gc->foreground = values->foreground; }

    if (mask & GCBackground) { gc->background = values->background; }

    if (mask & GCLineWidth) { gc->line_width = values->line_width; }

    if (mask & GCLineStyle) { gc->line_style = values->line_style; }

    if (mask & GCCapStyle) { gc->cap_style = values->cap_style; }

    if (mask & GCJoinStyle) { gc->join_style = values->join_style; }

    if (mask & GCFillStyle) { gc->fill_style = values->fill_style; }

    if (mask & GCFillRule) { gc->fill_rule = values->fill_rule; }

    if (mask & GCArcMode) { gc->arc_mode = values->arc_mode; }

    if (mask & GCTile) { gc->tile = values->tile; }

    if (mask & GCStipple) { gc->stipple = values->stipple; }

    if (mask & GCTileStipXOrigin) { gc->ts_x_origin = values->ts_x_origin; }

    if (mask & GCTileStipYOrigin) { gc->ts_y_origin = values->ts_y_origin; }

    if (mask & GCFont) { gc->font = values->font; }

    if (mask & GCSubwindowMode) { gc->subwindow_mode = values->subwindow_mode; }

    if (mask & GCGraphicsExposures) { gc->graphics_exposures = values->graphics_exposures; }

    if (mask & GCClipXOrigin) { gc->clip_x_origin = values->clip_x_origin; }

    if (mask & GCClipYOrigin) { gc->clip_y_origin = values->clip_y_origin; }

    if (mask & GCClipMask) { XSetClipMask(d, gc, values->clip_mask); }

    if (mask & GCDashOffset) { gc->dash_offset = values->dash_offset; }

    if (mask & GCDashList) { gc->dashes = values->dashes; }

}

/*

 *----------------------------------------------------------------------

 *

 * XFreeGC --

 *

 *      Deallocates the specified graphics context.

 *

 * Results:

 *      None.

 *

 * Side effects:

 *      None.

 *

 *----------------------------------------------------------------------

 */

void

XFreeGC(d, gc)

    Display * d;

    GC gc;

{

    if (gc != None) {

        if (gc->clip_mask != None) {

            ckfree((char*) gc->clip_mask);

        }

        ckfree((char *) gc);

    }

}

/*

 *----------------------------------------------------------------------

 *

 * XSetForeground, etc. --

 *

 *      The following functions are simply accessor functions for

 *      the GC slots.

 *

 * Results:

 *      None.

 *

 * Side effects:

 *      Each function sets some slot in the GC.

 *

 *----------------------------------------------------------------------

 */

void

XSetForeground(display, gc, foreground)

    Display *display;

    GC gc;

    unsigned long foreground;

{

    gc->foreground = foreground;

}

void

XSetBackground(display, gc, background)

    Display *display;

    GC gc;

    unsigned long background;

{

    gc->background = background;

}

void

XSetFunction(display, gc, function)

    Display *display;

    GC gc;

    int function;

{

    gc->function = function;

}

void

XSetFillRule(display, gc, fill_rule)

    Display *display;

    GC gc;

    int fill_rule;

{

    gc->fill_rule = fill_rule;

}

void

XSetFillStyle(display, gc, fill_style)

    Display *display;

    GC gc;

    int fill_style;

{

    gc->fill_style = fill_style;

}

void

XSetTSOrigin(display, gc, x, y)

    Display *display;

    GC gc;

    int x, y;

{

    gc->ts_x_origin = x;

    gc->ts_y_origin = y;

}

void

XSetFont(display, gc, font)

    Display *display;

    GC gc;

    Font font;

{

    gc->font = font;

}

void

XSetArcMode(display, gc, arc_mode)

    Display *display;

    GC gc;

    int arc_mode;

{

    gc->arc_mode = arc_mode;

}

void

XSetStipple(display, gc, stipple)

    Display *display;

    GC gc;

    Pixmap stipple;

{

    gc->stipple = stipple;

}

void

XSetLineAttributes(display, gc, line_width, line_style, cap_style,

        join_style)

    Display *display;

    GC gc;

    unsigned int line_width;

    int line_style;

    int cap_style;

    int join_style;

{

    gc->line_width = line_width;

    gc->line_style = line_style;

    gc->cap_style = cap_style;

    gc->join_style = join_style;

}

void

XSetClipOrigin(display, gc, clip_x_origin, clip_y_origin)

    Display* display;

    GC gc;

    int clip_x_origin;

    int clip_y_origin;

{

    gc->clip_x_origin = clip_x_origin;

    gc->clip_y_origin = clip_y_origin;

}

/*

 *----------------------------------------------------------------------

 *

 * TkSetRegion, XSetClipMask --

 *

 *      Sets the clipping region/pixmap for a GC.

 *

 *      Note that unlike the Xlib equivalent, it is not safe to delete

 *      the region after setting it into the GC.  The only use of

 *      TkSetRegion is currently in ImgPhotoDisplay, which uses the GC

 *      immediately.

 *

 * Results:

 *      None.

 *

 * Side effects:

 *      Allocates or dealloates a TkpClipMask.

 *

 *----------------------------------------------------------------------

 */

void

TkSetRegion(display, gc, r)

    Display* display;

    GC gc;

    TkRegion r;

{

    if (r == None) {

        if (gc->clip_mask) {

            ckfree((char*) gc->clip_mask);

            gc->clip_mask = None;

        }

        return;

    }

    if (gc->clip_mask == None) {

        gc->clip_mask = (Pixmap)ckalloc(sizeof(TkpClipMask));

    }

    ((TkpClipMask*)gc->clip_mask)->type = TKP_CLIP_REGION;

    ((TkpClipMask*)gc->clip_mask)->value.region = r;

}

void

XSetClipMask(display, gc, pixmap)

    Display* display;

    GC gc;

    Pixmap pixmap;

{

    if (pixmap == None) {

        if (gc->clip_mask) {

            ckfree((char*) gc->clip_mask);

            gc->clip_mask = None;

        }

        return;

    }

    if (gc->clip_mask == None) {

        gc->clip_mask = (Pixmap)ckalloc(sizeof(TkpClipMask));

    }

    ((TkpClipMask*)gc->clip_mask)->type = TKP_CLIP_PIXMAP;

    ((TkpClipMask*)gc->clip_mask)->value.pixmap = pixmap;

}