# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 779918090 0
# Node ID b62d47fc7fc2ebc65e24f53bbd9f86403d9c1342
# Parent  24993c71127a19e75f4bbc0553087aa64c5bb260
entered into RCS

diff -r 24993c71127a -r b62d47fc7fc2 lwlib/lwlib-Xm.c
--- a/lwlib/lwlib-Xm.c	Sun Sep 18 19:17:01 1994 +0000
+++ b/lwlib/lwlib-Xm.c	Sun Sep 18 19:54:50 1994 +0000
@@ -730,9 +730,12 @@
       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 @@
 	  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 @@
       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];