entered into RCS

diff --git a/lwlib/lwlib-Xlw.c b/lwlib/lwlib-Xlw.c
index 61b2d5b..3c0bd30 100644 (file)
--- 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 e8d3c93..949fbf7 100644 (file)
--- 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 */