mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

*** empty log message ***

Browse Source
This commit is contained in:
Fred Pierresteguy 1994-02-15 13:59:18 +00:00
parent 9acc68b10b
commit 19240c203a
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lwlib/lwlib-Xlw.c
View File

@ -88,6 +88,9 @@ xlw_create_menubar (instance)
instance->parent,
XtNmenu, instance->info->val,
0);
XtFree (tem);
XtAddCallback (widget, XtNopen, pre_hook, (XtPointer)instance);
XtAddCallback (widget, XtNselect, pick_hook, (XtPointer)instance);
return widget;
@ -101,13 +104,23 @@ xlw_create_popup_menu (instance)
XtCreatePopupShell (instance->info->name, overrideShellWidgetClass,
instance->parent, NULL, 0);
Widget widget =
Widget widget;
widget_value *tem = (widget_value *) XtMalloc (sizeof (widget_value));
/* _XtCreate is freeing the object we passed,
so make a copy that we free later. */
bcopy (instance->info->val, tem, sizeof (widget_value));
widget =
XtVaCreateManagedWidget ("popup", xlwMenuWidgetClass,
popup_shell,
XtNmenu, instance->info->val,
XtNhorizontal, False,
0);
XtFree (tem);
XtAddCallback (widget, XtNselect, pick_hook, (XtPointer)instance);
return popup_shell;