Synchronised line endinge with release branch

1 files changed, 825 insertions, 825 deletions

diff --git a/libXt/src/Geometry.c b/libXt/src/Geometry.c
index e3396483d..d64c8e292 100644
--- a/libXt/src/Geometry.c
+++ b/libXt/src/Geometry.c
@@ -1,825 +1,825 @@
-/***********************************************************

-Copyright (c) 1993, Oracle and/or its affiliates. All rights reserved.

-

-Permission is hereby granted, free of charge, to any person obtaining a

-copy of this software and associated documentation files (the "Software"),

-to deal in the Software without restriction, including without limitation

-the rights to use, copy, modify, merge, publish, distribute, sublicense,

-and/or sell copies of the Software, and to permit persons to whom the

-Software is furnished to do so, subject to the following conditions:

-

-The above copyright notice and this permission notice (including the next

-paragraph) shall be included in all copies or substantial portions of the

-Software.

-

-THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR

-IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,

-FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL

-THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER

-LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING

-FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER

-DEALINGS IN THE SOFTWARE.

-

-Copyright 1987, 1988 by Digital Equipment Corporation, Maynard, Massachusetts.

-

-                        All Rights Reserved

-

-Permission to use, copy, modify, and distribute this software and its

-documentation for any purpose and without fee is hereby granted,

-provided that the above copyright notice appear in all copies and that

-both that copyright notice and this permission notice appear in

-supporting documentation, and that the name of Digital not be

-used in advertising or publicity pertaining to distribution of the

-software without specific, written prior permission.

-

-DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING

-ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL

-DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR

-ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,

-WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,

-ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS

-SOFTWARE.

-

-******************************************************************/

-

-/*

-

-Copyright 1987, 1988, 1994, 1998  The Open Group

-

-Permission to use, copy, modify, distribute, and sell this software and its

-documentation for any purpose is hereby granted without fee, provided that

-the above copyright notice appear in all copies and that both that

-copyright notice and this permission notice appear in supporting

-documentation.

-

-The above copyright notice and this permission notice shall be included in

-all copies or substantial portions of the Software.

-

-THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR

-IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,

-FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE

-OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN

-AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN

-CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

-

-Except as contained in this notice, the name of The Open Group shall not be

-used in advertising or otherwise to promote the sale, use or other dealings

-in this Software without prior written authorization from The Open Group.

-

-*/

-

-#ifdef HAVE_CONFIG_H

-#include <config.h>

-#endif

-#include "IntrinsicI.h"

-#include "ShellP.h"

-#include "ShellI.h"

-

-static void ClearRectObjAreas(

-    RectObj r,

-    XWindowChanges* old)

-{

-    Widget pw = _XtWindowedAncestor((Widget)r);

-    int bw2;

-

-    bw2 = old->border_width << 1;

-    XClearArea( XtDisplay(pw), XtWindow(pw),

-		old->x, old->y,

-		old->width + bw2, old->height + bw2,

-		TRUE );

-

-    bw2 = r->rectangle.border_width << 1;

-    XClearArea( XtDisplay(pw), XtWindow(pw),

-		(int)r->rectangle.x, (int)r->rectangle.y,

-		(unsigned int)(r->rectangle.width + bw2),

-	        (unsigned int)(r->rectangle.height + bw2),

-		TRUE );

-}

-

-/*

- * Internal function used by XtMakeGeometryRequest and XtSetValues.

- * Returns more data than the public interface.  Does not convert

- * XtGeometryDone to XtGeometryYes.

- *

- * clear_rect_obj - *** RETURNED ***

- *		    TRUE if the rect obj has been cleared, false otherwise.

- */

-

-XtGeometryResult

-_XtMakeGeometryRequest (

-    Widget widget,

-    XtWidgetGeometry *request,

-    XtWidgetGeometry *reply,

-    Boolean * clear_rect_obj)

-{

-    XtWidgetGeometry    junk;

-    XtGeometryHandler manager = (XtGeometryHandler) NULL;

-    XtGeometryResult returnCode;

-    Widget parent = widget->core.parent;

-    Boolean managed, parentRealized, rgm = False;

-    XtConfigureHookDataRec req;

-    Widget hookobj;

-

-    *clear_rect_obj = FALSE;

-

-    CALLGEOTAT(_XtGeoTrace(widget,

-	"\"%s\" is making a %sgeometry request to its parent \"%s\".\n",

-		   XtName(widget),

-		   ((request->request_mode & XtCWQueryOnly))? "query only ":"",

-		   (XtParent(widget))?XtName(XtParent(widget)):"Root"));

-    CALLGEOTAT(_XtGeoTab(1));

-

-    if (XtIsShell(widget)) {

-	ShellClassExtension ext;

-	LOCK_PROCESS;

-	for (ext = (ShellClassExtension)((ShellWidgetClass)XtClass(widget))

-		   ->shell_class.extension;

-	     ext != NULL && ext->record_type != NULLQUARK;

-	     ext = (ShellClassExtension)ext->next_extension);

-

-	if (ext != NULL) {

-	    if (  ext->version == XtShellExtensionVersion

-		  && ext->record_size == sizeof(ShellClassExtensionRec)) {

-		manager = ext->root_geometry_manager;

-		rgm = True;

-	    } else {

-		String params[1];

-		Cardinal num_params = 1;

-		params[0] = XtClass(widget)->core_class.class_name;

-		XtAppErrorMsg(XtWidgetToApplicationContext(widget),

-		     "invalidExtension", "xtMakeGeometryRequest",

-		     XtCXtToolkitError,

-		     "widget class %s has invalid ShellClassExtension record",

-		     params, &num_params);

-	    }

-	} else {

-	    XtAppErrorMsg(XtWidgetToApplicationContext(widget),

-			  "internalError", "xtMakeGeometryRequest",

-			  XtCXtToolkitError,

-			  "internal error; ShellClassExtension is NULL",

-			  NULL, NULL);

-	}

-	managed = True;

-	parentRealized = TRUE;

-	UNLOCK_PROCESS;

-    } else /* not shell */ {

-	if (parent == NULL)

-	    XtAppErrorMsg(XtWidgetToApplicationContext(widget),

-			  "invalidParent","xtMakeGeometryRequest",

-			  XtCXtToolkitError,

-			  "non-shell has no parent in XtMakeGeometryRequest",

-			  (String *)NULL, (Cardinal *)NULL);

-

-	managed = XtIsManaged(widget);

-	parentRealized = XtIsRealized(parent);

-	if (XtIsComposite(parent))

-	{

-	    LOCK_PROCESS;

-	    manager = ((CompositeWidgetClass) (parent->core.widget_class))

-		      ->composite_class.geometry_manager;

-	    UNLOCK_PROCESS;

-	}

-    }

-

-#if 0

-    /*

-     * The Xt spec says that these conditions must generate

-     * error messages (not warnings), but many Xt applications

-     * and toolkits (including parts of Xaw, Motif and Netscape)

-     * depend on the previous Xt behaviour.  Thus, these tests

-     * should probably remain disabled.

-     */

-    if (parentRealized && managed) {

-	if (parent && !XtIsComposite(parent))

-	{

-	    /*

-	     * This shouldn't ever happen, we only test for this to pass

-	     * VSW5.  Normally managing the widget will catch this, but VSW5

-	     * does some really screwy stuff to get here.

-	     */

-	    XtAppErrorMsg(XtWidgetToApplicationContext(widget),

-			  "invalidParent", "xtMakeGeometryRequest",

-			  XtCXtToolkitError,

-			  "XtMakeGeometryRequest - parent not composite",

-			  (String *)NULL, (Cardinal *)NULL);

-	}

-	else if (manager == (XtGeometryHandler) NULL)

-	{

-	    XtAppErrorMsg(XtWidgetToApplicationContext(widget),

-			  "invalidGeometryManager","xtMakeGeometryRequest",

-			  XtCXtToolkitError,

-			  "XtMakeGeometryRequest - parent has no geometry manager",

-			  (String *)NULL, (Cardinal *)NULL);

-	}

-    }

-#else

-    if (!manager)

-	managed = False;

-#endif

-

-    if (widget->core.being_destroyed) {

-	CALLGEOTAT(_XtGeoTab(-1));

-	CALLGEOTAT(_XtGeoTrace(widget,

-		       "It is being destroyed, just return XtGeometryNo.\n"));

-	return XtGeometryNo;

-    }

-

-    /* see if requesting anything to change */

-    req.changeMask = 0;

-    if (request->request_mode & CWStackMode

-	&& request->stack_mode != XtSMDontChange) {

-	    req.changeMask |= CWStackMode;

-	    CALLGEOTAT(_XtGeoTrace(widget,

-				   "Asking for a change in StackMode!\n"));

-	    if (request->request_mode & CWSibling) {

-		XtCheckSubclass(request->sibling, rectObjClass,

-				"XtMakeGeometryRequest");

-		req.changeMask |= CWSibling;

-	    }

-    }

-    if (request->request_mode & CWX

-	&& widget->core.x != request->x) {

-	CALLGEOTAT(_XtGeoTrace(widget,

-			       "Asking for a change in x: from %d to %d.\n",

-			       widget->core.x, request->x));

-	req.changeMask |= CWX;

-    }

-    if (request->request_mode & CWY

-	&& widget->core.y != request->y) {

-	CALLGEOTAT(_XtGeoTrace(widget,

-			       "Asking for a change in y: from %d to %d.\n",

-			       widget->core.y, request->y));

-	req.changeMask |= CWY;

-    }

-    if (request->request_mode & CWWidth

-	&& widget->core.width != request->width) {

-	CALLGEOTAT(_XtGeoTrace(widget,"Asking for a change in width: from %d to %d.\n",

-		       widget->core.width, request->width));

-	req.changeMask |= CWWidth;

-    }

-    if (request->request_mode & CWHeight

-	&& widget->core.height != request->height) {

-	CALLGEOTAT(_XtGeoTrace(widget,

-			    "Asking for a change in height: from %d to %d.\n",

-			       widget->core.height, request->height));

-	req.changeMask |= CWHeight;

-    }

-    if (request->request_mode & CWBorderWidth

-	&& widget->core.border_width != request->border_width){

-	CALLGEOTAT(_XtGeoTrace(widget,

-		       "Asking for a change in border_width: from %d to %d.\n",

-		       widget->core.border_width, request->border_width));

-	req.changeMask |= CWBorderWidth;

-    }

-    if (! req.changeMask) {

-	CALLGEOTAT(_XtGeoTrace(widget,

-		       "Asking for nothing new,\n"));

-	CALLGEOTAT(_XtGeoTab(-1));

-	CALLGEOTAT(_XtGeoTrace(widget,

-		       "just return XtGeometryYes.\n"));

-	return XtGeometryYes;

-    }

-    req.changeMask |= (request->request_mode & XtCWQueryOnly);

-

-    if ( !(req.changeMask & XtCWQueryOnly) && XtIsRealized(widget) ) {

-	/* keep record of the current geometry so we know what's changed */

-	req.changes.x = widget->core.x ;

-	req.changes.y = widget->core.y ;

-	req.changes.width = widget->core.width ;

-	req.changes.height = widget->core.height ;

-	req.changes.border_width = widget->core.border_width ;

-    }

-

-    if (!managed || !parentRealized) {

-	CALLGEOTAT(_XtGeoTrace(widget,

-			       "Not Managed or Parent not realized.\n"));

-	/* Don't get parent's manager involved--assume the answer is yes */

-	if (req.changeMask & XtCWQueryOnly) {

-	    /* He was just asking, don't change anything, just tell him yes */

-	    CALLGEOTAT(_XtGeoTrace(widget,"QueryOnly request\n"));

-	    CALLGEOTAT(_XtGeoTab(-1));

-	    CALLGEOTAT(_XtGeoTrace(widget,"just return XtGeometryYes.\n"));

-	    return XtGeometryYes;

-	} else {

-	    CALLGEOTAT(_XtGeoTrace(widget,

-				   "Copy values from request to widget.\n"));

-	    /* copy values from request to widget */

-	    if (request->request_mode & CWX)

-		widget->core.x = request->x;

-	    if (request->request_mode & CWY)

-		widget->core.y = request->y;

-	    if (request->request_mode & CWWidth)

-		widget->core.width = request->width;

-	    if (request->request_mode & CWHeight)

-		widget->core.height = request->height;

-	    if (request->request_mode & CWBorderWidth)

-		widget->core.border_width = request->border_width;

-	    if (!parentRealized) {

-		CALLGEOTAT(_XtGeoTab(-1));

-		CALLGEOTAT(_XtGeoTrace(widget,"and return XtGeometryYes.\n"));

-		return XtGeometryYes;

-	    }

-	    else returnCode = XtGeometryYes;

-	}

-    } else {

-	/* go ask the widget's geometry manager */

-	CALLGEOTAT(_XtGeoTrace(widget,

-			       "Go ask the parent geometry manager.\n"));

-	if (reply == (XtWidgetGeometry *) NULL) {

-	    returnCode = (*manager)(widget, request, &junk);

-	} else {

-	    returnCode = (*manager)(widget, request, reply);

-	}

-    }

-

-    /*

-     * If Unrealized, not a XtGeometryYes, or a query-only then we are done.

-     */

-

-    if ((returnCode != XtGeometryYes) ||

-	(req.changeMask & XtCWQueryOnly) || !XtIsRealized(widget)) {

-

-#ifdef XT_GEO_TATTLER

-	switch(returnCode){

-	case XtGeometryNo:

-	    CALLGEOTAT(_XtGeoTab(-1));

-	    CALLGEOTAT(_XtGeoTrace(widget,"\"%s\" returns XtGeometryNo.\n",

-			  (XtParent(widget))?XtName(XtParent(widget)):"Root"));

-            /* check for no change */

-            break ;

-	case XtGeometryDone:

-	    CALLGEOTAT(_XtGeoTab(-1));

-	    CALLGEOTAT(_XtGeoTrace(widget,"\"%s\" returns XtGeometryDone.\n",

-		        (XtParent(widget))?XtName(XtParent(widget)):"Root"));

-            /* check for no change in queryonly */

-            break ;

-	case XtGeometryAlmost:

-	    CALLGEOTAT(_XtGeoTab(-1));

-	    CALLGEOTAT(_XtGeoTrace(widget,"\"%s\" returns XtGeometryAlmost.\n",

-			 (XtParent(widget))?XtName(XtParent(widget)):"Root"));

-	    CALLGEOTAT(_XtGeoTab(1));

-	    CALLGEOTAT(_XtGeoTrace(widget,"Proposal: width %d height %d.\n",

-			   (reply)?reply->width:junk.width,

-			   (reply)?reply->height:junk.height));

-	    CALLGEOTAT(_XtGeoTab(-1));

-

-            /* check for no change */

-            break ;

-	case XtGeometryYes:

-	    if (req.changeMask & XtCWQueryOnly) {

-		CALLGEOTAT(_XtGeoTrace(widget,

-				"QueryOnly specified, no configuration.\n"));

-	    }

-            if (!XtIsRealized(widget)) {

-		CALLGEOTAT(_XtGeoTrace(widget,

-				 "\"%s\" not realized, no configuration.\n",

-				 XtName(widget)));

-	    }

-	    CALLGEOTAT(_XtGeoTab(-1));

-            CALLGEOTAT(_XtGeoTrace(widget,"\"%s\" returns XtGeometryYes.\n",

-                         (XtParent(widget))?XtName(XtParent(widget)):"Root"));

-	    break ;

-	}

-#endif

-	return returnCode;

-    }

-

-    CALLGEOTAT(_XtGeoTab(-1));

-    CALLGEOTAT(_XtGeoTrace(widget,"\"%s\" returns XtGeometryYes.\n",

-		   (XtParent(widget))?XtName(XtParent(widget)):"Root"));

-

-    if (XtIsWidget(widget)) {	/* reconfigure the window (if needed) */

-

-	if (rgm) return returnCode;

-

-	if (req.changes.x != widget->core.x) {

- 	    req.changeMask |= CWX;

- 	    req.changes.x = widget->core.x;

-	    CALLGEOTAT(_XtGeoTrace(widget,

-				   "x changing to %d\n",widget->core.x));

- 	}

- 	if (req.changes.y != widget->core.y) {

- 	    req.changeMask |= CWY;

- 	    req.changes.y = widget->core.y;

-	    CALLGEOTAT(_XtGeoTrace(widget,

-				   "y changing to %d\n",widget->core.y));

- 	}

- 	if (req.changes.width != widget->core.width) {

- 	    req.changeMask |= CWWidth;

- 	    req.changes.width = widget->core.width;

-	    CALLGEOTAT(_XtGeoTrace(widget,

-				 "width changing to %d\n",widget->core.width));

- 	}

- 	if (req.changes.height != widget->core.height) {

- 	    req.changeMask |= CWHeight;

- 	    req.changes.height = widget->core.height;

-	    CALLGEOTAT(_XtGeoTrace(widget,

-                               "height changing to %d\n",widget->core.height));

- 	}

- 	if (req.changes.border_width != widget->core.border_width) {

- 	    req.changeMask |= CWBorderWidth;

- 	    req.changes.border_width = widget->core.border_width;

-	    CALLGEOTAT(_XtGeoTrace(widget,

-				   "border_width changing to %d\n",

-				   widget->core.border_width));

- 	}

-	if (req.changeMask & CWStackMode) {

-	    req.changes.stack_mode = request->stack_mode;

-	    CALLGEOTAT(_XtGeoTrace(widget,"stack_mode changing\n"));

-	    if (req.changeMask & CWSibling) {

-		if (XtIsWidget(request->sibling))

-		    req.changes.sibling = XtWindow(request->sibling);

-		else

-		    req.changeMask &= ~(CWStackMode | CWSibling);

-	    }

-	}

-

-#ifdef XT_GEO_TATTLER

-        if (req.changeMask) {

-	    CALLGEOTAT(_XtGeoTrace(widget,

-				   "XConfigure \"%s\"'s window.\n",

-				   XtName(widget)));

-	} else {

-	    CALLGEOTAT(_XtGeoTrace(widget,

-			     "No window configuration needed for \"%s\".\n",

-			     XtName(widget)));

-	}

-#endif

-

-	XConfigureWindow(XtDisplay(widget), XtWindow(widget),

-			 req.changeMask, &req.changes);

-    }

-    else {			/* RectObj child of realized Widget */

-	*clear_rect_obj = TRUE;

-	CALLGEOTAT(_XtGeoTrace(widget,

-			       "ClearRectObj on \"%s\".\n",XtName(widget)));

-

-	ClearRectObjAreas((RectObj)widget, &req.changes);

-    }

-    hookobj = XtHooksOfDisplay(XtDisplayOfObject(widget));;

-    if (XtHasCallbacks(hookobj, XtNconfigureHook) == XtCallbackHasSome) {

-	req.type = XtHconfigure;

-	req.widget = widget;

-	XtCallCallbackList(hookobj,

-		((HookObject)hookobj)->hooks.confighook_callbacks,

-		(XtPointer)&req);

-    }

-

-    return returnCode;

-} /* _XtMakeGeometryRequest */

-

-

-/* Public routines */

-

-XtGeometryResult XtMakeGeometryRequest (

-    Widget         widget,

-    XtWidgetGeometry *request,

-    XtWidgetGeometry *reply)

-{

-    Boolean junk;

-    XtGeometryResult r;

-    XtGeometryHookDataRec call_data;

-    Widget hookobj = XtHooksOfDisplay(XtDisplayOfObject(widget));

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    if (XtHasCallbacks(hookobj, XtNgeometryHook) == XtCallbackHasSome) {

-	call_data.type = XtHpreGeometry;

-	call_data.widget = widget;

-	call_data.request = request;

-	XtCallCallbackList(hookobj,

-		((HookObject)hookobj)->hooks.geometryhook_callbacks,

-		(XtPointer)&call_data);

-	call_data.result = r =

-	    _XtMakeGeometryRequest(widget, request, reply, &junk);

-	call_data.type = XtHpostGeometry;

-	call_data.reply = reply;

-	XtCallCallbackList(hookobj,

-		((HookObject)hookobj)->hooks.geometryhook_callbacks,

-		(XtPointer)&call_data);

-    } else {

-	r = _XtMakeGeometryRequest(widget, request, reply, &junk);

-    }

-    UNLOCK_APP(app);

-

-    return ((r == XtGeometryDone) ? XtGeometryYes : r);

-}

-

-XtGeometryResult

-XtMakeResizeRequest(

-    Widget	widget,

-    _XtDimension width,

-    _XtDimension height,

-    Dimension	*replyWidth,

-    Dimension	*replyHeight)

-{

-    XtWidgetGeometry request, reply;

-    XtGeometryResult r;

-    XtGeometryHookDataRec call_data;

-    Boolean junk;

-    Widget hookobj = XtHooksOfDisplay(XtDisplayOfObject(widget));

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    request.request_mode = CWWidth | CWHeight;

-    request.width = width;

-    request.height = height;

-

-    if (XtHasCallbacks(hookobj, XtNgeometryHook) == XtCallbackHasSome) {

-	call_data.type = XtHpreGeometry;

-	call_data.widget = widget;

-	call_data.request = &request;

-	XtCallCallbackList(hookobj,

-		((HookObject)hookobj)->hooks.geometryhook_callbacks,

-		(XtPointer)&call_data);

-	call_data.result = r =

-	    _XtMakeGeometryRequest(widget, &request, &reply, &junk);

-	call_data.type = XtHpostGeometry;

-	call_data.reply = &reply;

-	XtCallCallbackList(hookobj,

-		((HookObject)hookobj)->hooks.geometryhook_callbacks,

-		(XtPointer)&call_data);

-    } else {

-	r = _XtMakeGeometryRequest(widget, &request, &reply, &junk);

-    }

-    if (replyWidth != NULL) {

-	if (r == XtGeometryAlmost && reply.request_mode & CWWidth)

-	    *replyWidth = reply.width;

-	else

-	    *replyWidth = width;

-    }

-    if (replyHeight != NULL) {

-	if (r == XtGeometryAlmost && reply.request_mode & CWHeight)

-	    *replyHeight = reply.height;

-	else

-	    *replyHeight = height;

-    }

-    UNLOCK_APP(app);

-    return ((r == XtGeometryDone) ? XtGeometryYes : r);

-} /* XtMakeResizeRequest */

-

-void XtResizeWindow(

-    Widget w)

-{

-    XtConfigureHookDataRec req;

-    Widget hookobj;

-    WIDGET_TO_APPCON(w);

-

-    LOCK_APP(app);

-    if (XtIsRealized(w)) {

-	req.changes.width = w->core.width;

-	req.changes.height = w->core.height;

-	req.changes.border_width = w->core.border_width;

-	req.changeMask = CWWidth | CWHeight | CWBorderWidth;

-	XConfigureWindow(XtDisplay(w), XtWindow(w),

-	    (unsigned) req.changeMask, &req.changes);

-	hookobj = XtHooksOfDisplay(XtDisplayOfObject(w));;

-	if (XtHasCallbacks(hookobj, XtNconfigureHook) == XtCallbackHasSome) {

-	    req.type = XtHconfigure;

-	    req.widget = w;

-	    XtCallCallbackList(hookobj,

-			((HookObject)hookobj)->hooks.confighook_callbacks,

-			(XtPointer)&req);

-	}

-    }

-    UNLOCK_APP(app);

-} /* XtResizeWindow */

-

-void XtResizeWidget(

-    Widget w,

-    _XtDimension width,

-    _XtDimension height,

-    _XtDimension borderWidth)

-{

-    XtConfigureWidget(w, w->core.x, w->core.y, width, height, borderWidth);

-} /* XtResizeWidget */

-

-void XtConfigureWidget(

-    Widget w,

-    _XtPosition x,

-    _XtPosition y,

-    _XtDimension width,

-    _XtDimension height,

-    _XtDimension borderWidth)

-{

-    XtConfigureHookDataRec req;

-    Widget hookobj;

-    XWindowChanges old;

-    WIDGET_TO_APPCON(w);

-

-    CALLGEOTAT(_XtGeoTrace(w,

-                   "\"%s\" is being configured by its parent \"%s\"\n",

-		   XtName(w),

-		   (XtParent(w))?XtName(XtParent(w)):"Root"));

-    CALLGEOTAT(_XtGeoTab(1));

-

-    LOCK_APP(app);

-    req.changeMask = 0;

-    if ((old.x = w->core.x) != x) {

-	CALLGEOTAT(_XtGeoTrace(w,"x move from %d to %d\n",w->core.x, x));

-	req.changes.x = w->core.x = x;

-	req.changeMask |= CWX;

-    }

-

-    if ((old.y = w->core.y) != y) {

-	CALLGEOTAT(_XtGeoTrace(w,"y move from %d to %d\n",w->core.y, y));

-	req.changes.y = w->core.y = y;

-	req.changeMask |= CWY;

-    }

-

-    if ((old.width = w->core.width) != width) {

-	CALLGEOTAT(_XtGeoTrace(w,

-			 "width move from %d to %d\n",w->core.width, width));

-	req.changes.width = w->core.width = width;

-	req.changeMask |= CWWidth;

-    }

-

-    if ((old.height = w->core.height) != height) {

-	CALLGEOTAT(_XtGeoTrace(w,

-		       "height move from %d to %d\n",w->core.height, height));

-	req.changes.height = w->core.height = height;

-	req.changeMask |= CWHeight;

-    }

-

-    if ((old.border_width = w->core.border_width) != borderWidth) {

-	CALLGEOTAT(_XtGeoTrace(w,"border_width move from %d to %d\n",

-		    w->core.border_width,borderWidth ));

-	req.changes.border_width = w->core.border_width = borderWidth;

-	req.changeMask |= CWBorderWidth;

-    }

-

-    if (req.changeMask != 0) {

-	if (XtIsRealized(w)) {

-	    if (XtIsWidget(w)) {

-		CALLGEOTAT(_XtGeoTrace(w,

-                                  "XConfigure \"%s\"'s window\n",XtName(w)));

-		XConfigureWindow(XtDisplay(w), XtWindow(w),

-				 req.changeMask, &req.changes);

-	    } else {

-		CALLGEOTAT(_XtGeoTrace(w,

-			       "ClearRectObj called on \"%s\"\n",XtName(w)));

-		ClearRectObjAreas((RectObj)w, &old);

-	    }

-	}

-	hookobj = XtHooksOfDisplay(XtDisplayOfObject(w));;

-	if (XtHasCallbacks(hookobj, XtNconfigureHook) == XtCallbackHasSome) {

-	    req.type = XtHconfigure;

-	    req.widget = w;

-	    XtCallCallbackList(hookobj,

-			((HookObject)hookobj)->hooks.confighook_callbacks,

-			(XtPointer)&req);

-	}

-	{

-	XtWidgetProc resize;

-

-	LOCK_PROCESS;

-	resize = XtClass(w)->core_class.resize;

-	UNLOCK_PROCESS;

-	if ((req.changeMask & (CWWidth | CWHeight)) &&

-	    resize != (XtWidgetProc) NULL) {

-	    CALLGEOTAT(_XtGeoTrace(w,"Resize proc is called.\n"));

-	    (*resize)(w);

-	 }

-	}

-    } else {

-	CALLGEOTAT(_XtGeoTrace(w,"No change in configuration\n"));

-    }

-

-    CALLGEOTAT(_XtGeoTab(-1));

-    UNLOCK_APP(app);

-} /* XtConfigureWidget */

-

-void XtMoveWidget(

-    Widget w,

-    _XtPosition x,

-    _XtPosition y)

-{

-    XtConfigureWidget(w, x, y, w->core.width, w->core.height,

-		      w->core.border_width);

-} /* XtMoveWidget */

-

-void XtTranslateCoords(

-    register Widget w,

-    _XtPosition x,

-    _XtPosition y,

-    register Position *rootx,	/* return */

-    register Position *rooty)	/* return */

-{

-    Position garbagex, garbagey;

-    XtAppContext app = XtWidgetToApplicationContext(w);

-

-    LOCK_APP(app);

-    if (rootx == NULL) rootx = &garbagex;

-    if (rooty == NULL) rooty = &garbagey;

-

-    *rootx = x;

-    *rooty = y;

-

-    for (; w != NULL && ! XtIsShell(w); w = w->core.parent) {

-	*rootx += w->core.x + w->core.border_width;

-	*rooty += w->core.y + w->core.border_width;

-    }

-

-    if (w == NULL)

-        XtAppWarningMsg(app,

-		"invalidShell","xtTranslateCoords",XtCXtToolkitError,

-                "Widget has no shell ancestor",

-		(String *)NULL, (Cardinal *)NULL);

-    else {

-	Position x, y;

-	_XtShellGetCoordinates( w, &x, &y );

-	*rootx += x + w->core.border_width;

-	*rooty += y + w->core.border_width;

-    }

-    UNLOCK_APP(app);

-}

-

-XtGeometryResult XtQueryGeometry(

-    Widget widget,

-    register XtWidgetGeometry *intended, /* parent's changes; may be NULL */

-    XtWidgetGeometry *reply)	/* child's preferred geometry; never NULL */

-{

-    XtWidgetGeometry null_intended;

-    XtGeometryHandler query;

-    XtGeometryResult result;

-    WIDGET_TO_APPCON(widget);

-

-    CALLGEOTAT(_XtGeoTrace(widget,

-		     "\"%s\" is asking its preferred geometry to \"%s\".\n",

-		     (XtParent(widget))?XtName(XtParent(widget)):"Root",

-		     XtName(widget)));

-    CALLGEOTAT(_XtGeoTab(1));

-

-    LOCK_APP(app);

-    LOCK_PROCESS;

-    query = XtClass(widget)->core_class.query_geometry;

-    UNLOCK_PROCESS;

-    reply->request_mode = 0;

-    if (query != NULL) {

-	if (intended == NULL) {

-	    null_intended.request_mode = 0;

-	    intended = &null_intended;

-#ifdef XT_GEO_TATTLER

-	    CALLGEOTAT(_XtGeoTrace(widget,"without any constraint.\n"));

-	} else {

-	    CALLGEOTAT(_XtGeoTrace(widget,

-				   "with the following constraints:\n"));

-

-	    if (intended->request_mode & CWX) {

-		CALLGEOTAT(_XtGeoTrace(widget," x = %d\n",intended->x));

-	    }

-	    if (intended->request_mode & CWY) {

-		CALLGEOTAT(_XtGeoTrace(widget," y = %d\n",intended->y));

-	    }

-	    if (intended->request_mode & CWWidth) {

-		CALLGEOTAT(_XtGeoTrace(widget,

-				       " width = %d\n",intended->width));

-	    }

-	    if (intended->request_mode & CWHeight) {

-		CALLGEOTAT(_XtGeoTrace(widget,

-				       " height = %d\n",intended->height));

-	    }

-	    if (intended->request_mode & CWBorderWidth) {

-		CALLGEOTAT(_XtGeoTrace(widget,

-			       " border_width = %d\n",intended->border_width));

-	    }

-#endif

-	}

-

-	result = (*query) (widget, intended, reply);

-    }

-    else {

-	CALLGEOTAT(_XtGeoTrace(widget,"\"%s\" has no QueryGeometry proc, return the current state\n",XtName(widget)));

-

-	result = XtGeometryYes;

-    }

-

-#ifdef XT_GEO_TATTLER

-#define FillIn(mask, field) \

-	if (!(reply->request_mode & mask)) {\

-	      reply->field = widget->core.field;\

-	      _XtGeoTrace(widget," using core %s = %d.\n","field",\

-			                               widget->core.field);\

-	} else {\

-	      _XtGeoTrace(widget," replied %s = %d\n","field",\

-			                           reply->field);\

-	}

-#else

-#define FillIn(mask, field) \

-	if (!(reply->request_mode & mask)) reply->field = widget->core.field;

-#endif

-

-    FillIn(CWX, x);

-    FillIn(CWY, y);

-    FillIn(CWWidth, width);

-    FillIn(CWHeight, height);

-    FillIn(CWBorderWidth, border_width);

-

-    CALLGEOTAT(_XtGeoTab(-1));

-#undef FillIn

-

-    if (!(reply->request_mode & CWStackMode))

-	reply->stack_mode = XtSMDontChange;

-    UNLOCK_APP(app);

-    return result;

-}

+/***********************************************************
+Copyright (c) 1993, Oracle and/or its affiliates. All rights reserved.
+
+Permission is hereby granted, free of charge, to any person obtaining a
+copy of this software and associated documentation files (the "Software"),
+to deal in the Software without restriction, including without limitation
+the rights to use, copy, modify, merge, publish, distribute, sublicense,
+and/or sell copies of the Software, and to permit persons to whom the
+Software is furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice (including the next
+paragraph) shall be included in all copies or substantial portions of the
+Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL
+THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
+DEALINGS IN THE SOFTWARE.
+
+Copyright 1987, 1988 by Digital Equipment Corporation, Maynard, Massachusetts.
+
+                        All Rights Reserved
+
+Permission to use, copy, modify, and distribute this software and its
+documentation for any purpose and without fee is hereby granted,
+provided that the above copyright notice appear in all copies and that
+both that copyright notice and this permission notice appear in
+supporting documentation, and that the name of Digital not be
+used in advertising or publicity pertaining to distribution of the
+software without specific, written prior permission.
+
+DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
+ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
+DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
+ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
+WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
+ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
+SOFTWARE.
+
+******************************************************************/
+
+/*
+
+Copyright 1987, 1988, 1994, 1998  The Open Group
+
+Permission to use, copy, modify, distribute, and sell this software and its
+documentation for any purpose is hereby granted without fee, provided that
+the above copyright notice appear in all copies and that both that
+copyright notice and this permission notice appear in supporting
+documentation.
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
+OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
+AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+Except as contained in this notice, the name of The Open Group shall not be
+used in advertising or otherwise to promote the sale, use or other dealings
+in this Software without prior written authorization from The Open Group.
+
+*/
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+#include "IntrinsicI.h"
+#include "ShellP.h"
+#include "ShellI.h"
+
+static void ClearRectObjAreas(
+    RectObj r,
+    XWindowChanges* old)
+{
+    Widget pw = _XtWindowedAncestor((Widget)r);
+    int bw2;
+
+    bw2 = old->border_width << 1;
+    XClearArea( XtDisplay(pw), XtWindow(pw),
+		old->x, old->y,
+		old->width + bw2, old->height + bw2,
+		TRUE );
+
+    bw2 = r->rectangle.border_width << 1;
+    XClearArea( XtDisplay(pw), XtWindow(pw),
+		(int)r->rectangle.x, (int)r->rectangle.y,
+		(unsigned int)(r->rectangle.width + bw2),
+	        (unsigned int)(r->rectangle.height + bw2),
+		TRUE );
+}
+
+/*
+ * Internal function used by XtMakeGeometryRequest and XtSetValues.
+ * Returns more data than the public interface.  Does not convert
+ * XtGeometryDone to XtGeometryYes.
+ *
+ * clear_rect_obj - *** RETURNED ***
+ *		    TRUE if the rect obj has been cleared, false otherwise.
+ */
+
+XtGeometryResult
+_XtMakeGeometryRequest (
+    Widget widget,
+    XtWidgetGeometry *request,
+    XtWidgetGeometry *reply,
+    Boolean * clear_rect_obj)
+{
+    XtWidgetGeometry    junk;
+    XtGeometryHandler manager = (XtGeometryHandler) NULL;
+    XtGeometryResult returnCode;
+    Widget parent = widget->core.parent;
+    Boolean managed, parentRealized, rgm = False;
+    XtConfigureHookDataRec req;
+    Widget hookobj;
+
+    *clear_rect_obj = FALSE;
+
+    CALLGEOTAT(_XtGeoTrace(widget,
+	"\"%s\" is making a %sgeometry request to its parent \"%s\".\n",
+		   XtName(widget),
+		   ((request->request_mode & XtCWQueryOnly))? "query only ":"",
+		   (XtParent(widget))?XtName(XtParent(widget)):"Root"));
+    CALLGEOTAT(_XtGeoTab(1));
+
+    if (XtIsShell(widget)) {
+	ShellClassExtension ext;
+	LOCK_PROCESS;
+	for (ext = (ShellClassExtension)((ShellWidgetClass)XtClass(widget))
+		   ->shell_class.extension;
+	     ext != NULL && ext->record_type != NULLQUARK;
+	     ext = (ShellClassExtension)ext->next_extension);
+
+	if (ext != NULL) {
+	    if (  ext->version == XtShellExtensionVersion
+		  && ext->record_size == sizeof(ShellClassExtensionRec)) {
+		manager = ext->root_geometry_manager;
+		rgm = True;
+	    } else {
+		String params[1];
+		Cardinal num_params = 1;
+		params[0] = XtClass(widget)->core_class.class_name;
+		XtAppErrorMsg(XtWidgetToApplicationContext(widget),
+		     "invalidExtension", "xtMakeGeometryRequest",
+		     XtCXtToolkitError,
+		     "widget class %s has invalid ShellClassExtension record",
+		     params, &num_params);
+	    }
+	} else {
+	    XtAppErrorMsg(XtWidgetToApplicationContext(widget),
+			  "internalError", "xtMakeGeometryRequest",
+			  XtCXtToolkitError,
+			  "internal error; ShellClassExtension is NULL",
+			  NULL, NULL);
+	}
+	managed = True;
+	parentRealized = TRUE;
+	UNLOCK_PROCESS;
+    } else /* not shell */ {
+	if (parent == NULL)
+	    XtAppErrorMsg(XtWidgetToApplicationContext(widget),
+			  "invalidParent","xtMakeGeometryRequest",
+			  XtCXtToolkitError,
+			  "non-shell has no parent in XtMakeGeometryRequest",
+			  (String *)NULL, (Cardinal *)NULL);
+
+	managed = XtIsManaged(widget);
+	parentRealized = XtIsRealized(parent);
+	if (XtIsComposite(parent))
+	{
+	    LOCK_PROCESS;
+	    manager = ((CompositeWidgetClass) (parent->core.widget_class))
+		      ->composite_class.geometry_manager;
+	    UNLOCK_PROCESS;
+	}
+    }
+
+#if 0
+    /*
+     * The Xt spec says that these conditions must generate
+     * error messages (not warnings), but many Xt applications
+     * and toolkits (including parts of Xaw, Motif and Netscape)
+     * depend on the previous Xt behaviour.  Thus, these tests
+     * should probably remain disabled.
+     */
+    if (parentRealized && managed) {
+	if (parent && !XtIsComposite(parent))
+	{
+	    /*
+	     * This shouldn't ever happen, we only test for this to pass
+	     * VSW5.  Normally managing the widget will catch this, but VSW5
+	     * does some really screwy stuff to get here.
+	     */
+	    XtAppErrorMsg(XtWidgetToApplicationContext(widget),
+			  "invalidParent", "xtMakeGeometryRequest",
+			  XtCXtToolkitError,
+			  "XtMakeGeometryRequest - parent not composite",
+			  (String *)NULL, (Cardinal *)NULL);
+	}
+	else if (manager == (XtGeometryHandler) NULL)
+	{
+	    XtAppErrorMsg(XtWidgetToApplicationContext(widget),
+			  "invalidGeometryManager","xtMakeGeometryRequest",
+			  XtCXtToolkitError,
+			  "XtMakeGeometryRequest - parent has no geometry manager",
+			  (String *)NULL, (Cardinal *)NULL);
+	}
+    }
+#else
+    if (!manager)
+	managed = False;
+#endif
+
+    if (widget->core.being_destroyed) {
+	CALLGEOTAT(_XtGeoTab(-1));
+	CALLGEOTAT(_XtGeoTrace(widget,
+		       "It is being destroyed, just return XtGeometryNo.\n"));
+	return XtGeometryNo;
+    }
+
+    /* see if requesting anything to change */
+    req.changeMask = 0;
+    if (request->request_mode & CWStackMode
+	&& request->stack_mode != XtSMDontChange) {
+	    req.changeMask |= CWStackMode;
+	    CALLGEOTAT(_XtGeoTrace(widget,
+				   "Asking for a change in StackMode!\n"));
+	    if (request->request_mode & CWSibling) {
+		XtCheckSubclass(request->sibling, rectObjClass,
+				"XtMakeGeometryRequest");
+		req.changeMask |= CWSibling;
+	    }
+    }
+    if (request->request_mode & CWX
+	&& widget->core.x != request->x) {
+	CALLGEOTAT(_XtGeoTrace(widget,
+			       "Asking for a change in x: from %d to %d.\n",
+			       widget->core.x, request->x));
+	req.changeMask |= CWX;
+    }
+    if (request->request_mode & CWY
+	&& widget->core.y != request->y) {
+	CALLGEOTAT(_XtGeoTrace(widget,
+			       "Asking for a change in y: from %d to %d.\n",
+			       widget->core.y, request->y));
+	req.changeMask |= CWY;
+    }
+    if (request->request_mode & CWWidth
+	&& widget->core.width != request->width) {
+	CALLGEOTAT(_XtGeoTrace(widget,"Asking for a change in width: from %d to %d.\n",
+		       widget->core.width, request->width));
+	req.changeMask |= CWWidth;
+    }
+    if (request->request_mode & CWHeight
+	&& widget->core.height != request->height) {
+	CALLGEOTAT(_XtGeoTrace(widget,
+			    "Asking for a change in height: from %d to %d.\n",
+			       widget->core.height, request->height));
+	req.changeMask |= CWHeight;
+    }
+    if (request->request_mode & CWBorderWidth
+	&& widget->core.border_width != request->border_width){
+	CALLGEOTAT(_XtGeoTrace(widget,
+		       "Asking for a change in border_width: from %d to %d.\n",
+		       widget->core.border_width, request->border_width));
+	req.changeMask |= CWBorderWidth;
+    }
+    if (! req.changeMask) {
+	CALLGEOTAT(_XtGeoTrace(widget,
+		       "Asking for nothing new,\n"));
+	CALLGEOTAT(_XtGeoTab(-1));
+	CALLGEOTAT(_XtGeoTrace(widget,
+		       "just return XtGeometryYes.\n"));
+	return XtGeometryYes;
+    }
+    req.changeMask |= (request->request_mode & XtCWQueryOnly);
+
+    if ( !(req.changeMask & XtCWQueryOnly) && XtIsRealized(widget) ) {
+	/* keep record of the current geometry so we know what's changed */
+	req.changes.x = widget->core.x ;
+	req.changes.y = widget->core.y ;
+	req.changes.width = widget->core.width ;
+	req.changes.height = widget->core.height ;
+	req.changes.border_width = widget->core.border_width ;
+    }
+
+    if (!managed || !parentRealized) {
+	CALLGEOTAT(_XtGeoTrace(widget,
+			       "Not Managed or Parent not realized.\n"));
+	/* Don't get parent's manager involved--assume the answer is yes */
+	if (req.changeMask & XtCWQueryOnly) {
+	    /* He was just asking, don't change anything, just tell him yes */
+	    CALLGEOTAT(_XtGeoTrace(widget,"QueryOnly request\n"));
+	    CALLGEOTAT(_XtGeoTab(-1));
+	    CALLGEOTAT(_XtGeoTrace(widget,"just return XtGeometryYes.\n"));
+	    return XtGeometryYes;
+	} else {
+	    CALLGEOTAT(_XtGeoTrace(widget,
+				   "Copy values from request to widget.\n"));
+	    /* copy values from request to widget */
+	    if (request->request_mode & CWX)
+		widget->core.x = request->x;
+	    if (request->request_mode & CWY)
+		widget->core.y = request->y;
+	    if (request->request_mode & CWWidth)
+		widget->core.width = request->width;
+	    if (request->request_mode & CWHeight)
+		widget->core.height = request->height;
+	    if (request->request_mode & CWBorderWidth)
+		widget->core.border_width = request->border_width;
+	    if (!parentRealized) {
+		CALLGEOTAT(_XtGeoTab(-1));
+		CALLGEOTAT(_XtGeoTrace(widget,"and return XtGeometryYes.\n"));
+		return XtGeometryYes;
+	    }
+	    else returnCode = XtGeometryYes;
+	}
+    } else {
+	/* go ask the widget's geometry manager */
+	CALLGEOTAT(_XtGeoTrace(widget,
+			       "Go ask the parent geometry manager.\n"));
+	if (reply == (XtWidgetGeometry *) NULL) {
+	    returnCode = (*manager)(widget, request, &junk);
+	} else {
+	    returnCode = (*manager)(widget, request, reply);
+	}
+    }
+
+    /*
+     * If Unrealized, not a XtGeometryYes, or a query-only then we are done.
+     */
+
+    if ((returnCode != XtGeometryYes) ||
+	(req.changeMask & XtCWQueryOnly) || !XtIsRealized(widget)) {
+
+#ifdef XT_GEO_TATTLER
+	switch(returnCode){
+	case XtGeometryNo:
+	    CALLGEOTAT(_XtGeoTab(-1));
+	    CALLGEOTAT(_XtGeoTrace(widget,"\"%s\" returns XtGeometryNo.\n",
+			  (XtParent(widget))?XtName(XtParent(widget)):"Root"));
+            /* check for no change */
+            break ;
+	case XtGeometryDone:
+	    CALLGEOTAT(_XtGeoTab(-1));
+	    CALLGEOTAT(_XtGeoTrace(widget,"\"%s\" returns XtGeometryDone.\n",
+		        (XtParent(widget))?XtName(XtParent(widget)):"Root"));
+            /* check for no change in queryonly */
+            break ;
+	case XtGeometryAlmost:
+	    CALLGEOTAT(_XtGeoTab(-1));
+	    CALLGEOTAT(_XtGeoTrace(widget,"\"%s\" returns XtGeometryAlmost.\n",
+			 (XtParent(widget))?XtName(XtParent(widget)):"Root"));
+	    CALLGEOTAT(_XtGeoTab(1));
+	    CALLGEOTAT(_XtGeoTrace(widget,"Proposal: width %d height %d.\n",
+			   (reply)?reply->width:junk.width,
+			   (reply)?reply->height:junk.height));
+	    CALLGEOTAT(_XtGeoTab(-1));
+
+            /* check for no change */
+            break ;
+	case XtGeometryYes:
+	    if (req.changeMask & XtCWQueryOnly) {
+		CALLGEOTAT(_XtGeoTrace(widget,
+				"QueryOnly specified, no configuration.\n"));
+	    }
+            if (!XtIsRealized(widget)) {
+		CALLGEOTAT(_XtGeoTrace(widget,
+				 "\"%s\" not realized, no configuration.\n",
+				 XtName(widget)));
+	    }
+	    CALLGEOTAT(_XtGeoTab(-1));
+            CALLGEOTAT(_XtGeoTrace(widget,"\"%s\" returns XtGeometryYes.\n",
+                         (XtParent(widget))?XtName(XtParent(widget)):"Root"));
+	    break ;
+	}
+#endif
+	return returnCode;
+    }
+
+    CALLGEOTAT(_XtGeoTab(-1));
+    CALLGEOTAT(_XtGeoTrace(widget,"\"%s\" returns XtGeometryYes.\n",
+		   (XtParent(widget))?XtName(XtParent(widget)):"Root"));
+
+    if (XtIsWidget(widget)) {	/* reconfigure the window (if needed) */
+
+	if (rgm) return returnCode;
+
+	if (req.changes.x != widget->core.x) {
+ 	    req.changeMask |= CWX;
+ 	    req.changes.x = widget->core.x;
+	    CALLGEOTAT(_XtGeoTrace(widget,
+				   "x changing to %d\n",widget->core.x));
+ 	}
+ 	if (req.changes.y != widget->core.y) {
+ 	    req.changeMask |= CWY;
+ 	    req.changes.y = widget->core.y;
+	    CALLGEOTAT(_XtGeoTrace(widget,
+				   "y changing to %d\n",widget->core.y));
+ 	}
+ 	if (req.changes.width != widget->core.width) {
+ 	    req.changeMask |= CWWidth;
+ 	    req.changes.width = widget->core.width;
+	    CALLGEOTAT(_XtGeoTrace(widget,
+				 "width changing to %d\n",widget->core.width));
+ 	}
+ 	if (req.changes.height != widget->core.height) {
+ 	    req.changeMask |= CWHeight;
+ 	    req.changes.height = widget->core.height;
+	    CALLGEOTAT(_XtGeoTrace(widget,
+                               "height changing to %d\n",widget->core.height));
+ 	}
+ 	if (req.changes.border_width != widget->core.border_width) {
+ 	    req.changeMask |= CWBorderWidth;
+ 	    req.changes.border_width = widget->core.border_width;
+	    CALLGEOTAT(_XtGeoTrace(widget,
+				   "border_width changing to %d\n",
+				   widget->core.border_width));
+ 	}
+	if (req.changeMask & CWStackMode) {
+	    req.changes.stack_mode = request->stack_mode;
+	    CALLGEOTAT(_XtGeoTrace(widget,"stack_mode changing\n"));
+	    if (req.changeMask & CWSibling) {
+		if (XtIsWidget(request->sibling))
+		    req.changes.sibling = XtWindow(request->sibling);
+		else
+		    req.changeMask &= ~(CWStackMode | CWSibling);
+	    }
+	}
+
+#ifdef XT_GEO_TATTLER
+        if (req.changeMask) {
+	    CALLGEOTAT(_XtGeoTrace(widget,
+				   "XConfigure \"%s\"'s window.\n",
+				   XtName(widget)));
+	} else {
+	    CALLGEOTAT(_XtGeoTrace(widget,
+			     "No window configuration needed for \"%s\".\n",
+			     XtName(widget)));
+	}
+#endif
+
+	XConfigureWindow(XtDisplay(widget), XtWindow(widget),
+			 req.changeMask, &req.changes);
+    }
+    else {			/* RectObj child of realized Widget */
+	*clear_rect_obj = TRUE;
+	CALLGEOTAT(_XtGeoTrace(widget,
+			       "ClearRectObj on \"%s\".\n",XtName(widget)));
+
+	ClearRectObjAreas((RectObj)widget, &req.changes);
+    }
+    hookobj = XtHooksOfDisplay(XtDisplayOfObject(widget));;
+    if (XtHasCallbacks(hookobj, XtNconfigureHook) == XtCallbackHasSome) {
+	req.type = XtHconfigure;
+	req.widget = widget;
+	XtCallCallbackList(hookobj,
+		((HookObject)hookobj)->hooks.confighook_callbacks,
+		(XtPointer)&req);
+    }
+
+    return returnCode;
+} /* _XtMakeGeometryRequest */
+
+
+/* Public routines */
+
+XtGeometryResult XtMakeGeometryRequest (
+    Widget         widget,
+    XtWidgetGeometry *request,
+    XtWidgetGeometry *reply)
+{
+    Boolean junk;
+    XtGeometryResult r;
+    XtGeometryHookDataRec call_data;
+    Widget hookobj = XtHooksOfDisplay(XtDisplayOfObject(widget));
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    if (XtHasCallbacks(hookobj, XtNgeometryHook) == XtCallbackHasSome) {
+	call_data.type = XtHpreGeometry;
+	call_data.widget = widget;
+	call_data.request = request;
+	XtCallCallbackList(hookobj,
+		((HookObject)hookobj)->hooks.geometryhook_callbacks,
+		(XtPointer)&call_data);
+	call_data.result = r =
+	    _XtMakeGeometryRequest(widget, request, reply, &junk);
+	call_data.type = XtHpostGeometry;
+	call_data.reply = reply;
+	XtCallCallbackList(hookobj,
+		((HookObject)hookobj)->hooks.geometryhook_callbacks,
+		(XtPointer)&call_data);
+    } else {
+	r = _XtMakeGeometryRequest(widget, request, reply, &junk);
+    }
+    UNLOCK_APP(app);
+
+    return ((r == XtGeometryDone) ? XtGeometryYes : r);
+}
+
+XtGeometryResult
+XtMakeResizeRequest(
+    Widget	widget,
+    _XtDimension width,
+    _XtDimension height,
+    Dimension	*replyWidth,
+    Dimension	*replyHeight)
+{
+    XtWidgetGeometry request, reply;
+    XtGeometryResult r;
+    XtGeometryHookDataRec call_data;
+    Boolean junk;
+    Widget hookobj = XtHooksOfDisplay(XtDisplayOfObject(widget));
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    request.request_mode = CWWidth | CWHeight;
+    request.width = width;
+    request.height = height;
+
+    if (XtHasCallbacks(hookobj, XtNgeometryHook) == XtCallbackHasSome) {
+	call_data.type = XtHpreGeometry;
+	call_data.widget = widget;
+	call_data.request = &request;
+	XtCallCallbackList(hookobj,
+		((HookObject)hookobj)->hooks.geometryhook_callbacks,
+		(XtPointer)&call_data);
+	call_data.result = r =
+	    _XtMakeGeometryRequest(widget, &request, &reply, &junk);
+	call_data.type = XtHpostGeometry;
+	call_data.reply = &reply;
+	XtCallCallbackList(hookobj,
+		((HookObject)hookobj)->hooks.geometryhook_callbacks,
+		(XtPointer)&call_data);
+    } else {
+	r = _XtMakeGeometryRequest(widget, &request, &reply, &junk);
+    }
+    if (replyWidth != NULL) {
+	if (r == XtGeometryAlmost && reply.request_mode & CWWidth)
+	    *replyWidth = reply.width;
+	else
+	    *replyWidth = width;
+    }
+    if (replyHeight != NULL) {
+	if (r == XtGeometryAlmost && reply.request_mode & CWHeight)
+	    *replyHeight = reply.height;
+	else
+	    *replyHeight = height;
+    }
+    UNLOCK_APP(app);
+    return ((r == XtGeometryDone) ? XtGeometryYes : r);
+} /* XtMakeResizeRequest */
+
+void XtResizeWindow(
+    Widget w)
+{
+    XtConfigureHookDataRec req;
+    Widget hookobj;
+    WIDGET_TO_APPCON(w);
+
+    LOCK_APP(app);
+    if (XtIsRealized(w)) {
+	req.changes.width = w->core.width;
+	req.changes.height = w->core.height;
+	req.changes.border_width = w->core.border_width;
+	req.changeMask = CWWidth | CWHeight | CWBorderWidth;
+	XConfigureWindow(XtDisplay(w), XtWindow(w),
+	    (unsigned) req.changeMask, &req.changes);
+	hookobj = XtHooksOfDisplay(XtDisplayOfObject(w));;
+	if (XtHasCallbacks(hookobj, XtNconfigureHook) == XtCallbackHasSome) {
+	    req.type = XtHconfigure;
+	    req.widget = w;
+	    XtCallCallbackList(hookobj,
+			((HookObject)hookobj)->hooks.confighook_callbacks,
+			(XtPointer)&req);
+	}
+    }
+    UNLOCK_APP(app);
+} /* XtResizeWindow */
+
+void XtResizeWidget(
+    Widget w,
+    _XtDimension width,
+    _XtDimension height,
+    _XtDimension borderWidth)
+{
+    XtConfigureWidget(w, w->core.x, w->core.y, width, height, borderWidth);
+} /* XtResizeWidget */
+
+void XtConfigureWidget(
+    Widget w,
+    _XtPosition x,
+    _XtPosition y,
+    _XtDimension width,
+    _XtDimension height,
+    _XtDimension borderWidth)
+{
+    XtConfigureHookDataRec req;
+    Widget hookobj;
+    XWindowChanges old;
+    WIDGET_TO_APPCON(w);
+
+    CALLGEOTAT(_XtGeoTrace(w,
+                   "\"%s\" is being configured by its parent \"%s\"\n",
+		   XtName(w),
+		   (XtParent(w))?XtName(XtParent(w)):"Root"));
+    CALLGEOTAT(_XtGeoTab(1));
+
+    LOCK_APP(app);
+    req.changeMask = 0;
+    if ((old.x = w->core.x) != x) {
+	CALLGEOTAT(_XtGeoTrace(w,"x move from %d to %d\n",w->core.x, x));
+	req.changes.x = w->core.x = x;
+	req.changeMask |= CWX;
+    }
+
+    if ((old.y = w->core.y) != y) {
+	CALLGEOTAT(_XtGeoTrace(w,"y move from %d to %d\n",w->core.y, y));
+	req.changes.y = w->core.y = y;
+	req.changeMask |= CWY;
+    }
+
+    if ((old.width = w->core.width) != width) {
+	CALLGEOTAT(_XtGeoTrace(w,
+			 "width move from %d to %d\n",w->core.width, width));
+	req.changes.width = w->core.width = width;
+	req.changeMask |= CWWidth;
+    }
+
+    if ((old.height = w->core.height) != height) {
+	CALLGEOTAT(_XtGeoTrace(w,
+		       "height move from %d to %d\n",w->core.height, height));
+	req.changes.height = w->core.height = height;
+	req.changeMask |= CWHeight;
+    }
+
+    if ((old.border_width = w->core.border_width) != borderWidth) {
+	CALLGEOTAT(_XtGeoTrace(w,"border_width move from %d to %d\n",
+		    w->core.border_width,borderWidth ));
+	req.changes.border_width = w->core.border_width = borderWidth;
+	req.changeMask |= CWBorderWidth;
+    }
+
+    if (req.changeMask != 0) {
+	if (XtIsRealized(w)) {
+	    if (XtIsWidget(w)) {
+		CALLGEOTAT(_XtGeoTrace(w,
+                                  "XConfigure \"%s\"'s window\n",XtName(w)));
+		XConfigureWindow(XtDisplay(w), XtWindow(w),
+				 req.changeMask, &req.changes);
+	    } else {
+		CALLGEOTAT(_XtGeoTrace(w,
+			       "ClearRectObj called on \"%s\"\n",XtName(w)));
+		ClearRectObjAreas((RectObj)w, &old);
+	    }
+	}
+	hookobj = XtHooksOfDisplay(XtDisplayOfObject(w));;
+	if (XtHasCallbacks(hookobj, XtNconfigureHook) == XtCallbackHasSome) {
+	    req.type = XtHconfigure;
+	    req.widget = w;
+	    XtCallCallbackList(hookobj,
+			((HookObject)hookobj)->hooks.confighook_callbacks,
+			(XtPointer)&req);
+	}
+	{
+	XtWidgetProc resize;
+
+	LOCK_PROCESS;
+	resize = XtClass(w)->core_class.resize;
+	UNLOCK_PROCESS;
+	if ((req.changeMask & (CWWidth | CWHeight)) &&
+	    resize != (XtWidgetProc) NULL) {
+	    CALLGEOTAT(_XtGeoTrace(w,"Resize proc is called.\n"));
+	    (*resize)(w);
+	 }
+	}
+    } else {
+	CALLGEOTAT(_XtGeoTrace(w,"No change in configuration\n"));
+    }
+
+    CALLGEOTAT(_XtGeoTab(-1));
+    UNLOCK_APP(app);
+} /* XtConfigureWidget */
+
+void XtMoveWidget(
+    Widget w,
+    _XtPosition x,
+    _XtPosition y)
+{
+    XtConfigureWidget(w, x, y, w->core.width, w->core.height,
+		      w->core.border_width);
+} /* XtMoveWidget */
+
+void XtTranslateCoords(
+    register Widget w,
+    _XtPosition x,
+    _XtPosition y,
+    register Position *rootx,	/* return */
+    register Position *rooty)	/* return */
+{
+    Position garbagex, garbagey;
+    XtAppContext app = XtWidgetToApplicationContext(w);
+
+    LOCK_APP(app);
+    if (rootx == NULL) rootx = &garbagex;
+    if (rooty == NULL) rooty = &garbagey;
+
+    *rootx = x;
+    *rooty = y;
+
+    for (; w != NULL && ! XtIsShell(w); w = w->core.parent) {
+	*rootx += w->core.x + w->core.border_width;
+	*rooty += w->core.y + w->core.border_width;
+    }
+
+    if (w == NULL)
+        XtAppWarningMsg(app,
+		"invalidShell","xtTranslateCoords",XtCXtToolkitError,
+                "Widget has no shell ancestor",
+		(String *)NULL, (Cardinal *)NULL);
+    else {
+	Position x, y;
+	_XtShellGetCoordinates( w, &x, &y );
+	*rootx += x + w->core.border_width;
+	*rooty += y + w->core.border_width;
+    }
+    UNLOCK_APP(app);
+}
+
+XtGeometryResult XtQueryGeometry(
+    Widget widget,
+    register XtWidgetGeometry *intended, /* parent's changes; may be NULL */
+    XtWidgetGeometry *reply)	/* child's preferred geometry; never NULL */
+{
+    XtWidgetGeometry null_intended;
+    XtGeometryHandler query;
+    XtGeometryResult result;
+    WIDGET_TO_APPCON(widget);
+
+    CALLGEOTAT(_XtGeoTrace(widget,
+		     "\"%s\" is asking its preferred geometry to \"%s\".\n",
+		     (XtParent(widget))?XtName(XtParent(widget)):"Root",
+		     XtName(widget)));
+    CALLGEOTAT(_XtGeoTab(1));
+
+    LOCK_APP(app);
+    LOCK_PROCESS;
+    query = XtClass(widget)->core_class.query_geometry;
+    UNLOCK_PROCESS;
+    reply->request_mode = 0;
+    if (query != NULL) {
+	if (intended == NULL) {
+	    null_intended.request_mode = 0;
+	    intended = &null_intended;
+#ifdef XT_GEO_TATTLER
+	    CALLGEOTAT(_XtGeoTrace(widget,"without any constraint.\n"));
+	} else {
+	    CALLGEOTAT(_XtGeoTrace(widget,
+				   "with the following constraints:\n"));
+
+	    if (intended->request_mode & CWX) {
+		CALLGEOTAT(_XtGeoTrace(widget," x = %d\n",intended->x));
+	    }
+	    if (intended->request_mode & CWY) {
+		CALLGEOTAT(_XtGeoTrace(widget," y = %d\n",intended->y));
+	    }
+	    if (intended->request_mode & CWWidth) {
+		CALLGEOTAT(_XtGeoTrace(widget,
+				       " width = %d\n",intended->width));
+	    }
+	    if (intended->request_mode & CWHeight) {
+		CALLGEOTAT(_XtGeoTrace(widget,
+				       " height = %d\n",intended->height));
+	    }
+	    if (intended->request_mode & CWBorderWidth) {
+		CALLGEOTAT(_XtGeoTrace(widget,
+			       " border_width = %d\n",intended->border_width));
+	    }
+#endif
+	}
+
+	result = (*query) (widget, intended, reply);
+    }
+    else {
+	CALLGEOTAT(_XtGeoTrace(widget,"\"%s\" has no QueryGeometry proc, return the current state\n",XtName(widget)));
+
+	result = XtGeometryYes;
+    }
+
+#ifdef XT_GEO_TATTLER
+#define FillIn(mask, field) \
+	if (!(reply->request_mode & mask)) {\
+	      reply->field = widget->core.field;\
+	      _XtGeoTrace(widget," using core %s = %d.\n","field",\
+			                               widget->core.field);\
+	} else {\
+	      _XtGeoTrace(widget," replied %s = %d\n","field",\
+			                           reply->field);\
+	}
+#else
+#define FillIn(mask, field) \
+	if (!(reply->request_mode & mask)) reply->field = widget->core.field;
+#endif
+
+    FillIn(CWX, x);
+    FillIn(CWY, y);
+    FillIn(CWWidth, width);
+    FillIn(CWHeight, height);
+    FillIn(CWBorderWidth, border_width);
+
+    CALLGEOTAT(_XtGeoTab(-1));
+#undef FillIn
+
+    if (!(reply->request_mode & CWStackMode))
+	reply->stack_mode = XtSMDontChange;
+    UNLOCK_APP(app);
+    return result;
+}