Mercurial > hg > xemacs-beta

comparison lwlib/lwlib-utils.c @ 428:3ecd8885ac67 r21-2-22

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-22
author cvs
date Mon, 13 Aug 2007 11:28:15 +0200
parents
children 54fa1a5c2d12
comparison
equal deleted inserted replaced
427:0a0253eac470 428:3ecd8885ac67
1 /* Defines some widget utility functions.
2 Copyright (C) 1992 Lucid, Inc.
3
4 This file is part of the Lucid Widget Library.
5
6 The Lucid Widget Library is free software; you can redistribute it and/or
7 modify it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 1, or (at your option)
9 any later version.
10
11 The Lucid Widget Library is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
15
16 You should have received a copy of the GNU General Public License
17 along with XEmacs; see the file COPYING. If not, write to
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19 Boston, MA 02111-1307, USA. */
20
21 #include <config.h>
22 #include <stdlib.h>
23 #include <string.h>
24 #include <memory.h>
25 #ifdef HAVE_UNISTD_H
26 #include <unistd.h>
27 #endif
28
29 #include <X11/Xatom.h>
30 #include <X11/IntrinsicP.h>
31 #include <X11/ObjectP.h>
32 #include "lwlib-utils.h"
33
34 void
35 destroy_all_children (Widget widget)
36 {
37 Widget* children;
38 unsigned int number;
39 int i;
40
41 children = XtCompositeChildren (widget, &number);
42 if (children)
43 {
44 /* Unmanage all children and destroy them. They will only be
45 * really destroyed when we get out of DispatchEvent. */
46 for (i = 0; i < number; i++)
47 {
48 Widget child = children [i];
49 if (!child->core.being_destroyed)
50 {
51 XtUnmanageChild (child);
52 XtDestroyWidget (child);
53 }
54 }
55 XtFree ((char *) children);
56 }
57 }
58
59 /* Redisplay the contents of the widget, without first clearing it. */
60 void
61 XtNoClearRefreshWidget (Widget widget)
62 {
63 XEvent event;
64 XExposeEvent* ev = &event.xexpose;
65
66 ev->type = Expose;
67 ev->serial = 0;
68 ev->send_event = 0;
69 ev->display = XtDisplay (widget);
70 ev->window = XtWindow (widget);
71 ev->x = 0;
72 ev->y = 0;
73 ev->width = widget->core.width;
74 ev->height = widget->core.height;
75 ev->count = 0;
76
77 (*widget->core.widget_class->core_class.expose)
78 (widget, &event, (Region)NULL);
79 }
80
81
82 /*
83 * Apply a function to all the subwidgets of a given widget recursively.
84 */
85 void
86 XtApplyToWidgets (Widget w, XtApplyToWidgetsProc proc, XtPointer arg)
87 {
88 if (XtIsComposite (w))
89 {
90 CompositeWidget cw = (CompositeWidget) w;
91 /* We have to copy the children list before mapping over it, because
92 the procedure might add/delete elements, which would lose badly. */
93 int nkids = cw->composite.num_children;
94 Widget *kids = (Widget *) malloc (sizeof (Widget) * nkids);
95 int i;
96 memcpy (kids, cw->composite.children, sizeof (Widget) * nkids);
97 for (i = 0; i < nkids; i++)
98 /* This prevent us from using gadgets, why is it here? */
99 /* if (XtIsWidget (kids [i])) */
100 {
101 /* do the kiddies first in case we're destroying */
102 XtApplyToWidgets (kids [i], proc, arg);
103 proc (kids [i], arg);
104 }
105 free (kids);
106 }
107 }
108
109
110 /*
111 * Apply a function to all the subwidgets of a given widget recursively.
112 * Stop as soon as the function returns non NULL and returns this as a value.
113 */
114 void *
115 XtApplyUntilToWidgets (Widget w, XtApplyUntilToWidgetsProc proc, XtPointer arg)
116 {
117 void* result;
118 if (XtIsComposite (w))
119 {
120 CompositeWidget cw = (CompositeWidget)w;
121 int i;
122 for (i = 0; i < cw->composite.num_children; i++)
123 if (XtIsWidget (cw->composite.children [i])){
124 result = proc (cw->composite.children [i], arg);
125 if (result)
126 return result;
127 result = XtApplyUntilToWidgets (cw->composite.children [i], proc,
128 arg);
129 if (result)
130 return result;
131 }
132 }
133 return NULL;
134 }
135
136
137 /*
138 * Returns a copy of the list of all children of a composite widget
139 */
140 Widget *
141 XtCompositeChildren (Widget widget, unsigned int* number)
142 {
143 CompositeWidget cw = (CompositeWidget)widget;
144 Widget* result;
145 int n;
146 int i;
147
148 if (!XtIsComposite (widget))
149 {
150 *number = 0;
151 return NULL;
152 }
153 n = cw->composite.num_children;
154 result = (Widget*)XtMalloc (n * sizeof (Widget));
155 *number = n;
156 for (i = 0; i < n; i++)
157 result [i] = cw->composite.children [i];
158 return result;
159 }
160
161 Boolean
162 XtWidgetBeingDestroyedP (Widget widget)
163 {
164 return widget->core.being_destroyed;
165 }
166
167 void
168 XtSafelyDestroyWidget (Widget widget)
169 {
170 #if 0
171
172 /* this requires IntrinsicI.h (actually, InitialI.h) */
173
174 XtAppContext app = XtWidgetToApplicationContext(widget);
175
176 if (app->dispatch_level == 0)
177 {
178 app->dispatch_level = 1;
179 XtDestroyWidget (widget);
180 /* generates an event so that the event loop will be called */
181 XChangeProperty (XtDisplay (widget), XtWindow (widget),
182 XA_STRING, XA_STRING, 32, PropModeAppend, NULL, 0);
183 app->dispatch_level = 0;
184 }
185 else
186 XtDestroyWidget (widget);
187
188 #else
189 abort ();
190 #endif
191 }