Mercurial > emacs
comparison lwlib/lwlib-Xm.c @ 11435:efaaecd960ae
(update_one_menu_entry, make_menu_in_widget):
Specify more useful names in XmCreatePulldownMenu calls.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 14 Apr 1995 03:51:10 +0000 |
| parents | f82f4e93e523 |
| children | 10a973a88e87 |
comparison
equal
deleted
inserted
replaced
| 11434:5f5dda37c82c | 11435:efaaecd960ae |
|---|---|
| 399 XtAddCallback (button, XmNactivateCallback, xm_generic_callback, | 399 XtAddCallback (button, XmNactivateCallback, xm_generic_callback, |
| 400 (XtPointer)instance); | 400 (XtPointer)instance); |
| 401 } | 401 } |
| 402 else | 402 else |
| 403 { | 403 { |
| 404 menu = XmCreatePulldownMenu (widget, "pulldown", NULL, 0); | 404 menu = XmCreatePulldownMenu (widget, cur->name, NULL, 0); |
| 405 make_menu_in_widget (instance, menu, cur->contents); | 405 make_menu_in_widget (instance, menu, cur->contents); |
| 406 XtSetArg (al [ac], XmNsubMenuId, menu); ac++; | 406 XtSetArg (al [ac], XmNsubMenuId, menu); ac++; |
| 407 button = XmCreateCascadeButton (widget, cur->name, al, ac); | 407 button = XmCreateCascadeButton (widget, cur->name, al, ac); |
| 408 | 408 |
| 409 xm_update_label (instance, button, cur); | 409 xm_update_label (instance, button, cur); |
| 465 | 465 |
| 466 if (!menu) | 466 if (!menu) |
| 467 { | 467 { |
| 468 if (contents) | 468 if (contents) |
| 469 { | 469 { |
| 470 menu = XmCreatePulldownMenu (XtParent (widget), "pulldown", NULL, 0); | 470 menu = XmCreatePulldownMenu (XtParent (widget), XtName (widget), NULL, 0); |
| 471 make_menu_in_widget (instance, menu, contents); | 471 make_menu_in_widget (instance, menu, contents); |
| 472 ac = 0; | 472 ac = 0; |
| 473 XtSetArg (al [ac], XmNsubMenuId, menu); ac++; | 473 XtSetArg (al [ac], XmNsubMenuId, menu); ac++; |
| 474 XtSetValues (widget, al, ac); | 474 XtSetValues (widget, al, ac); |
| 475 } | 475 } |