Mercurial > emacs
annotate oldXMenu/InsSel.c @ 61338:b44917251d3a
(cfdate_to_lisp): Add `const' for variable `epoch_gdate'.
(Fmac_get_preference): Doc fix.
author | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> |
---|---|
date | Wed, 06 Apr 2005 02:23:37 +0000 |
parents | e8824c4f5f7e |
children | 3861ff8f4bf1 8e5779acd195 |
rev | line source |
---|---|
25858 | 1 #include "copyright.h" |
2 | |
3 /* Copyright Massachusetts Institute of Technology 1985 */ | |
4 | |
5 /* | |
6 * XMenu: MIT Project Athena, X Window system menu package | |
7 * | |
8 * XMenuInsertSelection - Inserts a selection into an XMenu object | |
9 * | |
10 * Author: Tony Della Fera, DEC | |
11 * 20-Nov-85 | |
12 * | |
13 */ | |
14 | |
15 #include <config.h> | |
16 #include "XMenuInt.h" | |
17 | |
18 int | |
19 XMenuInsertSelection(menu, p_num, s_num, data, label, active) | |
20 register XMenu *menu; /* Menu object to be modified. */ | |
21 register int p_num; /* Pane number to be modified. */ | |
22 register int s_num; /* Selection number of new selection. */ | |
23 char *data; /* Data value. */ | |
24 char *label; /* Selection label. */ | |
25 int active; /* Make selection active? */ | |
26 { | |
27 register XMPane *p_ptr; /* XMPane pointer. */ | |
28 register XMSelect *s_ptr; /* XMSelect pointer. */ | |
29 | |
30 XMSelect *select; /* Newly created selection. */ | |
31 | |
32 int label_length; /* Label length in characters. */ | |
33 int label_width; /* Label width in pixels. */ | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
25858
diff
changeset
|
34 |
25858 | 35 /* |
36 * Check for NULL pointers! | |
37 */ | |
38 if (label == NULL) { | |
39 _XMErrorCode = XME_ARG_BOUNDS; | |
40 return(XM_FAILURE); | |
41 } | |
42 | |
43 /* | |
44 * Find the right pane. | |
45 */ | |
46 p_ptr = _XMGetPanePtr(menu, p_num); | |
47 if (p_ptr == NULL) return(XM_FAILURE); | |
48 | |
49 /* | |
50 * Find the selection number one less than the one specified since that | |
51 * is the selection after which the insertion will occur. | |
52 */ | |
53 s_ptr = _XMGetSelectionPtr(p_ptr, (s_num - 1)); | |
54 if (s_ptr == NULL) return(XM_FAILURE); | |
55 | |
56 /* | |
57 * Calloc the XMSelect structure. | |
58 */ | |
59 select = (XMSelect *)calloc(1, sizeof(XMSelect)); | |
60 if (select == NULL) { | |
61 _XMErrorCode = XME_CALLOC; | |
62 return(XM_FAILURE); | |
63 } | |
64 | |
65 /* | |
66 * Determine label size. | |
67 */ | |
68 label_length = strlen(label); | |
69 label_width = XTextWidth(menu->s_fnt_info, label, label_length); | |
70 | |
71 | |
72 /* | |
73 * Fill the XMSelect structure. | |
74 */ | |
75 if (!strcmp (label, "--") || !strcmp (label, "---")) | |
76 { | |
77 select->type = SEPARATOR; | |
78 select->active = 0; | |
79 } | |
80 else | |
81 { | |
82 select->type = SELECTION; | |
83 select->active = active; | |
84 } | |
85 | |
86 select->active = active; | |
87 select->serial = -1; | |
88 select->label = label; | |
89 select->label_width = label_width; | |
90 select->label_length = label_length; | |
91 select->data = data; | |
92 select->parent_p = p_ptr; | |
93 | |
94 /* | |
95 * Insert the selection after the selection with the selection | |
96 * number one less than the desired number for the new selection. | |
97 */ | |
98 emacs_insque(select, s_ptr); | |
99 | |
100 /* | |
101 * Update the selection count. | |
102 */ | |
103 p_ptr->s_count++; | |
104 | |
105 /* | |
106 * Schedule a recompute. | |
107 */ | |
108 menu->recompute = 1; | |
109 | |
110 /* | |
111 * Return the selection number just inserted. | |
112 */ | |
113 _XMErrorCode = XME_NO_ERROR; | |
114 return(s_num); | |
115 } | |
52401 | 116 |
117 /* arch-tag: 8398626f-81cb-4e13-8ebc-aac1b9237663 | |
118 (do not change this comment) */ |