/*
 * -- $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);
}