/*
 * -- $Header: /cec/src/nestor/servers/R3/shXlib/XGrKeybd.c,v 1.1.1.1
 * 90/04/23 10:00:01 spanachi Exp $
 */
#include "copyright.h"

/* $XConsortium: XGrKeybd.c,v 11.15 88/09/06 16:08:34 jim Exp $ */
/* Copyright    Massachusetts Institute of Technology    1986	 */
/* -- MULTIPLEX Extension -- */

#define NEED_REPLIES
#include "Xlibint.h"

/* -- additional includes -- */
#include "utils.h"
#include "map.h"

int
XGrabKeyboard (dpy, window, ownerEvents, pointerMode, keyboardMode, time)
  register Display *dpy;
  Window window;
  Bool ownerEvents;
  int pointerMode, keyboardMode;
  Time time;
{

  xGrabKeyboardReply rep;
  register xGrabKeyboardReq *req;
  register int status;

  /* -- flush default dpy's queue to keep buffers aligned -- */
  XmuXFlushDefault (dpy);
  /* -- switch to the chalk holder display -- */
  dpy = XmuXChalkDisplay (dpy);

  LockDisplay (dpy);
  GetReq (GrabKeyboard, req);
  /* -- must map !! -- */
  req->grabWindow = XmuXMapID (dpy, window, FromClient);
  req->ownerEvents = ownerEvents;
  req->pointerMode = pointerMode;
  req->keyboardMode = keyboardMode;
  req->time = time;

  /* if we ever return, suppress the error */
  if (_XReply (dpy, (xReply *) & rep, 0, xTrue) == 0)
    rep.status = GrabSuccess;
  status = rep.status;
  UnlockDisplay (dpy);
  SyncHandle ();
  return (status);
}