/*
 * -- $Header: /cec/src/nestor/servers/R3/shXlib/XCrGlCur.c,v 1.1.1.1 90/04/23 09:54:48 spanachi Exp $
 */

#include "copyright.h"

/* $XConsortium: XCrGlCur.c,v 11.7 88/09/06 16:05:54 jim Exp $ */
/* Copyright    Massachusetts Institute of Technology    1986	*/

/* -- MULTIPLEX Extension -- */

#include "Xlibint.h"

/* additional includes -- */
#include "resources.h"

Cursor XCreateGlyphCursor(dpy, source_font, mask_font,
		   source_char, mask_char,
		   foreground, background)
     register Display *dpy;
     Font source_font, mask_font;
     unsigned int source_char, mask_char;
     XColor *foreground, *background;

{       
    Cursor cid;
    register xCreateGlyphCursorReq *req;

    LockDisplay(dpy);
    GetReq(CreateGlyphCursor, req);
    cid = req->cid = XAllocID(dpy);
    req->source = source_font;
    req->mask = mask_font;
    req->sourceChar = source_char;
    req->maskChar = mask_char;
    req->foreRed = foreground->red;
    req->foreGreen = foreground->green;
    req->foreBlue = foreground->blue;
    req->backRed = background->red;
    req->backGreen = background->green;
    req->backBlue = background->blue;

    /* -- store the new resource if it is necessary -- */
    if( XmuXStoreResources( dpy ) )
	XmuXInsertGlyphCursorInfo( dpy , cid , foreground , background ,
				   source_font , mask_font ,source_char , 
				   mask_char ) ;

    UnlockDisplay(dpy);
    SyncHandle();
    return (cid);
}