| File: | src/Geometry.c |
| Location: | line 569, column 9 |
| Description: | Dereference of null pointer |
| 1 | /*********************************************************** | |||||
| 2 | Copyright (c) 1993, Oracle and/or its affiliates. All rights reserved. | |||||
| 3 | ||||||
| 4 | Permission is hereby granted, free of charge, to any person obtaining a | |||||
| 5 | copy of this software and associated documentation files (the "Software"), | |||||
| 6 | to deal in the Software without restriction, including without limitation | |||||
| 7 | the rights to use, copy, modify, merge, publish, distribute, sublicense, | |||||
| 8 | and/or sell copies of the Software, and to permit persons to whom the | |||||
| 9 | Software is furnished to do so, subject to the following conditions: | |||||
| 10 | ||||||
| 11 | The above copyright notice and this permission notice (including the next | |||||
| 12 | paragraph) shall be included in all copies or substantial portions of the | |||||
| 13 | Software. | |||||
| 14 | ||||||
| 15 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR | |||||
| 16 | IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, | |||||
| 17 | FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL | |||||
| 18 | THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER | |||||
| 19 | LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING | |||||
| 20 | FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER | |||||
| 21 | DEALINGS IN THE SOFTWARE. | |||||
| 22 | ||||||
| 23 | Copyright 1987, 1988 by Digital Equipment Corporation, Maynard, Massachusetts. | |||||
| 24 | ||||||
| 25 | All Rights Reserved | |||||
| 26 | ||||||
| 27 | Permission to use, copy, modify, and distribute this software and its | |||||
| 28 | documentation for any purpose and without fee is hereby granted, | |||||
| 29 | provided that the above copyright notice appear in all copies and that | |||||
| 30 | both that copyright notice and this permission notice appear in | |||||
| 31 | supporting documentation, and that the name of Digital not be | |||||
| 32 | used in advertising or publicity pertaining to distribution of the | |||||
| 33 | software without specific, written prior permission. | |||||
| 34 | ||||||
| 35 | DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING | |||||
| 36 | ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL | |||||
| 37 | DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR | |||||
| 38 | ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, | |||||
| 39 | WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, | |||||
| 40 | ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS | |||||
| 41 | SOFTWARE. | |||||
| 42 | ||||||
| 43 | ******************************************************************/ | |||||
| 44 | ||||||
| 45 | /* | |||||
| 46 | ||||||
| 47 | Copyright 1987, 1988, 1994, 1998 The Open Group | |||||
| 48 | ||||||
| 49 | Permission to use, copy, modify, distribute, and sell this software and its | |||||
| 50 | documentation for any purpose is hereby granted without fee, provided that | |||||
| 51 | the above copyright notice appear in all copies and that both that | |||||
| 52 | copyright notice and this permission notice appear in supporting | |||||
| 53 | documentation. | |||||
| 54 | ||||||
| 55 | The above copyright notice and this permission notice shall be included in | |||||
| 56 | all copies or substantial portions of the Software. | |||||
| 57 | ||||||
| 58 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR | |||||
| 59 | IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, | |||||
| 60 | FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE | |||||
| 61 | OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN | |||||
| 62 | AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN | |||||
| 63 | CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. | |||||
| 64 | ||||||
| 65 | Except as contained in this notice, the name of The Open Group shall not be | |||||
| 66 | used in advertising or otherwise to promote the sale, use or other dealings | |||||
| 67 | in this Software without prior written authorization from The Open Group. | |||||
| 68 | ||||||
| 69 | */ | |||||
| 70 | ||||||
| 71 | #ifdef HAVE_CONFIG_H1 | |||||
| 72 | #include <config.h> | |||||
| 73 | #endif | |||||
| 74 | #include "IntrinsicI.h" | |||||
| 75 | #include "ShellP.h" | |||||
| 76 | #include "ShellI.h" | |||||
| 77 | ||||||
| 78 | static void ClearRectObjAreas( | |||||
| 79 | RectObj r, | |||||
| 80 | XWindowChanges* old) | |||||
| 81 | { | |||||
| 82 | Widget pw = _XtWindowedAncestor((Widget)r); | |||||
| 83 | int bw2; | |||||
| 84 | ||||||
| 85 | bw2 = old->border_width << 1; | |||||
| 86 | XClearArea( XtDisplay(pw)(((pw)->core.screen)->display), XtWindow(pw)((pw)->core.window), | |||||
| 87 | old->x, old->y, | |||||
| 88 | old->width + bw2, old->height + bw2, | |||||
| 89 | TRUE1 ); | |||||
| 90 | ||||||
| 91 | bw2 = r->rectangle.border_width << 1; | |||||
| 92 | XClearArea( XtDisplay(pw)(((pw)->core.screen)->display), XtWindow(pw)((pw)->core.window), | |||||
| 93 | (int)r->rectangle.x, (int)r->rectangle.y, | |||||
| 94 | (unsigned int)(r->rectangle.width + bw2), | |||||
| 95 | (unsigned int)(r->rectangle.height + bw2), | |||||
| 96 | TRUE1 ); | |||||
| 97 | } | |||||
| 98 | ||||||
| 99 | /* | |||||
| 100 | * Internal function used by XtMakeGeometryRequest and XtSetValues. | |||||
| 101 | * Returns more data than the public interface. Does not convert | |||||
| 102 | * XtGeometryDone to XtGeometryYes. | |||||
| 103 | * | |||||
| 104 | * clear_rect_obj - *** RETURNED *** | |||||
| 105 | * TRUE if the rect obj has been cleared, false otherwise. | |||||
| 106 | */ | |||||
| 107 | ||||||
| 108 | XtGeometryResult | |||||
| 109 | _XtMakeGeometryRequest ( | |||||
| 110 | Widget widget, | |||||
| 111 | XtWidgetGeometry *request, | |||||
| 112 | XtWidgetGeometry *reply, | |||||
| 113 | Boolean * clear_rect_obj) | |||||
| 114 | { | |||||
| 115 | XtWidgetGeometry junk; | |||||
| 116 | XtGeometryHandler manager = (XtGeometryHandler) NULL((void*)0); | |||||
| 117 | XtGeometryResult returnCode; | |||||
| 118 | Widget parent = widget->core.parent; | |||||
| 119 | Boolean managed, parentRealized, rgm = False0; | |||||
| 120 | XtConfigureHookDataRec req; | |||||
| 121 | Widget hookobj; | |||||
| 122 | ||||||
| 123 | *clear_rect_obj = FALSE0; | |||||
| 124 | ||||||
| 125 | CALLGEOTAT(_XtGeoTrace(widget, | |||||
| 126 | "\"%s\" is making a %sgeometry request to its parent \"%s\".\n", | |||||
| 127 | XtName(widget), | |||||
| 128 | ((request->request_mode & XtCWQueryOnly))? "query only ":"", | |||||
| 129 | (XtParent(widget))?XtName(XtParent(widget)):"Root")); | |||||
| 130 | CALLGEOTAT(_XtGeoTab(1)); | |||||
| 131 | ||||||
| 132 | if (XtIsShell(widget)(((Object)(widget))->object.widget_class->core_class.class_inited & 0x20)) { | |||||
| 133 | ShellClassExtension ext; | |||||
| 134 | LOCK_PROCESSif(_XtProcessLock)(*_XtProcessLock)(); | |||||
| 135 | for (ext = (ShellClassExtension)((ShellWidgetClass)XtClass(widget)((widget)->core.widget_class)) | |||||
| 136 | ->shell_class.extension; | |||||
| 137 | ext != NULL((void*)0) && ext->record_type != NULLQUARK((XrmQuark) 0); | |||||
| 138 | ext = (ShellClassExtension)ext->next_extension); | |||||
| 139 | ||||||
| 140 | if (ext != NULL((void*)0)) { | |||||
| 141 | if ( ext->version == XtShellExtensionVersion1L | |||||
| 142 | && ext->record_size == sizeof(ShellClassExtensionRec)) { | |||||
| 143 | manager = ext->root_geometry_manager; | |||||
| 144 | rgm = True1; | |||||
| 145 | } else { | |||||
| 146 | String params[1]; | |||||
| 147 | Cardinal num_params = 1; | |||||
| 148 | params[0] = XtClass(widget)((widget)->core.widget_class)->core_class.class_name; | |||||
| 149 | XtAppErrorMsg(XtWidgetToApplicationContext(widget), | |||||
| 150 | "invalidExtension", "xtMakeGeometryRequest", | |||||
| 151 | XtCXtToolkitError, | |||||
| 152 | "widget class %s has invalid ShellClassExtension record", | |||||
| 153 | params, &num_params); | |||||
| 154 | } | |||||
| 155 | } else { | |||||
| 156 | XtAppErrorMsg(XtWidgetToApplicationContext(widget), | |||||
| 157 | "internalError", "xtMakeGeometryRequest", | |||||
| 158 | XtCXtToolkitError, | |||||
| 159 | "internal error; ShellClassExtension is NULL", | |||||
| 160 | NULL((void*)0), NULL((void*)0)); | |||||
| 161 | } | |||||
| 162 | managed = True1; | |||||
| 163 | parentRealized = TRUE1; | |||||
| 164 | UNLOCK_PROCESSif(_XtProcessUnlock)(*_XtProcessUnlock)(); | |||||
| 165 | } else /* not shell */ { | |||||
| 166 | if (parent == NULL((void*)0)) | |||||
| 167 | XtAppErrorMsg(XtWidgetToApplicationContext(widget), | |||||
| 168 | "invalidParent","xtMakeGeometryRequest", | |||||
| 169 | XtCXtToolkitError, | |||||
| 170 | "non-shell has no parent in XtMakeGeometryRequest", | |||||
| 171 | (String *)NULL((void*)0), (Cardinal *)NULL((void*)0)); | |||||
| 172 | ||||||
| 173 | managed = XtIsManaged(widget)((((Object)(widget))->object.widget_class->core_class.class_inited & 0x02) ? (widget)->core.managed : 0); | |||||
| 174 | parentRealized = XtIsRealized(parent)((((((Object)(parent))->object.widget_class->core_class .class_inited & 0x04) ? (parent) : _XtWindowedAncestor(parent )) ->core.window) != 0L); | |||||
| 175 | if (XtIsComposite(parent)(((Object)(parent))->object.widget_class->core_class.class_inited & 0x08)) | |||||
| 176 | { | |||||
| 177 | LOCK_PROCESSif(_XtProcessLock)(*_XtProcessLock)(); | |||||
| 178 | manager = ((CompositeWidgetClass) (parent->core.widget_class)) | |||||
| 179 | ->composite_class.geometry_manager; | |||||
| 180 | UNLOCK_PROCESSif(_XtProcessUnlock)(*_XtProcessUnlock)(); | |||||
| 181 | } | |||||
| 182 | } | |||||
| 183 | ||||||
| 184 | #if 0 | |||||
| 185 | /* | |||||
| 186 | * The Xt spec says that these conditions must generate | |||||
| 187 | * error messages (not warnings), but many Xt applications | |||||
| 188 | * and toolkits (including parts of Xaw, Motif and Netscape) | |||||
| 189 | * depend on the previous Xt behaviour. Thus, these tests | |||||
| 190 | * should probably remain disabled. | |||||
| 191 | */ | |||||
| 192 | if (parentRealized && managed) { | |||||
| 193 | if (parent && !XtIsComposite(parent)(((Object)(parent))->object.widget_class->core_class.class_inited & 0x08)) | |||||
| 194 | { | |||||
| 195 | /* | |||||
| 196 | * This shouldn't ever happen, we only test for this to pass | |||||
| 197 | * VSW5. Normally managing the widget will catch this, but VSW5 | |||||
| 198 | * does some really screwy stuff to get here. | |||||
| 199 | */ | |||||
| 200 | XtAppErrorMsg(XtWidgetToApplicationContext(widget), | |||||
| 201 | "invalidParent", "xtMakeGeometryRequest", | |||||
| 202 | XtCXtToolkitError, | |||||
| 203 | "XtMakeGeometryRequest - parent not composite", | |||||
| 204 | (String *)NULL((void*)0), (Cardinal *)NULL((void*)0)); | |||||
| 205 | } | |||||
| 206 | else if (manager == (XtGeometryHandler) NULL((void*)0)) | |||||
| 207 | { | |||||
| 208 | XtAppErrorMsg(XtWidgetToApplicationContext(widget), | |||||
| 209 | "invalidGeometryManager","xtMakeGeometryRequest", | |||||
| 210 | XtCXtToolkitError, | |||||
| 211 | "XtMakeGeometryRequest - parent has no geometry manager", | |||||
| 212 | (String *)NULL((void*)0), (Cardinal *)NULL((void*)0)); | |||||
| 213 | } | |||||
| 214 | } | |||||
| 215 | #else | |||||
| 216 | if (!manager) | |||||
| 217 | managed = False0; | |||||
| 218 | #endif | |||||
| 219 | ||||||
| 220 | if (widget->core.being_destroyed) { | |||||
| 221 | CALLGEOTAT(_XtGeoTab(-1)); | |||||
| 222 | CALLGEOTAT(_XtGeoTrace(widget, | |||||
| 223 | "It is being destroyed, just return XtGeometryNo.\n")); | |||||
| 224 | return XtGeometryNo; | |||||
| 225 | } | |||||
| 226 | ||||||
| 227 | /* see if requesting anything to change */ | |||||
| 228 | req.changeMask = 0; | |||||
| 229 | if (request->request_mode & CWStackMode(1<<6) | |||||
| 230 | && request->stack_mode != XtSMDontChange5) { | |||||
| 231 | req.changeMask |= CWStackMode(1<<6); | |||||
| 232 | CALLGEOTAT(_XtGeoTrace(widget, | |||||
| 233 | "Asking for a change in StackMode!\n")); | |||||
| 234 | if (request->request_mode & CWSibling(1<<5)) { | |||||
| 235 | XtCheckSubclass(request->sibling, rectObjClass, | |||||
| 236 | "XtMakeGeometryRequest"); | |||||
| 237 | req.changeMask |= CWSibling(1<<5); | |||||
| 238 | } | |||||
| 239 | } | |||||
| 240 | if (request->request_mode & CWX(1<<0) | |||||
| 241 | && widget->core.x != request->x) { | |||||
| 242 | CALLGEOTAT(_XtGeoTrace(widget, | |||||
| 243 | "Asking for a change in x: from %d to %d.\n", | |||||
| 244 | widget->core.x, request->x)); | |||||
| 245 | req.changeMask |= CWX(1<<0); | |||||
| 246 | } | |||||
| 247 | if (request->request_mode & CWY(1<<1) | |||||
| 248 | && widget->core.y != request->y) { | |||||
| 249 | CALLGEOTAT(_XtGeoTrace(widget, | |||||
| 250 | "Asking for a change in y: from %d to %d.\n", | |||||
| 251 | widget->core.y, request->y)); | |||||
| 252 | req.changeMask |= CWY(1<<1); | |||||
| 253 | } | |||||
| 254 | if (request->request_mode & CWWidth(1<<2) | |||||
| 255 | && widget->core.width != request->width) { | |||||
| 256 | CALLGEOTAT(_XtGeoTrace(widget,"Asking for a change in width: from %d to %d.\n", | |||||
| 257 | widget->core.width, request->width)); | |||||
| 258 | req.changeMask |= CWWidth(1<<2); | |||||
| 259 | } | |||||
| 260 | if (request->request_mode & CWHeight(1<<3) | |||||
| 261 | && widget->core.height != request->height) { | |||||
| 262 | CALLGEOTAT(_XtGeoTrace(widget, | |||||
| 263 | "Asking for a change in height: from %d to %d.\n", | |||||
| 264 | widget->core.height, request->height)); | |||||
| 265 | req.changeMask |= CWHeight(1<<3); | |||||
| 266 | } | |||||
| 267 | if (request->request_mode & CWBorderWidth(1<<4) | |||||
| 268 | && widget->core.border_width != request->border_width){ | |||||
| 269 | CALLGEOTAT(_XtGeoTrace(widget, | |||||
| 270 | "Asking for a change in border_width: from %d to %d.\n", | |||||
| 271 | widget->core.border_width, request->border_width)); | |||||
| 272 | req.changeMask |= CWBorderWidth(1<<4); | |||||
| 273 | } | |||||
| 274 | if (! req.changeMask) { | |||||
| 275 | CALLGEOTAT(_XtGeoTrace(widget, | |||||
| 276 | "Asking for nothing new,\n")); | |||||
| 277 | CALLGEOTAT(_XtGeoTab(-1)); | |||||
| 278 | CALLGEOTAT(_XtGeoTrace(widget, | |||||
| 279 | "just return XtGeometryYes.\n")); | |||||
| 280 | return XtGeometryYes; | |||||
| 281 | } | |||||
| 282 | req.changeMask |= (request->request_mode & XtCWQueryOnly(1 << 7)); | |||||
| 283 | ||||||
| 284 | if ( !(req.changeMask & XtCWQueryOnly(1 << 7)) && XtIsRealized(widget)((((((Object)(widget))->object.widget_class->core_class .class_inited & 0x04) ? (widget) : _XtWindowedAncestor(widget )) ->core.window) != 0L) ) { | |||||
| 285 | /* keep record of the current geometry so we know what's changed */ | |||||
| 286 | req.changes.x = widget->core.x ; | |||||
| 287 | req.changes.y = widget->core.y ; | |||||
| 288 | req.changes.width = widget->core.width ; | |||||
| 289 | req.changes.height = widget->core.height ; | |||||
| 290 | req.changes.border_width = widget->core.border_width ; | |||||
| 291 | } | |||||
| 292 | ||||||
| 293 | if (!managed || !parentRealized) { | |||||
| 294 | CALLGEOTAT(_XtGeoTrace(widget, | |||||
| 295 | "Not Managed or Parent not realized.\n")); | |||||
| 296 | /* Don't get parent's manager involved--assume the answer is yes */ | |||||
| 297 | if (req.changeMask & XtCWQueryOnly(1 << 7)) { | |||||
| 298 | /* He was just asking, don't change anything, just tell him yes */ | |||||
| 299 | CALLGEOTAT(_XtGeoTrace(widget,"QueryOnly request\n")); | |||||
| 300 | CALLGEOTAT(_XtGeoTab(-1)); | |||||
| 301 | CALLGEOTAT(_XtGeoTrace(widget,"just return XtGeometryYes.\n")); | |||||
| 302 | return XtGeometryYes; | |||||
| 303 | } else { | |||||
| 304 | CALLGEOTAT(_XtGeoTrace(widget, | |||||
| 305 | "Copy values from request to widget.\n")); | |||||
| 306 | /* copy values from request to widget */ | |||||
| 307 | if (request->request_mode & CWX(1<<0)) | |||||
| 308 | widget->core.x = request->x; | |||||
| 309 | if (request->request_mode & CWY(1<<1)) | |||||
| 310 | widget->core.y = request->y; | |||||
| 311 | if (request->request_mode & CWWidth(1<<2)) | |||||
| 312 | widget->core.width = request->width; | |||||
| 313 | if (request->request_mode & CWHeight(1<<3)) | |||||
| 314 | widget->core.height = request->height; | |||||
| 315 | if (request->request_mode & CWBorderWidth(1<<4)) | |||||
| 316 | widget->core.border_width = request->border_width; | |||||
| 317 | if (!parentRealized) { | |||||
| 318 | CALLGEOTAT(_XtGeoTab(-1)); | |||||
| 319 | CALLGEOTAT(_XtGeoTrace(widget,"and return XtGeometryYes.\n")); | |||||
| 320 | return XtGeometryYes; | |||||
| 321 | } | |||||
| 322 | else returnCode = XtGeometryYes; | |||||
| 323 | } | |||||
| 324 | } else { | |||||
| 325 | /* go ask the widget's geometry manager */ | |||||
| 326 | CALLGEOTAT(_XtGeoTrace(widget, | |||||
| 327 | "Go ask the parent geometry manager.\n")); | |||||
| 328 | if (reply == (XtWidgetGeometry *) NULL((void*)0)) { | |||||
| 329 | returnCode = (*manager)(widget, request, &junk); | |||||
| 330 | } else { | |||||
| 331 | returnCode = (*manager)(widget, request, reply); | |||||
| 332 | } | |||||
| 333 | } | |||||
| 334 | ||||||
| 335 | /* | |||||
| 336 | * If Unrealized, not a XtGeometryYes, or a query-only then we are done. | |||||
| 337 | */ | |||||
| 338 | ||||||
| 339 | if ((returnCode != XtGeometryYes) || | |||||
| 340 | (req.changeMask & XtCWQueryOnly(1 << 7)) || !XtIsRealized(widget)((((((Object)(widget))->object.widget_class->core_class .class_inited & 0x04) ? (widget) : _XtWindowedAncestor(widget )) ->core.window) != 0L)) { | |||||
| 341 | ||||||
| 342 | #ifdef XT_GEO_TATTLER | |||||
| 343 | switch(returnCode){ | |||||
| 344 | case XtGeometryNo: | |||||
| 345 | CALLGEOTAT(_XtGeoTab(-1)); | |||||
| 346 | CALLGEOTAT(_XtGeoTrace(widget,"\"%s\" returns XtGeometryNo.\n", | |||||
| 347 | (XtParent(widget))?XtName(XtParent(widget)):"Root")); | |||||
| 348 | /* check for no change */ | |||||
| 349 | break ; | |||||
| 350 | case XtGeometryDone: | |||||
| 351 | CALLGEOTAT(_XtGeoTab(-1)); | |||||
| 352 | CALLGEOTAT(_XtGeoTrace(widget,"\"%s\" returns XtGeometryDone.\n", | |||||
| 353 | (XtParent(widget))?XtName(XtParent(widget)):"Root")); | |||||
| 354 | /* check for no change in queryonly */ | |||||
| 355 | break ; | |||||
| 356 | case XtGeometryAlmost: | |||||
| 357 | CALLGEOTAT(_XtGeoTab(-1)); | |||||
| 358 | CALLGEOTAT(_XtGeoTrace(widget,"\"%s\" returns XtGeometryAlmost.\n", | |||||
| 359 | (XtParent(widget))?XtName(XtParent(widget)):"Root")); | |||||
| 360 | CALLGEOTAT(_XtGeoTab(1)); | |||||
| 361 | CALLGEOTAT(_XtGeoTrace(widget,"Proposal: width %d height %d.\n", | |||||
| 362 | (reply)?reply->width:junk.width, | |||||
| 363 | (reply)?reply->height:junk.height)); | |||||
| 364 | CALLGEOTAT(_XtGeoTab(-1)); | |||||
| 365 | ||||||
| 366 | /* check for no change */ | |||||
| 367 | break ; | |||||
| 368 | case XtGeometryYes: | |||||
| 369 | if (req.changeMask & XtCWQueryOnly(1 << 7)) { | |||||
| 370 | CALLGEOTAT(_XtGeoTrace(widget, | |||||
| 371 | "QueryOnly specified, no configuration.\n")); | |||||
| 372 | } | |||||
| 373 | if (!XtIsRealized(widget)((((((Object)(widget))->object.widget_class->core_class .class_inited & 0x04) ? (widget) : _XtWindowedAncestor(widget )) ->core.window) != 0L)) { | |||||
| 374 | CALLGEOTAT(_XtGeoTrace(widget, | |||||
| 375 | "\"%s\" not realized, no configuration.\n", | |||||
| 376 | XtName(widget))); | |||||
| 377 | } | |||||
| 378 | CALLGEOTAT(_XtGeoTab(-1)); | |||||
| 379 | CALLGEOTAT(_XtGeoTrace(widget,"\"%s\" returns XtGeometryYes.\n", | |||||
| 380 | (XtParent(widget))?XtName(XtParent(widget)):"Root")); | |||||
| 381 | break ; | |||||
| 382 | } | |||||
| 383 | #endif | |||||
| 384 | return returnCode; | |||||
| 385 | } | |||||
| 386 | ||||||
| 387 | CALLGEOTAT(_XtGeoTab(-1)); | |||||
| 388 | CALLGEOTAT(_XtGeoTrace(widget,"\"%s\" returns XtGeometryYes.\n", | |||||
| 389 | (XtParent(widget))?XtName(XtParent(widget)):"Root")); | |||||
| 390 | ||||||
| 391 | if (XtIsWidget(widget)(((Object)(widget))->object.widget_class->core_class.class_inited & 0x04)) { /* reconfigure the window (if needed) */ | |||||
| 392 | ||||||
| 393 | if (rgm) return returnCode; | |||||
| 394 | ||||||
| 395 | if (req.changes.x != widget->core.x) { | |||||
| 396 | req.changeMask |= CWX(1<<0); | |||||
| 397 | req.changes.x = widget->core.x; | |||||
| 398 | CALLGEOTAT(_XtGeoTrace(widget, | |||||
| 399 | "x changing to %d\n",widget->core.x)); | |||||
| 400 | } | |||||
| 401 | if (req.changes.y != widget->core.y) { | |||||
| 402 | req.changeMask |= CWY(1<<1); | |||||
| 403 | req.changes.y = widget->core.y; | |||||
| 404 | CALLGEOTAT(_XtGeoTrace(widget, | |||||
| 405 | "y changing to %d\n",widget->core.y)); | |||||
| 406 | } | |||||
| 407 | if (req.changes.width != widget->core.width) { | |||||
| 408 | req.changeMask |= CWWidth(1<<2); | |||||
| 409 | req.changes.width = widget->core.width; | |||||
| 410 | CALLGEOTAT(_XtGeoTrace(widget, | |||||
| 411 | "width changing to %d\n",widget->core.width)); | |||||
| 412 | } | |||||
| 413 | if (req.changes.height != widget->core.height) { | |||||
| 414 | req.changeMask |= CWHeight(1<<3); | |||||
| 415 | req.changes.height = widget->core.height; | |||||
| 416 | CALLGEOTAT(_XtGeoTrace(widget, | |||||
| 417 | "height changing to %d\n",widget->core.height)); | |||||
| 418 | } | |||||
| 419 | if (req.changes.border_width != widget->core.border_width) { | |||||
| 420 | req.changeMask |= CWBorderWidth(1<<4); | |||||
| 421 | req.changes.border_width = widget->core.border_width; | |||||
| 422 | CALLGEOTAT(_XtGeoTrace(widget, | |||||
| 423 | "border_width changing to %d\n", | |||||
| 424 | widget->core.border_width)); | |||||
| 425 | } | |||||
| 426 | if (req.changeMask & CWStackMode(1<<6)) { | |||||
| 427 | req.changes.stack_mode = request->stack_mode; | |||||
| 428 | CALLGEOTAT(_XtGeoTrace(widget,"stack_mode changing\n")); | |||||
| 429 | if (req.changeMask & CWSibling(1<<5)) { | |||||
| 430 | if (XtIsWidget(request->sibling)(((Object)(request->sibling))->object.widget_class-> core_class.class_inited & 0x04)) | |||||
| 431 | req.changes.sibling = XtWindow(request->sibling)((request->sibling)->core.window); | |||||
| 432 | else | |||||
| 433 | req.changeMask &= ~(CWStackMode(1<<6) | CWSibling(1<<5)); | |||||
| 434 | } | |||||
| 435 | } | |||||
| 436 | ||||||
| 437 | #ifdef XT_GEO_TATTLER | |||||
| 438 | if (req.changeMask) { | |||||
| 439 | CALLGEOTAT(_XtGeoTrace(widget, | |||||
| 440 | "XConfigure \"%s\"'s window.\n", | |||||
| 441 | XtName(widget))); | |||||
| 442 | } else { | |||||
| 443 | CALLGEOTAT(_XtGeoTrace(widget, | |||||
| 444 | "No window configuration needed for \"%s\".\n", | |||||
| 445 | XtName(widget))); | |||||
| 446 | } | |||||
| 447 | #endif | |||||
| 448 | ||||||
| 449 | XConfigureWindow(XtDisplay(widget)(((widget)->core.screen)->display), XtWindow(widget)((widget)->core.window), | |||||
| 450 | req.changeMask, &req.changes); | |||||
| 451 | } | |||||
| 452 | else { /* RectObj child of realized Widget */ | |||||
| 453 | *clear_rect_obj = TRUE1; | |||||
| 454 | CALLGEOTAT(_XtGeoTrace(widget, | |||||
| 455 | "ClearRectObj on \"%s\".\n",XtName(widget))); | |||||
| 456 | ||||||
| 457 | ClearRectObjAreas((RectObj)widget, &req.changes); | |||||
| 458 | } | |||||
| 459 | hookobj = XtHooksOfDisplay(XtDisplayOfObject(widget)((((Object)(widget))->object.widget_class->core_class.class_inited & 0x04) ? (widget)->core.screen->display : _XtIsHookObject (widget) ? ((HookObject)(widget))->hooks.screen->display : _XtWindowedAncestor(widget)->core.screen->display)); | |||||
| 460 | if (XtHasCallbacks(hookobj, XtNconfigureHook((char*)&XtStrings[2072])) == XtCallbackHasSome) { | |||||
| 461 | req.type = XtHconfigure((char*)&XtStrings[2598]); | |||||
| 462 | req.widget = widget; | |||||
| 463 | XtCallCallbackList(hookobj, | |||||
| 464 | ((HookObject)hookobj)->hooks.confighook_callbacks, | |||||
| 465 | (XtPointer)&req); | |||||
| 466 | } | |||||
| 467 | ||||||
| 468 | return returnCode; | |||||
| 469 | } /* _XtMakeGeometryRequest */ | |||||
| 470 | ||||||
| 471 | ||||||
| 472 | /* Public routines */ | |||||
| 473 | ||||||
| 474 | XtGeometryResult XtMakeGeometryRequest ( | |||||
| 475 | Widget widget, | |||||
| 476 | XtWidgetGeometry *request, | |||||
| 477 | XtWidgetGeometry *reply) | |||||
| 478 | { | |||||
| 479 | Boolean junk; | |||||
| 480 | XtGeometryResult r; | |||||
| 481 | XtGeometryHookDataRec call_data; | |||||
| 482 | Widget hookobj = XtHooksOfDisplay(XtDisplayOfObject(widget)((((Object)(widget))->object.widget_class->core_class.class_inited & 0x04) ? (widget)->core.screen->display : _XtIsHookObject (widget) ? ((HookObject)(widget))->hooks.screen->display : _XtWindowedAncestor(widget)->core.screen->display)); | |||||
| 483 | WIDGET_TO_APPCON(widget)XtAppContext app = (widget && _XtProcessLock ? XtWidgetToApplicationContext (widget) : ((void*)0)); | |||||
| 484 | ||||||
| 485 | LOCK_APP(app)if(app && app->lock)(*app->lock)(app); | |||||
| 486 | if (XtHasCallbacks(hookobj, XtNgeometryHook((char*)&XtStrings[2086])) == XtCallbackHasSome) { | |||||
| 487 | call_data.type = XtHpreGeometry((char*)&XtStrings[2610]); | |||||
| 488 | call_data.widget = widget; | |||||
| 489 | call_data.request = request; | |||||
| 490 | XtCallCallbackList(hookobj, | |||||
| 491 | ((HookObject)hookobj)->hooks.geometryhook_callbacks, | |||||
| 492 | (XtPointer)&call_data); | |||||
| 493 | call_data.result = r = | |||||
| 494 | _XtMakeGeometryRequest(widget, request, reply, &junk); | |||||
| 495 | call_data.type = XtHpostGeometry((char*)&XtStrings[2624]); | |||||
| 496 | call_data.reply = reply; | |||||
| 497 | XtCallCallbackList(hookobj, | |||||
| 498 | ((HookObject)hookobj)->hooks.geometryhook_callbacks, | |||||
| 499 | (XtPointer)&call_data); | |||||
| 500 | } else { | |||||
| 501 | r = _XtMakeGeometryRequest(widget, request, reply, &junk); | |||||
| 502 | } | |||||
| 503 | UNLOCK_APP(app)if(app && app->unlock)(*app->unlock)(app); | |||||
| 504 | ||||||
| 505 | return ((r == XtGeometryDone) ? XtGeometryYes : r); | |||||
| 506 | } | |||||
| 507 | ||||||
| 508 | XtGeometryResult | |||||
| 509 | XtMakeResizeRequest( | |||||
| 510 | Widget widget, | |||||
| 511 | _XtDimensionunsigned int width, | |||||
| 512 | _XtDimensionunsigned int height, | |||||
| 513 | Dimension *replyWidth, | |||||
| 514 | Dimension *replyHeight) | |||||
| 515 | { | |||||
| 516 | XtWidgetGeometry request, reply; | |||||
| 517 | XtGeometryResult r; | |||||
| 518 | XtGeometryHookDataRec call_data; | |||||
| 519 | Boolean junk; | |||||
| 520 | Widget hookobj = XtHooksOfDisplay(XtDisplayOfObject(widget)((((Object)(widget))->object.widget_class->core_class.class_inited & 0x04) ? (widget)->core.screen->display : _XtIsHookObject (widget) ? ((HookObject)(widget))->hooks.screen->display : _XtWindowedAncestor(widget)->core.screen->display)); | |||||
| 521 | WIDGET_TO_APPCON(widget)XtAppContext app = (widget && _XtProcessLock ? XtWidgetToApplicationContext (widget) : ((void*)0)); | |||||
| 522 | ||||||
| 523 | LOCK_APP(app)if(app && app->lock)(*app->lock)(app); | |||||
| 524 | request.request_mode = CWWidth(1<<2) | CWHeight(1<<3); | |||||
| 525 | request.width = width; | |||||
| 526 | request.height = height; | |||||
| 527 | ||||||
| 528 | if (XtHasCallbacks(hookobj, XtNgeometryHook((char*)&XtStrings[2086])) == XtCallbackHasSome) { | |||||
| 529 | call_data.type = XtHpreGeometry((char*)&XtStrings[2610]); | |||||
| 530 | call_data.widget = widget; | |||||
| 531 | call_data.request = &request; | |||||
| 532 | XtCallCallbackList(hookobj, | |||||
| 533 | ((HookObject)hookobj)->hooks.geometryhook_callbacks, | |||||
| 534 | (XtPointer)&call_data); | |||||
| 535 | call_data.result = r = | |||||
| 536 | _XtMakeGeometryRequest(widget, &request, &reply, &junk); | |||||
| 537 | call_data.type = XtHpostGeometry((char*)&XtStrings[2624]); | |||||
| 538 | call_data.reply = &reply; | |||||
| 539 | XtCallCallbackList(hookobj, | |||||
| 540 | ((HookObject)hookobj)->hooks.geometryhook_callbacks, | |||||
| 541 | (XtPointer)&call_data); | |||||
| 542 | } else { | |||||
| 543 | r = _XtMakeGeometryRequest(widget, &request, &reply, &junk); | |||||
| 544 | } | |||||
| 545 | if (replyWidth != NULL((void*)0)) { | |||||
| 546 | if (r == XtGeometryAlmost && reply.request_mode & CWWidth(1<<2)) | |||||
| 547 | *replyWidth = reply.width; | |||||
| 548 | else | |||||
| 549 | *replyWidth = width; | |||||
| 550 | } | |||||
| 551 | if (replyHeight != NULL((void*)0)) { | |||||
| 552 | if (r == XtGeometryAlmost && reply.request_mode & CWHeight(1<<3)) | |||||
| 553 | *replyHeight = reply.height; | |||||
| 554 | else | |||||
| 555 | *replyHeight = height; | |||||
| 556 | } | |||||
| 557 | UNLOCK_APP(app)if(app && app->unlock)(*app->unlock)(app); | |||||
| 558 | return ((r == XtGeometryDone) ? XtGeometryYes : r); | |||||
| 559 | } /* XtMakeResizeRequest */ | |||||
| 560 | ||||||
| 561 | void XtResizeWindow( | |||||
| 562 | Widget w) | |||||
| 563 | { | |||||
| 564 | XtConfigureHookDataRec req; | |||||
| 565 | Widget hookobj; | |||||
| 566 | WIDGET_TO_APPCON(w)XtAppContext app = (w && _XtProcessLock ? XtWidgetToApplicationContext (w) : ((void*)0)); | |||||
| ||||||
| 567 | ||||||
| 568 | LOCK_APP(app)if(app && app->lock)(*app->lock)(app); | |||||
| 569 | if (XtIsRealized(w)((((((Object)(w))->object.widget_class->core_class.class_inited & 0x04) ? (w) : _XtWindowedAncestor(w)) ->core.window ) != 0L)) { | |||||
| ||||||
| 570 | req.changes.width = w->core.width; | |||||
| 571 | req.changes.height = w->core.height; | |||||
| 572 | req.changes.border_width = w->core.border_width; | |||||
| 573 | req.changeMask = CWWidth(1<<2) | CWHeight(1<<3) | CWBorderWidth(1<<4); | |||||
| 574 | XConfigureWindow(XtDisplay(w)(((w)->core.screen)->display), XtWindow(w)((w)->core.window), | |||||
| 575 | (unsigned) req.changeMask, &req.changes); | |||||
| 576 | hookobj = XtHooksOfDisplay(XtDisplayOfObject(w)((((Object)(w))->object.widget_class->core_class.class_inited & 0x04) ? (w)->core.screen->display : _XtIsHookObject (w) ? ((HookObject)(w))->hooks.screen->display : _XtWindowedAncestor (w)->core.screen->display)); | |||||
| 577 | if (XtHasCallbacks(hookobj, XtNconfigureHook((char*)&XtStrings[2072])) == XtCallbackHasSome) { | |||||
| 578 | req.type = XtHconfigure((char*)&XtStrings[2598]); | |||||
| 579 | req.widget = w; | |||||
| 580 | XtCallCallbackList(hookobj, | |||||
| 581 | ((HookObject)hookobj)->hooks.confighook_callbacks, | |||||
| 582 | (XtPointer)&req); | |||||
| 583 | } | |||||
| 584 | } | |||||
| 585 | UNLOCK_APP(app)if(app && app->unlock)(*app->unlock)(app); | |||||
| 586 | } /* XtResizeWindow */ | |||||
| 587 | ||||||
| 588 | void XtResizeWidget( | |||||
| 589 | Widget w, | |||||
| 590 | _XtDimensionunsigned int width, | |||||
| 591 | _XtDimensionunsigned int height, | |||||
| 592 | _XtDimensionunsigned int borderWidth) | |||||
| 593 | { | |||||
| 594 | XtConfigureWidget(w, w->core.x, w->core.y, width, height, borderWidth); | |||||
| 595 | } /* XtResizeWidget */ | |||||
| 596 | ||||||
| 597 | void XtConfigureWidget( | |||||
| 598 | Widget w, | |||||
| 599 | _XtPositionint x, | |||||
| 600 | _XtPositionint y, | |||||
| 601 | _XtDimensionunsigned int width, | |||||
| 602 | _XtDimensionunsigned int height, | |||||
| 603 | _XtDimensionunsigned int borderWidth) | |||||
| 604 | { | |||||
| 605 | XtConfigureHookDataRec req; | |||||
| 606 | Widget hookobj; | |||||
| 607 | XWindowChanges old; | |||||
| 608 | WIDGET_TO_APPCON(w)XtAppContext app = (w && _XtProcessLock ? XtWidgetToApplicationContext (w) : ((void*)0)); | |||||
| 609 | ||||||
| 610 | CALLGEOTAT(_XtGeoTrace(w, | |||||
| 611 | "\"%s\" is being configured by its parent \"%s\"\n", | |||||
| 612 | XtName(w), | |||||
| 613 | (XtParent(w))?XtName(XtParent(w)):"Root")); | |||||
| 614 | CALLGEOTAT(_XtGeoTab(1)); | |||||
| 615 | ||||||
| 616 | LOCK_APP(app)if(app && app->lock)(*app->lock)(app); | |||||
| 617 | req.changeMask = 0; | |||||
| 618 | if ((old.x = w->core.x) != x) { | |||||
| 619 | CALLGEOTAT(_XtGeoTrace(w,"x move from %d to %d\n",w->core.x, x)); | |||||
| 620 | req.changes.x = w->core.x = x; | |||||
| 621 | req.changeMask |= CWX(1<<0); | |||||
| 622 | } | |||||
| 623 | ||||||
| 624 | if ((old.y = w->core.y) != y) { | |||||
| 625 | CALLGEOTAT(_XtGeoTrace(w,"y move from %d to %d\n",w->core.y, y)); | |||||
| 626 | req.changes.y = w->core.y = y; | |||||
| 627 | req.changeMask |= CWY(1<<1); | |||||
| 628 | } | |||||
| 629 | ||||||
| 630 | if ((old.width = w->core.width) != width) { | |||||
| 631 | CALLGEOTAT(_XtGeoTrace(w, | |||||
| 632 | "width move from %d to %d\n",w->core.width, width)); | |||||
| 633 | req.changes.width = w->core.width = width; | |||||
| 634 | req.changeMask |= CWWidth(1<<2); | |||||
| 635 | } | |||||
| 636 | ||||||
| 637 | if ((old.height = w->core.height) != height) { | |||||
| 638 | CALLGEOTAT(_XtGeoTrace(w, | |||||
| 639 | "height move from %d to %d\n",w->core.height, height)); | |||||
| 640 | req.changes.height = w->core.height = height; | |||||
| 641 | req.changeMask |= CWHeight(1<<3); | |||||
| 642 | } | |||||
| 643 | ||||||
| 644 | if ((old.border_width = w->core.border_width) != borderWidth) { | |||||
| 645 | CALLGEOTAT(_XtGeoTrace(w,"border_width move from %d to %d\n", | |||||
| 646 | w->core.border_width,borderWidth )); | |||||
| 647 | req.changes.border_width = w->core.border_width = borderWidth; | |||||
| 648 | req.changeMask |= CWBorderWidth(1<<4); | |||||
| 649 | } | |||||
| 650 | ||||||
| 651 | if (req.changeMask != 0) { | |||||
| 652 | if (XtIsRealized(w)((((((Object)(w))->object.widget_class->core_class.class_inited & 0x04) ? (w) : _XtWindowedAncestor(w)) ->core.window ) != 0L)) { | |||||
| 653 | if (XtIsWidget(w)(((Object)(w))->object.widget_class->core_class.class_inited & 0x04)) { | |||||
| 654 | CALLGEOTAT(_XtGeoTrace(w, | |||||
| 655 | "XConfigure \"%s\"'s window\n",XtName(w))); | |||||
| 656 | XConfigureWindow(XtDisplay(w)(((w)->core.screen)->display), XtWindow(w)((w)->core.window), | |||||
| 657 | req.changeMask, &req.changes); | |||||
| 658 | } else { | |||||
| 659 | CALLGEOTAT(_XtGeoTrace(w, | |||||
| 660 | "ClearRectObj called on \"%s\"\n",XtName(w))); | |||||
| 661 | ClearRectObjAreas((RectObj)w, &old); | |||||
| 662 | } | |||||
| 663 | } | |||||
| 664 | hookobj = XtHooksOfDisplay(XtDisplayOfObject(w)((((Object)(w))->object.widget_class->core_class.class_inited & 0x04) ? (w)->core.screen->display : _XtIsHookObject (w) ? ((HookObject)(w))->hooks.screen->display : _XtWindowedAncestor (w)->core.screen->display)); | |||||
| 665 | if (XtHasCallbacks(hookobj, XtNconfigureHook((char*)&XtStrings[2072])) == XtCallbackHasSome) { | |||||
| 666 | req.type = XtHconfigure((char*)&XtStrings[2598]); | |||||
| 667 | req.widget = w; | |||||
| 668 | XtCallCallbackList(hookobj, | |||||
| 669 | ((HookObject)hookobj)->hooks.confighook_callbacks, | |||||
| 670 | (XtPointer)&req); | |||||
| 671 | } | |||||
| 672 | { | |||||
| 673 | XtWidgetProc resize; | |||||
| 674 | ||||||
| 675 | LOCK_PROCESSif(_XtProcessLock)(*_XtProcessLock)(); | |||||
| 676 | resize = XtClass(w)((w)->core.widget_class)->core_class.resize; | |||||
| 677 | UNLOCK_PROCESSif(_XtProcessUnlock)(*_XtProcessUnlock)(); | |||||
| 678 | if ((req.changeMask & (CWWidth(1<<2) | CWHeight(1<<3))) && | |||||
| 679 | resize != (XtWidgetProc) NULL((void*)0)) { | |||||
| 680 | CALLGEOTAT(_XtGeoTrace(w,"Resize proc is called.\n")); | |||||
| 681 | (*resize)(w); | |||||
| 682 | } | |||||
| 683 | } | |||||
| 684 | } else { | |||||
| 685 | CALLGEOTAT(_XtGeoTrace(w,"No change in configuration\n")); | |||||
| 686 | } | |||||
| 687 | ||||||
| 688 | CALLGEOTAT(_XtGeoTab(-1)); | |||||
| 689 | UNLOCK_APP(app)if(app && app->unlock)(*app->unlock)(app); | |||||
| 690 | } /* XtConfigureWidget */ | |||||
| 691 | ||||||
| 692 | void XtMoveWidget( | |||||
| 693 | Widget w, | |||||
| 694 | _XtPositionint x, | |||||
| 695 | _XtPositionint y) | |||||
| 696 | { | |||||
| 697 | XtConfigureWidget(w, x, y, w->core.width, w->core.height, | |||||
| 698 | w->core.border_width); | |||||
| 699 | } /* XtMoveWidget */ | |||||
| 700 | ||||||
| 701 | void XtTranslateCoords( | |||||
| 702 | register Widget w, | |||||
| 703 | _XtPositionint x, | |||||
| 704 | _XtPositionint y, | |||||
| 705 | register Position *rootx, /* return */ | |||||
| 706 | register Position *rooty) /* return */ | |||||
| 707 | { | |||||
| 708 | Position garbagex, garbagey; | |||||
| 709 | XtAppContext app = XtWidgetToApplicationContext(w); | |||||
| 710 | ||||||
| 711 | LOCK_APP(app)if(app && app->lock)(*app->lock)(app); | |||||
| 712 | if (rootx == NULL((void*)0)) rootx = &garbagex; | |||||
| 713 | if (rooty == NULL((void*)0)) rooty = &garbagey; | |||||
| 714 | ||||||
| 715 | *rootx = x; | |||||
| 716 | *rooty = y; | |||||
| 717 | ||||||
| 718 | for (; w != NULL((void*)0) && ! XtIsShell(w)(((Object)(w))->object.widget_class->core_class.class_inited & 0x20); w = w->core.parent) { | |||||
| 719 | *rootx += w->core.x + w->core.border_width; | |||||
| 720 | *rooty += w->core.y + w->core.border_width; | |||||
| 721 | } | |||||
| 722 | ||||||
| 723 | if (w == NULL((void*)0)) | |||||
| 724 | XtAppWarningMsg(app, | |||||
| 725 | "invalidShell","xtTranslateCoords",XtCXtToolkitError, | |||||
| 726 | "Widget has no shell ancestor", | |||||
| 727 | (String *)NULL((void*)0), (Cardinal *)NULL((void*)0)); | |||||
| 728 | else { | |||||
| 729 | Position x, y; | |||||
| 730 | _XtShellGetCoordinates( w, &x, &y ); | |||||
| 731 | *rootx += x + w->core.border_width; | |||||
| 732 | *rooty += y + w->core.border_width; | |||||
| 733 | } | |||||
| 734 | UNLOCK_APP(app)if(app && app->unlock)(*app->unlock)(app); | |||||
| 735 | } | |||||
| 736 | ||||||
| 737 | XtGeometryResult XtQueryGeometry( | |||||
| 738 | Widget widget, | |||||
| 739 | register XtWidgetGeometry *intended, /* parent's changes; may be NULL */ | |||||
| 740 | XtWidgetGeometry *reply) /* child's preferred geometry; never NULL */ | |||||
| 741 | { | |||||
| 742 | XtWidgetGeometry null_intended; | |||||
| 743 | XtGeometryHandler query; | |||||
| 744 | XtGeometryResult result; | |||||
| 745 | WIDGET_TO_APPCON(widget)XtAppContext app = (widget && _XtProcessLock ? XtWidgetToApplicationContext (widget) : ((void*)0)); | |||||
| 746 | ||||||
| 747 | CALLGEOTAT(_XtGeoTrace(widget, | |||||
| 748 | "\"%s\" is asking its preferred geometry to \"%s\".\n", | |||||
| 749 | (XtParent(widget))?XtName(XtParent(widget)):"Root", | |||||
| 750 | XtName(widget))); | |||||
| 751 | CALLGEOTAT(_XtGeoTab(1)); | |||||
| 752 | ||||||
| 753 | LOCK_APP(app)if(app && app->lock)(*app->lock)(app); | |||||
| 754 | LOCK_PROCESSif(_XtProcessLock)(*_XtProcessLock)(); | |||||
| 755 | query = XtClass(widget)((widget)->core.widget_class)->core_class.query_geometry; | |||||
| 756 | UNLOCK_PROCESSif(_XtProcessUnlock)(*_XtProcessUnlock)(); | |||||
| 757 | reply->request_mode = 0; | |||||
| 758 | if (query != NULL((void*)0)) { | |||||
| 759 | if (intended == NULL((void*)0)) { | |||||
| 760 | null_intended.request_mode = 0; | |||||
| 761 | intended = &null_intended; | |||||
| 762 | #ifdef XT_GEO_TATTLER | |||||
| 763 | CALLGEOTAT(_XtGeoTrace(widget,"without any constraint.\n")); | |||||
| 764 | } else { | |||||
| 765 | CALLGEOTAT(_XtGeoTrace(widget, | |||||
| 766 | "with the following constraints:\n")); | |||||
| 767 | ||||||
| 768 | if (intended->request_mode & CWX(1<<0)) { | |||||
| 769 | CALLGEOTAT(_XtGeoTrace(widget," x = %d\n",intended->x)); | |||||
| 770 | } | |||||
| 771 | if (intended->request_mode & CWY(1<<1)) { | |||||
| 772 | CALLGEOTAT(_XtGeoTrace(widget," y = %d\n",intended->y)); | |||||
| 773 | } | |||||
| 774 | if (intended->request_mode & CWWidth(1<<2)) { | |||||
| 775 | CALLGEOTAT(_XtGeoTrace(widget, | |||||
| 776 | " width = %d\n",intended->width)); | |||||
| 777 | } | |||||
| 778 | if (intended->request_mode & CWHeight(1<<3)) { | |||||
| 779 | CALLGEOTAT(_XtGeoTrace(widget, | |||||
| 780 | " height = %d\n",intended->height)); | |||||
| 781 | } | |||||
| 782 | if (intended->request_mode & CWBorderWidth(1<<4)) { | |||||
| 783 | CALLGEOTAT(_XtGeoTrace(widget, | |||||
| 784 | " border_width = %d\n",intended->border_width)); | |||||
| 785 | } | |||||
| 786 | #endif | |||||
| 787 | } | |||||
| 788 | ||||||
| 789 | result = (*query) (widget, intended, reply); | |||||
| 790 | } | |||||
| 791 | else { | |||||
| 792 | CALLGEOTAT(_XtGeoTrace(widget,"\"%s\" has no QueryGeometry proc, return the current state\n",XtName(widget))); | |||||
| 793 | ||||||
| 794 | result = XtGeometryYes; | |||||
| 795 | } | |||||
| 796 | ||||||
| 797 | #ifdef XT_GEO_TATTLER | |||||
| 798 | #define FillIn(mask, field) \ | |||||
| 799 | if (!(reply->request_mode & mask)) {\ | |||||
| 800 | reply->field = widget->core.field;\ | |||||
| 801 | _XtGeoTrace(widget," using core %s = %d.\n","field",\ | |||||
| 802 | widget->core.field);\ | |||||
| 803 | } else {\ | |||||
| 804 | _XtGeoTrace(widget," replied %s = %d\n","field",\ | |||||
| 805 | reply->field);\ | |||||
| 806 | } | |||||
| 807 | #else | |||||
| 808 | #define FillIn(mask, field) \ | |||||
| 809 | if (!(reply->request_mode & mask)) reply->field = widget->core.field; | |||||
| 810 | #endif | |||||
| 811 | ||||||
| 812 | FillIn(CWX(1<<0), x); | |||||
| 813 | FillIn(CWY(1<<1), y); | |||||
| 814 | FillIn(CWWidth(1<<2), width); | |||||
| 815 | FillIn(CWHeight(1<<3), height); | |||||
| 816 | FillIn(CWBorderWidth(1<<4), border_width); | |||||
| 817 | ||||||
| 818 | CALLGEOTAT(_XtGeoTab(-1)); | |||||
| 819 | #undef FillIn | |||||
| 820 | ||||||
| 821 | if (!(reply->request_mode & CWStackMode(1<<6))) | |||||
| 822 | reply->stack_mode = XtSMDontChange5; | |||||
| 823 | UNLOCK_APP(app)if(app && app->unlock)(*app->unlock)(app); | |||||
| 824 | return result; | |||||
| 825 | } |