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

/* $XConsortium: XTrCoords.c,v 11.12 88/09/06 16:11:08 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 XTranslateCoordinates(dpy, src_win, dest_win, src_x, src_y, 
		      dst_x, dst_y, child)
     register Display *dpy;
     Window src_win, dest_win;
     int src_x, src_y;
     int *dst_x, *dst_y;
     Window *child;
{       
    register xTranslateCoordsReq *req;
    xTranslateCoordsReply rep;


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

    LockDisplay(dpy);
    GetReq(TranslateCoords, req);
    /* must map !! -- */
    req->srcWid = XmuXMapID( dpy , src_win , FromClient ) ;
    req->dstWid = XmuXMapID( dpy , dest_win , FromClient ) ;
    req->srcX = src_x;
    req->srcY = src_y;
    if (_XReply (dpy, (xReply *)&rep, 0, xTrue) == 0) {
	    UnlockDisplay(dpy);
	    SyncHandle();
	    return(False);
	}
    /* -- must map ! -- */
    *child = XmuXMapID( dpy , rep.child , FromServer ) ;
    *dst_x = cvtINT16toInt (rep.dstX);
    *dst_y = cvtINT16toInt (rep.dstY);
    UnlockDisplay(dpy);
    SyncHandle();
    return ((int)rep.sameScreen);
}