Merge from gnulib
[emacs.git] / oldXMenu / AddSel.c
blob07eb1fed15b9702b63f4df0525da236113c4d870
1 /* Copyright Massachusetts Institute of Technology 1985 */
3 #include "copyright.h"
6 /*
7 * XMenu: MIT Project Athena, X Window system menu package
9 * XMenuAddSelection - Adds a selection to an XMenu object.
11 * Author: Tony Della Fera, DEC
12 * August, 1985
16 #include "XMenuInt.h"
18 int
19 XMenuAddSelection(Display *display, register XMenu *menu, register int p_num, char *data, char *label, int active, char const *help)
21 /* Menu object to be modified. */
22 /* Pane number to be modified. */
23 /* Data value. */
24 /* Selection label. */
25 /* Make selection active? */
26 /* Help string */
28 register XMPane *pane; /* Pane containing the new selection. */
29 register XMSelect *sel; /* Newly created selection. */
32 int label_length; /* Label length in characters. */
33 int label_width; /* Label width in pixels. */
36 * Check for NULL pointers!
38 if (label == NULL) {
39 _XMErrorCode = XME_ARG_BOUNDS;
40 return(XM_FAILURE);
43 * Find the right pane.
45 pane = _XMGetPanePtr(menu, p_num);
46 if (pane == NULL) return(XM_FAILURE);
49 * Calloc the XMSelect structure.
51 sel = (XMSelect *)calloc(1, sizeof(XMSelect));
52 if (sel == NULL) {
53 _XMErrorCode = XME_CALLOC;
54 return(XM_FAILURE);
57 * Determine label size.
59 label_length = strlen(label);
60 label_width = XTextWidth(menu->s_fnt_info, label, label_length);
63 * Fill the XMSelect structure.
65 if (!strcmp (label, "--") || !strcmp (label, "---"))
67 sel->type = SEPARATOR;
68 sel->active = 0;
70 else
72 sel->type = SELECTION;
73 sel->active = active;
76 sel->serial = -1;
77 sel->label = label;
78 sel->label_width = label_width;
79 sel->label_length = label_length;
80 sel->data = data;
81 sel->parent_p = pane;
82 sel->help_string = help;
85 * Insert the selection at the end of the selection list.
87 emacs_insque(sel, pane->s_list->prev);
90 * Update the selection count.
92 pane->s_count++;
95 * Schedule a recompute.
97 menu->recompute = 1;
100 * Return the selection number just added.
102 _XMErrorCode = XME_NO_ERROR;
103 return((pane->s_count - 1));