From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 14 Apr 1995 03:51:10 +0000 (+0000)
Subject: (update_one_menu_entry, make_menu_in_widget):
X-Git-Tag: emacs-19.34~4423
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5b43bbf747606e25a84accf8a8470f906a9e7359;p=emacs.git

(update_one_menu_entry, make_menu_in_widget):
Specify more useful names in XmCreatePulldownMenu calls.
---

diff --git a/lwlib/lwlib-Xm.c b/lwlib/lwlib-Xm.c
index 0fe6caa0019..7924188494f 100644
--- a/lwlib/lwlib-Xm.c
+++ b/lwlib/lwlib-Xm.c
@@ -401,7 +401,7 @@ make_menu_in_widget (instance, widget, val)
 	}
       else
 	{
-	  menu = XmCreatePulldownMenu (widget, "pulldown", NULL, 0);
+	  menu = XmCreatePulldownMenu (widget, cur->name, NULL, 0);
 	  make_menu_in_widget (instance, menu, cur->contents);
 	  XtSetArg (al [ac], XmNsubMenuId, menu); ac++;
 	  button = XmCreateCascadeButton (widget, cur->name, al, ac);
@@ -467,7 +467,7 @@ update_one_menu_entry (instance, widget, val, deep_p)
     {
       if (contents)
 	{
-	  menu = XmCreatePulldownMenu (XtParent (widget), "pulldown", NULL, 0);
+	  menu = XmCreatePulldownMenu (XtParent (widget), XtName (widget), NULL, 0);
 	  make_menu_in_widget (instance, menu, contents);
 	  ac = 0;
 	  XtSetArg (al [ac], XmNsubMenuId, menu); ac++;