X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lwlib%2Flwlib-utils.c;h=39da1c7d761c3ee0c32383b3bcf0ec924f8b2c9c;hb=51cad40f88331f276c7a04b0c917af622276d32f;hp=0df97a6dc15a7c1f1f08108f4059bf071531620a;hpb=6883ee56ec887c2c48abe5b06b5e66aa74031910;p=chise%2Fxemacs-chise.git.1

diff --git a/lwlib/lwlib-utils.c b/lwlib/lwlib-utils.c
index 0df97a6..39da1c7 100644
--- a/lwlib/lwlib-utils.c
+++ b/lwlib/lwlib-utils.c
@@ -31,6 +31,31 @@ Boston, MA 02111-1307, USA.  */
 #include <X11/ObjectP.h>
 #include "lwlib-utils.h"
 
+void
+destroy_all_children (Widget widget)
+{
+  Widget* children;
+  unsigned int number;
+  int i;
+
+  children = XtCompositeChildren (widget, &number);
+  if (children)
+    {
+      /* Unmanage all children and destroy them.  They will only be
+       * really destroyed when we get out of DispatchEvent. */
+      for (i = 0; i < (int) number; i++)
+	{
+	  Widget child = children [i];
+	  if (!child->core.being_destroyed)
+	    {
+	      XtUnmanageChild (child);
+	      XtDestroyWidget (child);
+	    }
+	}
+      XtFree ((char *) children);
+    }
+}
+
 /* Redisplay the contents of the widget, without first clearing it. */
 void
 XtNoClearRefreshWidget (Widget widget)
@@ -93,7 +118,7 @@ XtApplyUntilToWidgets (Widget w, XtApplyUntilToWidgetsProc proc, XtPointer arg)
   if (XtIsComposite (w))
     {
       CompositeWidget cw = (CompositeWidget)w;
-      int i;
+      unsigned int i;
       for (i = 0; i < cw->composite.num_children; i++)
 	if (XtIsWidget (cw->composite.children [i])){
 	  result = proc (cw->composite.children [i], arg);