Index: lwlib/lwlib-Xm.c
===================================================================
RCS file: /cvsroot/emacs/emacs/lwlib/lwlib-Xm.c,v
retrieving revision 1.43
diff -c -r1.43 lwlib-Xm.c
*** lwlib/lwlib-Xm.c	22 Mar 2001 19:11:33 -0000	1.43
--- lwlib/lwlib-Xm.c	26 Jan 2003 13:28:55 -0000
***************
*** 265,271 ****
  	  XtSetArg (al[0], XmNsubMenuId, &submenu); 
    	  XtGetValues (children[i], al, 1);
  	  if (submenu)
! 	    XtDestroyWidget (submenu);
  	  XtDestroyWidget (children[i]);
  	}
  
--- 265,274 ----
  	  XtSetArg (al[0], XmNsubMenuId, &submenu); 
    	  XtGetValues (children[i], al, 1);
  	  if (submenu)
!             {
!               destroy_all_children (submenu, 0);
!               XtDestroyWidget (submenu);
!             }
  	  XtDestroyWidget (children[i]);
  	}
  
***************
*** 731,736 ****
--- 734,742 ----
  			     (XtPointer)instance);
  	      XtManageChild (button);
  	    }
+ 
+           if (widget_list)
+             XtFree ((char*) widget_list);
  	}
      }
    else if (!contents)