diff options
| -rw-r--r-- | lwlib/lwlib-Xlw.c | 7 | ||||
| -rw-r--r-- | lwlib/xlwmenu.h | 8 |
2 files changed, 13 insertions, 2 deletions
diff --git a/lwlib/lwlib-Xlw.c b/lwlib/lwlib-Xlw.c index 61b2d5b0562..3c0bd308699 100644 --- a/lwlib/lwlib-Xlw.c +++ b/lwlib/lwlib-Xlw.c @@ -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. */ diff --git a/lwlib/xlwmenu.h b/lwlib/xlwmenu.h index e8d3c93778f..949fbf76589 100644 --- a/lwlib/xlwmenu.h +++ b/lwlib/xlwmenu.h @@ -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 */ |