Function Tk_Draw3DRectangle

micropolis-activity/src/tk/tk3d.c:282–329

(display, drawable, border, x, y, width, height,
	borderWidth, relief)

 *
 *--------------------------------------------------------------
 */

void
Tk_Draw3DRectangle(display, drawable, border, x, y, width, height,
	borderWidth, relief)
    Display *display;		/* X display in which to draw. */
    Drawable drawable;		/* X window or pixmap in which to draw. */
    Tk_3DBorder border;		/* Token for border to draw. */
    int x, y, width, height;	/* Outside area of region in
				 * which border will be drawn. */
    int borderWidth;		/* Desired width for border, in
				 * pixels. */
    int relief;			/* Should be either TK_RELIEF_RAISED
				 * or TK_RELIEF_SUNKEN;  indicates
				 * position of interior of window relative
				 * to exterior. */
{
    register Border *borderPtr = (Border *) border;
    GC top, bottom;
    XPoint points[7];

    if ((width < 2*borderWidth) || (height < 2*borderWidth)) {
	return;
    }

    if (relief == TK_RELIEF_RAISED) {
	top = borderPtr->lightGC;
	bottom = borderPtr->darkGC;
    } else if (relief == TK_RELIEF_SUNKEN) {
	top = borderPtr->darkGC;
	bottom = borderPtr->lightGC;
    } else {
	top = bottom = borderPtr->bgGC;
    }
    XFillRectangle(display, drawable, bottom, x, y+height-borderWidth,

	    (unsigned int) width, (unsigned int) borderWidth);
    XFillRectangle(display, drawable, bottom, x+width-borderWidth, y,
	    (unsigned int) borderWidth, (unsigned int) height);
    points[0].x = points[1].x = points[6].x = x;
    points[0].y = points[6].y = y + height;
    points[1].y = points[2].y = y;
    points[2].x = x + width;
    points[3].x = x + width - borderWidth;
    points[3].y = points[4].y = y + borderWidth;
    points[4].x = points[5].x = x + borderWidth;
    points[5].y = y + height - borderWidth;
    XFillPolygon(display, drawable, top, points, 7, Nonconvex,
	    CoordModeOrigin);
}