/*
 * -- $Header: /cec/src/nestor/servers/R3/shXlib/XWindow.c,v 1.1.1.1 90/04/23
 * 10:09:31 spanachi Exp $
 */

#include "copyright.h"

/* $XConsortium: XWindow.c,v 11.15 88/09/06 16:11:25 jim Exp $ */
/* Copyright    Massachusetts Institute of Technology    1986	 */

/* -- MULTIPLEX Extension -- */

#include "Xlibint.h"

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

#define AllMaskBits (CWBackPixmap|CWBackPixel|CWBorderPixmap|\
		     CWBorderPixel|CWBitGravity|CWWinGravity|\
		     CWBackingStore|CWBackingPlanes|CWBackingPixel|\
		     CWOverrideRedirect|CWSaveUnder|CWEventMask|\
		     CWDontPropagate|CWColormap|CWCursor)

Window
XCreateWindow (dpy, parent, x, y, width, height,
	       borderWidth, depth, class, visual, valuemask, attributes)
  register Display *dpy;
  Window parent;
  int x, y;
  unsigned int width, height, borderWidth;
  int depth;
  unsigned int class;
  Visual *visual;
  unsigned long valuemask;
  XSetWindowAttributes *attributes;
{
  Window wid;
  register xCreateWindowReq *req;
  /* -- additional variables -- */
  Bool mux_add_events;
  long mux_specific_mask;

  /* -- find out if we must alter the event mask -- */
  mux_add_events = XmuXMustAddEvents (dpy, parent, XmuXCreate);

  LockDisplay (dpy);
  GetReq (CreateWindow, req);
  req->parent = parent;
  req->x = x;
  req->y = y;
  req->width = width;
  req->height = height;
  req->borderWidth = borderWidth;
  req->depth = depth;
  req->class = class;
  if (visual == CopyFromParent)
    req->visual = CopyFromParent;
  else
    req->visual = visual->visualid;
  wid = req->wid = XAllocID (dpy);

  valuemask &= AllMaskBits;

  if (mux_add_events) {
    /* -- don't want to get fooled by meaningless event mask -- */
    if (!(valuemask & CWEventMask))
      attributes->event_mask = 0L;
    valuemask |= CWEventMask;
  }

  if (req->mask = valuemask)
    /* -- two additional parameters !! -- */
    _XProcessWindowAttributes (dpy, (xChangeWindowAttributesReq *) req,
			       valuemask, attributes,
			       mux_add_events, &mux_specific_mask);

  /* -- store new resource if necessary -- */
  if (XmuXStoreResources (dpy)) {
    XmuXInsertWindowInfo (dpy, wid, parent, req->visual, depth);

    /*
     * -- These attributes may contain values that point to other --
     * resources. We must keep track of these values, since they -- have a
     * strong impact on duplicating resources (see multiplex.c -- for further
     * information).
     */
    XmuXUpdateWindowInfo (dpy, wid, req->mask, attributes);
    if (mux_add_events)
      XmuXAddToplevelInfo (dpy, wid, mux_specific_mask);
  }
  UnlockDisplay (dpy);
  SyncHandle ();
  return (wid);
}

_XProcessWindowAttributes (dpy, req, valuemask, attributes,
			   mux_add_events, mux_specific_mask)
  register Display *dpy;
  xChangeWindowAttributesReq *req;
  register unsigned long valuemask;
  register XSetWindowAttributes *attributes;
/* -- additional parameters --  */
  register Bool mux_add_events;
  long *mux_specific_mask;	/* -- return value ! -- */
{

  /* Warning!  This code assumes that "unsigned long" is 32-bits wide */

  unsigned long values[32];
  register unsigned long *value = values;
  unsigned int nvalues;

  if (valuemask & CWBackPixmap)
    *value++ = attributes->background_pixmap;

  if (valuemask & CWBackPixel)
    *value++ = attributes->background_pixel;

  if (valuemask & CWBorderPixmap)
    *value++ = attributes->border_pixmap;

  if (valuemask & CWBorderPixel)
    *value++ = attributes->border_pixel;

  if (valuemask & CWBitGravity)
    *value++ = attributes->bit_gravity;

  if (valuemask & CWWinGravity)
    *value++ = attributes->win_gravity;

  if (valuemask & CWBackingStore)
    *value++ = attributes->backing_store;

  if (valuemask & CWBackingPlanes)
    *value++ = attributes->backing_planes;

  if (valuemask & CWBackingPixel)
    *value++ = attributes->backing_pixel;

  if (valuemask & CWOverrideRedirect)
    *value++ = attributes->override_redirect;

  if (valuemask & CWSaveUnder)
    *value++ = attributes->save_under;

  if (valuemask & CWEventMask) {
    *value = attributes->event_mask;
    if (mux_add_events) {
      *mux_specific_mask = ~(*value) & XmuXMask;
      *value |= XmuXMask;
    }
    value++;
  }

  if (valuemask & CWDontPropagate)
    *value++ = attributes->do_not_propagate_mask;

  if (valuemask & CWColormap)
    *value++ = attributes->colormap;

  if (valuemask & CWCursor)
    *value++ = attributes->cursor;

  req->length += (nvalues = value - values);

  nvalues <<= 2;		/* watch out for macros... */
  Data32 (dpy, (long *) values, (long) nvalues);

}