Commit 5acc1a62 authored by Paul Reilly's avatar Paul Reilly
Browse files

entered into RCS

parent 2af91681
......@@ -77,10 +77,15 @@ xlw_create_menubar (instance)
widget_instance* instance;
{
Widget widget;
Arg al[1];
Arg al[5];
int ac = 0;
XtSetArg (al[ac], XtNmenu, instance->info->val); ac++;
#ifdef emacs
XtSetArg (al[ac], XtNshowGrip, 0); ac++;
XtSetArg (al[ac], XtNresizeToPreferred, 1); ac++;
XtSetArg (al[ac], XtNallowResize, 1); ac++;
#endif
/* This used to use XtVaCreateWidget, but an old Xt version
has a bug in XtVaCreateWidget that frees instance->info->name. */
......
......@@ -25,6 +25,12 @@
#define XtCHorizontal "Horizontal"
#define XtNcursor "cursor"
#define XtNCursor "Cursor"
#define XtNshowGrip "showGrip"
#define XtCShowGrip "ShowGrip"
#define XtNresizeToPreferred "resizeToPreferred"
#define XtCResizeToPreferred "ResizeToPreferred"
#define XtNallowResize "allowResize"
#define XtCAllowResize "AllowResize"
/* Motif-compatible resource names */
#define XmNshadowThickness "shadowThickness"
......@@ -45,6 +51,6 @@ typedef struct _XlwMenuClassRec *XlwMenuWidgetClass;
extern WidgetClass xlwMenuWidgetClass;
void
pop_up_menu (XlwMenuWidget mw, XButtonPressedEvent* event);
pop_up_menu ();
#endif /* _XlwMenu_h */
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment