/*
 * -- $Header: /cec/src/nestor/servers/R3/shXlib/XCrWindow.c,v 1.1.1.1
 * 90/04/23 09:55:03 spanachi Exp $
 */

#include "copyright.h"

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

/* -- MULTIPLEX Extension -- */

#include "Xlibint.h"

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

Window
XCreateSimpleWindow (dpy, parent, x, y, width, height,
		     borderWidth, border, background)
  register Display *dpy;
  Window parent;
  int x, y;
  unsigned int width, height, borderWidth;
  unsigned long border;
  unsigned long background;

{
  Window wid;
  register xCreateWindowReq *req;
  /* -- additional variables -- */
  Bool mux_add_events;
  long mux_event_mask, mux_specific_mask;
  int mux_extra;

  /*
   * -- There is one problem with this "simple" routine: If the application
   * -- creates a simple top-level window, we will have to add the XmuXmask;
   * -- Fortunately, the original mask is 0L
   */

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

  if (mux_add_events) {
    mux_extra = 12;
    mux_specific_mask = XmuXMask;
    mux_event_mask = XmuXMask;
  }
  else
    mux_extra = 8;

  LockDisplay (dpy);
  GetReqExtra (CreateWindow, mux_extra, req);
  req->parent = parent;
  req->x = x;
  req->y = y;
  req->width = width;
  req->height = height;
  req->borderWidth = borderWidth;
  req->depth = 0;
  req->class = CopyFromParent;
  req->visual = CopyFromParent;
  wid = req->wid = XAllocID (dpy);
  req->mask = (mux_add_events)
    ? CWEventMask | CWBackPixel | CWBorderPixel
    : CWBackPixel | CWBorderPixel;
#ifdef MUSTCOPY
  {
    unsigned long lbackground = background, lborder = border;
    dpy->bufptr -= mux_extra;
    Data32 (dpy, (long *) &lbackground, 4);
    Data32 (dpy, (long *) &lborder, 4);
    if (mux_add_events)
      Data32 (dpy, (long *) &mux_event_mask, 4);
  }
#else
  {
    register unsigned long *valuePtr =
    (unsigned long *) NEXTPTR (req, xCreateWindowReq);
    *valuePtr++ = background;
    *valuePtr = border;
    if (mux_add_events) {
      valuePtr++;
      *valuePtr = mux_event_mask;
    }
  }
#endif				/* MUSTCOPY */


  /* -- store the new resource if it is necessary -- */
  if (XmuXStoreResources (dpy)) {
    XSetWindowAttributes attributes;

    XmuXInsertWindowInfo (dpy, wid, parent, CopyFromParent,
			  req->depth);

    /*
     * -- These attributes may contain values that we cannot retrieve -- via
     * XGetWindowAttributes. We must keep track of these values, -- since
     * they have a strong impact on duplicating resources -- (see multiplex.c
     * for further information).
     */
    attributes.background_pixel = background;
    attributes.border_pixel = border;
    XmuXUpdateWindowInfo (dpy, wid, req->mask, &attributes);
    if (mux_add_events)
      XmuXAddToplevelInfo (dpy, wid, mux_specific_mask);
  }
  UnlockDisplay (dpy);
  SyncHandle ();
  return (wid);
}