1 /* Defines some widget utility functions.
2 Copyright (C) 1992 Lucid, Inc.
4 This file is part of the Lucid Widget Library.
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)
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.
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. */
29 #include <X11/Xatom.h>
30 #include <X11/IntrinsicP.h>
31 #include <X11/ObjectP.h>
32 #include "lwlib-utils.h"
34 /* Redisplay the contents of the widget, without first clearing it. */
36 XtNoClearRefreshWidget (Widget widget)
39 XExposeEvent* ev = &event.xexpose;
44 ev->display = XtDisplay (widget);
45 ev->window = XtWindow (widget);
48 ev->width = widget->core.width;
49 ev->height = widget->core.height;
52 (*widget->core.widget_class->core_class.expose)
53 (widget, &event, (Region)NULL);
58 * Apply a function to all the subwidgets of a given widget recursively.
61 XtApplyToWidgets (Widget w, XtApplyToWidgetsProc proc, XtPointer arg)
63 if (XtIsComposite (w))
65 CompositeWidget cw = (CompositeWidget) w;
66 /* We have to copy the children list before mapping over it, because
67 the procedure might add/delete elements, which would lose badly. */
68 int nkids = cw->composite.num_children;
69 Widget *kids = (Widget *) malloc (sizeof (Widget) * nkids);
71 memcpy (kids, cw->composite.children, sizeof (Widget) * nkids);
72 for (i = 0; i < nkids; i++)
73 /* This prevent us from using gadgets, why is it here? */
74 /* if (XtIsWidget (kids [i])) */
76 /* do the kiddies first in case we're destroying */
77 XtApplyToWidgets (kids [i], proc, arg);
86 * Apply a function to all the subwidgets of a given widget recursively.
87 * Stop as soon as the function returns non NULL and returns this as a value.
90 XtApplyUntilToWidgets (Widget w, XtApplyUntilToWidgetsProc proc, XtPointer arg)
93 if (XtIsComposite (w))
95 CompositeWidget cw = (CompositeWidget)w;
97 for (i = 0; i < cw->composite.num_children; i++)
98 if (XtIsWidget (cw->composite.children [i])){
99 result = proc (cw->composite.children [i], arg);
102 result = XtApplyUntilToWidgets (cw->composite.children [i], proc,
113 * Returns a copy of the list of all children of a composite widget
116 XtCompositeChildren (Widget widget, unsigned int* number)
118 CompositeWidget cw = (CompositeWidget)widget;
123 if (!XtIsComposite (widget))
128 n = cw->composite.num_children;
129 result = (Widget*)XtMalloc (n * sizeof (Widget));
131 for (i = 0; i < n; i++)
132 result [i] = cw->composite.children [i];
137 XtWidgetBeingDestroyedP (Widget widget)
139 return widget->core.being_destroyed;
143 XtSafelyDestroyWidget (Widget widget)
147 /* this requires IntrinsicI.h (actually, InitialI.h) */
149 XtAppContext app = XtWidgetToApplicationContext(widget);
151 if (app->dispatch_level == 0)
153 app->dispatch_level = 1;
154 XtDestroyWidget (widget);
155 /* generates an event so that the event loop will be called */
156 XChangeProperty (XtDisplay (widget), XtWindow (widget),
157 XA_STRING, XA_STRING, 32, PropModeAppend, NULL, 0);
158 app->dispatch_level = 0;
161 XtDestroyWidget (widget);