# HG changeset patch
# User Paul Reilly <pmr@pajato.com>
# Date 779740794 0
# Node ID 20cb460b85d3851e374f3f4e6a07e2ce3c1bacb3
# Parent  04ad11fb0a0ffeef0632109e5965bfe901600d4d
entered into RCS

diff -r 04ad11fb0a0f -r 20cb460b85d3 lwlib/lwlib-Xlw.c
--- 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.  */
diff -r 04ad11fb0a0f -r 20cb460b85d3 lwlib/xlwmenu.h
--- 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 */