#include "copyright.h"

/* $XConsortium: XGetHColor.c,v 11.10 88/09/06 16:07:50 jim Exp $ */
/* Copyright    Massachusetts Institute of Technology    1986	 */

/* -- MULTIPLEX Extension -- */

#define NEED_REPLIES
#define NEED_EVENTS
#include "Xlibint.h"

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

Status
XAllocColor (calling_dpy, cmap, def)
/* -- must rename or else macro GetReq will fail -- */
  register Display *calling_dpy;
  Colormap cmap;
  XColor *def;
{
  register Display *dpy;
  register int i;
  Status status;
  xAllocColorReply rep;
  register xAllocColorReq *req;

  /*
   * -- Flush the default display's output queue -- to keep things in order
   */
  XmuXFlushDefault (calling_dpy);

  /*
   * -- must loop over all associated displays
   */

  status = 1;
  for (i = 0;
       (dpy = XmuXGetDisplay (calling_dpy, i)) != NULL && status; i++) {
    LockDisplay (dpy);
    GetReq (AllocColor, req);

    if (i != 0)
      req->cmap = XmuXMapID (dpy, cmap, FromClient);
    else
      req->cmap = cmap;

    req->red = def->red;
    req->green = def->green;
    req->blue = def->blue;

    status = _XReply (dpy, (xReply *) & rep, 0, xTrue);
    if (status) {
      if (i == 0) {
	def->pixel = rep.pixel;
	def->red = rep.red;
	def->green = rep.green;
	def->blue = rep.blue;
	if (XmuXStoreResources (dpy)) {
	  unsigned long pixel = rep.pixel;
	  XmuXUpdateColormapInfo (dpy, cmap, &pixel, 1, NULL,
				  0, True);
	}
      }
      else
	XmuXInsertSharedCell (dpy, req->cmap,
			      def->pixel, rep.pixel);
    }
    UnlockDisplay (dpy);
    SyncHandle ();
  }
  return (status);
}