comparison lwlib/lwlib-Xm.c @ 14931:0706926a11cb

(destroy_all_children): When freeing a cascade button, free its submenu too. (make_menu_in_widget): Use a cascade button gadget, not a widget. Include Xm/CascadeBG.h.

14930:382c7659273e

#include "lwlib-Xm.h"
#include "lwlib-utils.h"

#include <Xm/BulletinB.h>
#include <Xm/CascadeB.h>
#include <Xm/DrawingA.h>
#include <Xm/FileSB.h>
#include <Xm/Label.h>
#include <Xm/List.h>
#include <Xm/MainW.h>

			  number - first_child_to_destroy);

      /* Unmanage all children and destroy them.  They will only be 
	 really destroyed when we get out of DispatchEvent.  */
      for (i = first_child_to_destroy; i < number; i++)
	XtDestroyWidget (children[i]);

      XtFree ((char *) children);
    }
}

      else
	{
	  menu = XmCreatePulldownMenu (widget, cur->name, NULL, 0);
	  make_menu_in_widget (instance, menu, cur->contents, 0);
	  XtSetArg (al [ac], XmNsubMenuId, menu); ac++;
	  button = XmCreateCascadeButton (widget, cur->name, al, ac);

	  xm_update_label (instance, button, cur);

	  XtAddCallback (button, XmNcascadingCallback, xm_pull_down_callback,
			 (XtPointer)instance);

14931:0706926a11cb

#include "lwlib-Xm.h"
#include "lwlib-utils.h"

#include <Xm/BulletinB.h>
#include <Xm/CascadeB.h>
#include <Xm/CascadeBG.h>
#include <Xm/DrawingA.h>
#include <Xm/FileSB.h>
#include <Xm/Label.h>
#include <Xm/List.h>
#include <Xm/MainW.h>

			  number - first_child_to_destroy);

      /* Unmanage all children and destroy them.  They will only be 
	 really destroyed when we get out of DispatchEvent.  */
      for (i = first_child_to_destroy; i < number; i++)
	{
	  Arg al[2];
	  Widget submenu = 0;
	  /* Cascade buttons have submenus,and these submenus
	     need to be freed.  But they are not included in
	     XtCompositeChildren.  So get it out of the cascade button
	     and free it.  If this child is not a cascade button,
	     then submenu should remain unchanged.  */
	  XtSetArg (al[0], XmNsubMenuId, &submenu); 
  	  XtGetValues (children[i], al, 1);
	  if (submenu)
	    XtDestroyWidget (submenu);
	  XtDestroyWidget (children[i]);
	}

      XtFree ((char *) children);
    }
}

      else
	{
	  menu = XmCreatePulldownMenu (widget, cur->name, NULL, 0);
	  make_menu_in_widget (instance, menu, cur->contents, 0);
	  XtSetArg (al [ac], XmNsubMenuId, menu); ac++;
	  button = XmCreateCascadeButtonGadget (widget, cur->name, al, ac);

	  xm_update_label (instance, button, cur);

	  XtAddCallback (button, XmNcascadingCallback, xm_pull_down_callback,
			 (XtPointer)instance);