* calendar/todos.el: Extend and improve handling of item editing,
[emacs.git] / oldXMenu / InsSel.c
blob5db285f64084ebbe167bbff8b0b1aba7b4f0ab16
1 /* Copyright Massachusetts Institute of Technology 1985 */
3 #include "copyright.h"
6 /*
7 * XMenu: MIT Project Athena, X Window system menu package
9 * XMenuInsertSelection - Inserts a selection into an XMenu object
11 * Author: Tony Della Fera, DEC
12 * 20-Nov-85
16 #include <config.h>
17 #include "XMenuInt.h"
19 int
20 XMenuInsertSelection(register XMenu *menu, register int p_num, register int s_num, char *data, char *label, int active)
21 /* Menu object to be modified. */
22 /* Pane number to be modified. */
23 /* Selection number of new selection. */
24 /* Data value. */
25 /* Selection label. */
26 /* Make selection active? */
28 register XMPane *p_ptr; /* XMPane pointer. */
29 register XMSelect *s_ptr; /* XMSelect pointer. */
31 XMSelect *sel; /* Newly created selection. */
33 int label_length; /* Label length in characters. */
34 int label_width; /* Label width in pixels. */
37 * Check for NULL pointers!
39 if (label == NULL) {
40 _XMErrorCode = XME_ARG_BOUNDS;
41 return(XM_FAILURE);
45 * Find the right pane.
47 p_ptr = _XMGetPanePtr(menu, p_num);
48 if (p_ptr == NULL) return(XM_FAILURE);
51 * Find the selection number one less than the one specified since that
52 * is the selection after which the insertion will occur.
54 s_ptr = _XMGetSelectionPtr(p_ptr, (s_num - 1));
55 if (s_ptr == NULL) return(XM_FAILURE);
58 * Calloc the XMSelect structure.
60 sel = (XMSelect *)calloc(1, sizeof(XMSelect));
61 if (sel == NULL) {
62 _XMErrorCode = XME_CALLOC;
63 return(XM_FAILURE);
67 * Determine label size.
69 label_length = strlen(label);
70 label_width = XTextWidth(menu->s_fnt_info, label, label_length);
74 * Fill the XMSelect structure.
76 if (!strcmp (label, "--") || !strcmp (label, "---"))
78 sel->type = SEPARATOR;
79 sel->active = 0;
81 else
83 sel->type = SELECTION;
84 sel->active = active;
87 sel->active = active;
88 sel->serial = -1;
89 sel->label = label;
90 sel->label_width = label_width;
91 sel->label_length = label_length;
92 sel->data = data;
93 sel->parent_p = p_ptr;
96 * Insert the selection after the selection with the selection
97 * number one less than the desired number for the new selection.
99 emacs_insque(sel, s_ptr);
102 * Update the selection count.
104 p_ptr->s_count++;
107 * Schedule a recompute.
109 menu->recompute = 1;
112 * Return the selection number just inserted.
114 _XMErrorCode = XME_NO_ERROR;
115 return(s_num);