Mercurial > emacs

comparison lwlib/lwlib-Xm.c @ 8884:b62d47fc7fc2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
entered into RCS
author Richard M. Stallman <rms@gnu.org>
date Sun, 18 Sep 1994 19:54:50 +0000
parents 0166e4ab659a
children b4563001d783
comparison
equal deleted inserted replaced
8883:24993c71127a 8884:b62d47fc7fc2
728 XtSetArg(al[ac], XmNnavigationType, XmTAB_GROUP); ac++; 728 XtSetArg(al[ac], XmNnavigationType, XmTAB_GROUP); ac++;
729 form = XmCreateForm (parent, shell_title, al, ac); 729 form = XmCreateForm (parent, shell_title, al, ac);
730 result = form; 730 result = form;
731 } 731 }
732 732
733 n_children = left_buttons + right_buttons + 1;
733 ac = 0; 734 ac = 0;
734 XtSetArg(al[ac], XmNpacking, XmPACK_COLUMN); ac++; 735 XtSetArg(al[ac], XmNpacking, n_children == 3?
735 XtSetArg(al[ac], XmNorientation, XmVERTICAL); ac++; 736 XmPACK_COLUMN: XmPACK_TIGHT); ac++;
737 XtSetArg(al[ac], XmNorientation, n_children == 3?
738 XmVERTICAL: XmHORIZONTAL); ac++;
736 XtSetArg(al[ac], XmNnumColumns, left_buttons + right_buttons + 1); ac++; 739 XtSetArg(al[ac], XmNnumColumns, left_buttons + right_buttons + 1); ac++;
737 XtSetArg(al[ac], XmNmarginWidth, 0); ac++; 740 XtSetArg(al[ac], XmNmarginWidth, 0); ac++;
738 XtSetArg(al[ac], XmNmarginHeight, 0); ac++; 741 XtSetArg(al[ac], XmNmarginHeight, 0); ac++;
739 XtSetArg(al[ac], XmNspacing, 13); ac++; 742 XtSetArg(al[ac], XmNspacing, 13); ac++;
740 XtSetArg(al[ac], XmNadjustLast, False); ac++; 743 XtSetArg(al[ac], XmNadjustLast, False); ac++;
758 if (i == 0) 761 if (i == 0)
759 { 762 {
760 XtSetArg(al[ac], XmNhighlightThickness, 1); ac++; 763 XtSetArg(al[ac], XmNhighlightThickness, 1); ac++;
761 XtSetArg(al[ac], XmNshowAsDefault, TRUE); ac++; 764 XtSetArg(al[ac], XmNshowAsDefault, TRUE); ac++;
762 } 765 }
766 XtSetArg(al[ac], XmNmarginWidth, 10); ac++;
763 XtSetArg(al[ac], XmNnavigationType, XmTAB_GROUP); ac++; 767 XtSetArg(al[ac], XmNnavigationType, XmTAB_GROUP); ac++;
764 children [n_children] = XmCreatePushButton (row, button_name, al, ac); 768 children [n_children] = XmCreatePushButton (row, button_name, al, ac);
765 769
766 if (i == 0) 770 if (i == 0)
767 { 771 {
783 for (i = 0; i < right_buttons; i++) 787 for (i = 0; i < right_buttons; i++)
784 { 788 {
785 char button_name [16]; 789 char button_name [16];
786 sprintf (button_name, "button%d", left_buttons + i + 1); 790 sprintf (button_name, "button%d", left_buttons + i + 1);
787 ac = 0; 791 ac = 0;
792 XtSetArg(al[ac], XmNmarginWidth, 10); ac++;
788 XtSetArg(al[ac], XmNnavigationType, XmTAB_GROUP); ac++; 793 XtSetArg(al[ac], XmNnavigationType, XmTAB_GROUP); ac++;
789 children [n_children] = XmCreatePushButton (row, button_name, al, ac); 794 children [n_children] = XmCreatePushButton (row, button_name, al, ac);
790 if (! button) button = children [n_children]; 795 if (! button) button = children [n_children];
791 n_children++; 796 n_children++;
792 } 797 }