From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 18 Sep 1994 19:54:50 +0000 (+0000)
Subject: entered into RCS
X-Git-Tag: emacs-19.34~6970
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=688f8f7f51c4d99d54527191a6d2fabcf458179b;p=emacs.git

entered into RCS
---

diff --git a/lwlib/lwlib-Xm.c b/lwlib/lwlib-Xm.c
index f56d22bf288..16d25ea20a7 100644
--- a/lwlib/lwlib-Xm.c
+++ b/lwlib/lwlib-Xm.c
@@ -730,9 +730,12 @@ make_dialog (char* name, Widget parent, Boolean pop_up_p,
       result = form;
     }
 
+  n_children = left_buttons + right_buttons + 1;
   ac = 0;
-  XtSetArg(al[ac], XmNpacking, XmPACK_COLUMN); ac++;
-  XtSetArg(al[ac], XmNorientation, XmVERTICAL); ac++;
+  XtSetArg(al[ac], XmNpacking, n_children == 3? 
+	   XmPACK_COLUMN: XmPACK_TIGHT); ac++;
+  XtSetArg(al[ac], XmNorientation, n_children == 3? 
+	   XmVERTICAL: XmHORIZONTAL); ac++;
   XtSetArg(al[ac], XmNnumColumns, left_buttons + right_buttons + 1); ac++;
   XtSetArg(al[ac], XmNmarginWidth, 0); ac++;
   XtSetArg(al[ac], XmNmarginHeight, 0); ac++;
@@ -760,6 +763,7 @@ make_dialog (char* name, Widget parent, Boolean pop_up_p,
 	  XtSetArg(al[ac], XmNhighlightThickness, 1); ac++;
 	  XtSetArg(al[ac], XmNshowAsDefault, TRUE); ac++;
 	}
+      XtSetArg(al[ac], XmNmarginWidth, 10); ac++;
       XtSetArg(al[ac], XmNnavigationType, XmTAB_GROUP); ac++;
       children [n_children] = XmCreatePushButton (row, button_name, al, ac);
 
@@ -785,6 +789,7 @@ make_dialog (char* name, Widget parent, Boolean pop_up_p,
       char button_name [16];
       sprintf (button_name, "button%d", left_buttons + i + 1);
       ac = 0;
+      XtSetArg(al[ac], XmNmarginWidth, 10); ac++;
       XtSetArg(al[ac], XmNnavigationType, XmTAB_GROUP); ac++;
       children [n_children] = XmCreatePushButton (row, button_name, al, ac);
       if (! button) button = children [n_children];