]> git.eshelyaron.com Git - emacs.git/commitdiff
*** empty log message ***
authorFred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
Tue, 15 Feb 1994 13:59:18 +0000 (13:59 +0000)
committerFred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
Tue, 15 Feb 1994 13:59:18 +0000 (13:59 +0000)
lwlib/lwlib-Xlw.c

index d34a012ae3cb3569e96073d4395e2b4aa2d84c57..b7268bc12d09a8c66d489bd526269c33911a9e4f 100644 (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;