Mercurial > emacs
changeset 8786:20cb460b85d3
entered into RCS
| author | Paul Reilly <pmr@pajato.com> |
|---|---|
| date | Fri, 16 Sep 1994 18:39:54 +0000 |
| parents | 04ad11fb0a0f |
| children | 87b54930a42a |
| files | lwlib/lwlib-Xlw.c lwlib/xlwmenu.h |
| diffstat | 2 files changed, 13 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lwlib/lwlib-Xlw.c Fri Sep 16 17:37:05 1994 +0000 +++ b/lwlib/lwlib-Xlw.c Fri Sep 16 18:39:54 1994 +0000 @@ -77,10 +77,15 @@ 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. */
--- a/lwlib/xlwmenu.h Fri Sep 16 17:37:05 1994 +0000 +++ b/lwlib/xlwmenu.h Fri Sep 16 18:39:54 1994 +0000 @@ -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 @@ extern WidgetClass xlwMenuWidgetClass; void -pop_up_menu (XlwMenuWidget mw, XButtonPressedEvent* event); +pop_up_menu (); #endif /* _XlwMenu_h */