File: | 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 | _XtDimensionDimension width, | ||
512 | _XtDimensionDimension 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)) { | ||
Within the expansion of the macro 'XtIsRealized':
| |||
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 | _XtDimensionDimension width, | ||
591 | _XtDimensionDimension height, | ||
592 | _XtDimensionDimension borderWidth) | ||
593 | { | ||
594 | XtConfigureWidget(w, w->core.x, w->core.y, width, height, borderWidth); | ||
595 | } /* XtResizeWidget */ | ||
596 | |||
597 | void XtConfigureWidget( | ||
598 | Widget w, | ||
599 | _XtPositionPosition x, | ||
600 | _XtPositionPosition y, | ||
601 | _XtDimensionDimension width, | ||
602 | _XtDimensionDimension height, | ||
603 | _XtDimensionDimension 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 | _XtPositionPosition x, | ||
695 | _XtPositionPosition 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 | _XtPositionPosition x, | ||
704 | _XtPositionPosition 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 | } |