procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

*** empty log message ***

Browse source
This commit is contained in:
Richard M. Stallman 1994-02-19 20:53:26 +00:00
parent ffab2bd62c
commit 364e6904f3
2 changed files with 30 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lwlib/Makefile.in
View file

@ -54,10 +54,10 @@ liblw.a: $(OBJS)
#That's ok. So don't stop the build.
lwlib.o: lwlib.c
$(CC) -c $(ALL_CFLAGS) $(TOOLKIT_DEFINES) $(srcdir)/lwlib.c
$(CC) -c $(TOOLKIT_DEFINES) $(ALL_CFLAGS) $(srcdir)/lwlib.c
xrdb-cpp.o: xrdb-cpp.c
$(CC) -c $(ALL_CFLAGS) "-DCPP_PROGRAM=$(CPP)" $(srcdir)/xrdb-cpp.c
$(CC) -c "-DCPP_PROGRAM=$(CPP)" $(ALL_CFLAGS) $(srcdir)/xrdb-cpp.c
lwlib-utils.o: lwlib-utils.h
lwlib.o: lwlib.h lwlib-int.h

47
lwlib/lwlib-Xlw.c
View file

@ -78,19 +78,24 @@ xlw_create_menubar (instance)
{
Widget widget;
widget_value *tem = malloc_widget_value ();
/* Don't use malloc_widget_value, because the freeing will be done by free.
(Also it wastes time calling memset). */
widget_value *tem = (widget_value *) malloc (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 =
XtVaCreateWidget (instance->info->name, xlwMenuWidgetClass,
instance->parent,
XtNmenu, tem,
0);
widget
= XtVaCreateWidget (instance->info->name, xlwMenuWidgetClass,
instance->parent,
XtNmenu, tem,
0);
#if 0 /* XtVaCreateWidget frees this, at least in the X11R4
version that is running on mole.gnu.ai.mit.edu. */
free_widget_value (tem);
#endif
XtAddCallback (widget, XtNopen, pre_hook, (XtPointer)instance);
XtAddCallback (widget, XtNselect, pick_hook, (XtPointer)instance);
@ -101,26 +106,30 @@ static Widget
xlw_create_popup_menu (instance)
widget_instance* instance;
{
Widget popup_shell =
XtCreatePopupShell (instance->info->name, overrideShellWidgetClass,
instance->parent, NULL, 0);
Widget popup_shell
= XtCreatePopupShell (instance->info->name, overrideShellWidgetClass,
instance->parent, NULL, 0);
Widget widget;
widget_value *tem = malloc_widget_value ();
/* Don't use malloc_widget_value, because the freeing will be done by free.
(Also it wastes time calling memset). */
widget_value *tem = (widget_value *) malloc (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, tem,
XtNhorizontal, False,
0);
widget
= XtVaCreateManagedWidget ("popup", xlwMenuWidgetClass,
popup_shell,
XtNmenu, tem,
XtNhorizontal, False,
0);
#if 0
free_widget_value (tem);
#endif
XtAddCallback (widget, XtNselect, pick_hook, (XtPointer)instance);
@ -140,12 +149,12 @@ lw_lucid_widget_p (widget)
Widget widget;
{
WidgetClass the_class = XtClass (widget);
if (the_class == xlwMenuWidgetClass)
return True;
if (the_class == overrideShellWidgetClass)
return
XtClass (((CompositeWidget)widget)->composite.children [0])
== xlwMenuWidgetClass;
return (XtClass (((CompositeWidget)widget)->composite.children [0])
== xlwMenuWidgetClass);
return False;
}