Mercurial > emacs
annotate oldXMenu/InsSel.c @ 57051:59091995520c
(msdos.o): Depend on buffer.h, commands.h, and
blockinput.h.
(dosfns.o): Depend on blockinput.h, window.h, dispextern.h,
charset.h, and coding.h
(w16select.o): Depend on buffer.h, charset.h, coding.h, and
composite.h.
(term.o): Depend on window.h and keymap.h.
(abbrev.o): Depend on syntax.h.
(callint.o): Depend on keymap.h.
(casefiddle.o): Depend on charset.h and keymap.h.
(category.o): Depend on keymap.h.
(coding.o): Depend on dispextern.h.
(cmds.o): Depend on keyboard.h and keymap.h.
(dispnew.o): Depend on indent.h and intervals.h.
(doc.o): Depend on keymap.h.
(editfns.o): Depend on frame.h.
(emacs.o): Depend on dispextern.h.
(fileio.o): Don't depend on ccl.h.
(filelock.o): Depend on charset.h and coding.h.
(frame.o): Depend on w32term.h and macterm.h.
(insdel.o): Depend on region-cache.h.
(keyboard.o): Depend on keymap.h, w32term.h, and macterm.h.
(minibuf.o): Depend on $(INTERVALS_SRC) and keymap.h.
(search.o): Depend on $(INTERVALS_SRC).
(syntax.o): Depend on keymap.h, regex.h, and $(INTERVALS_SRC).
(window.o): Depend on keymap.h, blockinput.h, $(INTERVALS_SRC),
xterm.h, w32term.h, and macterm.h.
(xdisp.o): Depend on keyboard.h, $(INTERVALS_SRC), xterm.h,
w32term.h, and macterm.h.
(xfaces.o): Depend on keyboard.h, $(INTERVALS_SRC),
region-cache.h, xterm.h, w32term.h, and macterm.h.
(bytecode.o): Depend on dispextern.h, frame.h, and xterm.h.
(data.o): Depend on frame.h.
(fns.o): Depend on keymap.h, xterm.h, and blockinput.h.
(print.o): Depend on termchar.h and $(INTERVALS_SRC).
(lread.o): Depend on $(INTERVALS_SRC), termhooks.h, and coding.h.
(intervals.o): Depend on keymap.h.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Fri, 10 Sep 2004 18:16:57 +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) */ |