# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 939252307 0
# Node ID 6a0fe1278e4d14e46257ea56d063693763ef10c8
# Parent  1bdd14c5ed6444f18d86a6688e2312660139aaaa
(make_menu_in_widget, update_one_menu_entry): Use
widgets instead of gadgets to be able to set colors.

diff -r 1bdd14c5ed64 -r 6a0fe1278e4d lwlib/lwlib-Xm.c
--- a/lwlib/lwlib-Xm.c	Wed Oct 06 23:13:21 1999 +0000
+++ b/lwlib/lwlib-Xm.c	Wed Oct 06 23:25:07 1999 +0000
@@ -516,10 +516,10 @@
 			(cur->button_type == BUTTON_TYPE_TOGGLE
 			 ? XmN_OF_MANY : XmONE_OF_MANY));
 	      ++ac;
-	      button = XmCreateToggleButtonGadget (widget, cur->name, al, ac);
+	      button = XmCreateToggleButton (widget, cur->name, al, ac);
 	    }
 	  else
-	    button = XmCreatePushButtonGadget (widget, cur->name, al, ac);
+	    button = XmCreatePushButton (widget, cur->name, al, ac);
 
 	  xm_update_label (instance, button, cur);
 	  
@@ -541,7 +541,7 @@
           /* Non-zero values don't work reliably in conjunction with
              Emacs' event loop */
           XtSetArg (al [ac], XmNmappingDelay, 0); ac++;
-	  button = XmCreateCascadeButtonGadget (widget, cur->name, al, ac);
+	  button = XmCreateCascadeButton (widget, cur->name, al, ac);
 
 	  xm_update_label (instance, button, cur);
 
@@ -655,7 +655,7 @@
 	      /* Tell Motif to put it in the right place */
 	      XtSetArg (al [ac], XmNpositionIndex , i); ac++;
 #endif
-	      button = XmCreateCascadeButtonGadget (parent, val->name, al, ac);
+	      button = XmCreateCascadeButton (parent, val->name, al, ac);
 	      xm_update_label (instance, button, val);
 	      
 	      XtAddCallback (button, XmNcascadingCallback, xm_pull_down_callback,