diff options
Diffstat (limited to 'src/Geometry.c')
| -rw-r--r-- | src/Geometry.c | 826 |
1 files changed, 826 insertions, 0 deletions
diff --git a/src/Geometry.c b/src/Geometry.c new file mode 100644 index 0000000..1d901eb --- /dev/null +++ b/src/Geometry.c @@ -0,0 +1,826 @@ +/* $Xorg: Geometry.c,v 1.5 2001/02/09 02:03:54 xorgcvs Exp $ */ + +/*********************************************************** +Copyright 1987, 1988 by Digital Equipment Corporation, Maynard, Massachusetts +Copyright 1993 by Sun Microsystems, Inc. Mountain View, CA. + + 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 names of Digital or Sun 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. + +SUN DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, +INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FIT- +NESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL SUN BE LI- +ABLE 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. + +*/ + +#include "IntrinsicI.h" +#include "ShellP.h" + +static void ClearRectObjAreas(r, old) + 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, request, reply, clear_rect_obj) + Widget widget; + XtWidgetGeometry *request, *reply; + Boolean * clear_rect_obj; +{ + XtWidgetGeometry junk; + XtGeometryHandler manager; + 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); + + /* + * 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. + */ + if (!XtIsComposite(parent)) + XtAppErrorMsg(XtWidgetToApplicationContext(widget), + "invalidParent", "xtMakeGeometryRequest", + XtCXtToolkitError, + "XtMakeGeometryRequest - parent not composite", + (String *)NULL, (Cardinal *)NULL); + + managed = XtIsManaged(widget); + parentRealized = XtIsRealized(parent); + LOCK_PROCESS; + manager = ((CompositeWidgetClass) (parent->core.widget_class)) + ->composite_class.geometry_manager; + UNLOCK_PROCESS; + } + + if (managed && manager == (XtGeometryHandler) NULL) { + XtErrorMsg("invalidGeometryManager","xtMakeGeometryRequest", + XtCXtToolkitError, + "XtMakeGeometryRequest - parent has no geometry manager", + (String *)NULL, (Cardinal *)NULL); + } + + 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, request, reply) + Widget widget; + XtWidgetGeometry *request, *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); +} + +#if NeedFunctionPrototypes +XtGeometryResult +XtMakeResizeRequest( + Widget widget, + _XtDimension width, + _XtDimension height, + Dimension *replyWidth, + Dimension *replyHeight) +#else +XtGeometryResult +XtMakeResizeRequest (widget, width, height, replyWidth, replyHeight) + Widget widget; + Dimension width, height; + Dimension *replyWidth, *replyHeight; +#endif +{ + 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(w) + 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 */ + +#if NeedFunctionPrototypes +void XtResizeWidget( + Widget w, + _XtDimension width, + _XtDimension height, + _XtDimension borderWidth + ) +#else +void XtResizeWidget(w, width, height, borderWidth) + Widget w; + Dimension width, height, borderWidth; +#endif +{ + XtConfigureWidget(w, w->core.x, w->core.y, width, height, borderWidth); +} /* XtResizeWidget */ + +#if NeedFunctionPrototypes +void XtConfigureWidget( + Widget w, + _XtPosition x, + _XtPosition y, + _XtDimension width, + _XtDimension height, + _XtDimension borderWidth + ) +#else +void XtConfigureWidget(w, x, y, width, height, borderWidth) + Widget w; + Position x, y; + Dimension width, height, borderWidth; +#endif +{ + 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 */ + +#if NeedFunctionPrototypes +void XtMoveWidget( + Widget w, + _XtPosition x, + _XtPosition y + ) +#else +void XtMoveWidget(w, x, y) + Widget w; + Position x, y; +#endif +{ + XtConfigureWidget(w, x, y, w->core.width, w->core.height, + w->core.border_width); +} /* XtMoveWidget */ + +#if NeedFunctionPrototypes +void XtTranslateCoords( + register Widget w, + _XtPosition x, + _XtPosition y, + register Position *rootx, /* return */ + register Position *rooty /* return */ + ) +#else +void XtTranslateCoords(w, x, y, rootx, rooty) + register Widget w; + Position x, y; + register Position *rootx, *rooty; /* return */ +#endif +{ + 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; + extern void _XtShellGetCoordinates(); + _XtShellGetCoordinates( w, &x, &y ); + *rootx += x + w->core.border_width; + *rooty += y + w->core.border_width; + } + UNLOCK_APP(app); +} + +XtGeometryResult XtQueryGeometry(widget, intended, reply) + 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; +} |