/* 
 * Motif
 *
 * Copyright (c) 1987-2012, The Open Group. All rights reserved.
 *
 * These libraries and programs are free software; you can
 * redistribute them and/or modify them under the terms of the GNU
 * Lesser General Public License as published by the Free Software
 * Foundation; either version 2 of the License, or (at your option)
 * any later version.
 *
 * These libraries and programs are distributed in the hope that
 * they will be useful, but WITHOUT ANY WARRANTY; without even the
 * implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 * PURPOSE. See the GNU Lesser General Public License for more
 * details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with these librararies and programs; if not, write
 * to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
 * Floor, Boston, MA 02110-1301 USA
*/ 
/* 
 * HISTORY
*/ 
#ifdef REV_INFO
#ifndef lint
static char rcsid[] = "$XConsortium: GetGeometry.c /main/8 1995/07/14 10:58:40 drk $"
#endif
#endif
/***********************************************************************
  	@(#)GetGeometry.c	1.8.1.1	Date:1/22/91
  	Author: TAT
	History:
            05/21/90 SJS add to sccs
            06/22/90 SJS do not get geometry of widgets that are
                         being destroyed. (Send back 0 geo)
            07/20/90 PSN Fixed geometry calculation for XmRowColumn parenatage
	Calls:

	Summary:
            Returns the specified widget's position and size on the screen.    
           
            INPUTS:
                widget
        
            OUTPUTS:
                x,y           - position of widget relative to root window in
                                pixels
                width,height  - size of widget in pixels

            RETURNS:
                nothing
************************************************************************/


#include <AutoMessages.h>
#include "mvslib.h"

void mvsGetWidgetGeometry(widget,x,y,width,height,border_width)
Widget widget;
int *x, *y, *width, *height, *border_width;
{
    Window window;
    MvsWidgetInfoRecord *w_info;
    int window_x, window_y, tmp_x, tmp_y;
    Position g_x,g_y;
    Dimension g_h, g_w, g_bw;
    unsigned char g_unit_type;
    Arg args[8];
    int n=0;
    int being_destroyed;
    Window root_return,child_return;
    unsigned int tmp_d;

    if (widget == NULL) {
        AutoMessage(_AutoMessages[WARNMSG61]);
        return;
    }
    else
        window = XtWindowOfObject(widget);

    w_info = mvsWidgetToWidgetInfo(widget);
    if(w_info == NULL)
        being_destroyed = False; /* The widget is just being created and is
                                    not in our hierarchy yet */
    else
        being_destroyed = w_info->being_destroyed;
    
    if(!being_destroyed && XtIsRealized(widget)) {
        if (!XGetGeometry(mvsDisplay,window,&root_return,&tmp_x, &tmp_y,
                          (unsigned int *)width, (unsigned int *)height,
                          (unsigned int *)border_width,
                          (unsigned int *) &tmp_d)) {
            AutoError(_AutoMessages[WARNMSG62]);
            
        }

        window_x = 0;
        window_y = 0;

        if( !(XtIsWidget(widget)) ) {  /* Is this a Gadget? */
            XtSetArg(args[n], XmNheight, &g_h); n++;
            XtSetArg(args[n], XmNwidth, &g_w); n++;
            XtSetArg(args[n], XmNx, &g_x); n++;
            XtSetArg(args[n], XmNy, &g_y); n++;
            XtSetArg(args[n], XmNborderWidth, &g_bw); n++;
	    XtSetArg(args[n], XmNunitType, &g_unit_type); n++;
            XtGetValues(widget, args, n);

/* Automation Added - get proper value in pixels */

	    g_h = XmConvertUnits
			(widget, XmVERTICAL, g_unit_type, g_h, XmPIXELS);
	    g_y = XmConvertUnits
			(widget, XmVERTICAL, g_unit_type, g_y, XmPIXELS);
	    g_w = XmConvertUnits
			(widget, XmHORIZONTAL, g_unit_type, g_w, XmPIXELS);
	    g_x = XmConvertUnits
			(widget, XmHORIZONTAL, g_unit_type, g_x, XmPIXELS);
	    g_bw = XmConvertUnits
			(widget, XmHORIZONTAL, g_unit_type, g_bw, XmPIXELS);

/* End Automation Added */

            window_x += (int)g_x;
            window_y += (int)g_y;

	    if (!mvsIsParentRowColumn(w_info)) {
	    /* This is not added because XmRowColumn adds entryBorder to its
	     * children, which is part of widget's window! - weard! */
            	window_x += *border_width;
            	window_y += *border_width;
	    }

            *width = (int)g_w;
            *height = (int)g_h;
            *border_width = (int)g_bw;
        }

        if (!XTranslateCoordinates(mvsDisplay,window,
                                   DefaultRootWindow(mvsDisplay),
                                   window_x,window_y,x,y,&child_return)) {
            AutoMessage(_AutoMessages[WARNMSG63]);
            exit(-1);
        }
    }
    else {
        *x = *y = *width = *height = *border_width = 0;
    } /* End if(!being_destroyed) */

} /* End mvsGetWidgetGeometry() */