Mercurial > emacs
annotate oldXMenu/FindPane.c @ 55513:6bdc57e42324
(compile): Add universal prefix arg.
(compilation-error-regexp-alist-alist): Add edg patterns.
author | Daniel Pfeiffer <occitan@esperanto.org> |
---|---|
date | Mon, 10 May 2004 21:00:00 +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 * | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
25858
diff
changeset
|
8 * XMenuFindPane - Find the first menu pane who's label matches a |
25858 | 9 * particular string. |
10 * | |
11 * Author: Tony Della Fera, DEC | |
12 * January 22, 1986 | |
13 * | |
14 */ | |
15 | |
16 #include "XMenuInt.h" | |
17 | |
18 int | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
25858
diff
changeset
|
19 XMenuFindPane(menu, label) |
25858 | 20 register XMenu *menu; |
21 register char *label; | |
22 { | |
23 register XMPane *p_ptr; | |
24 register int i = 0; | |
25 | |
26 /* | |
27 * Check for NULL pointers! | |
28 */ | |
29 if (label == NULL) { | |
30 _XMErrorCode = XME_ARG_BOUNDS; | |
31 return(XM_FAILURE); | |
32 } | |
33 | |
34 /* | |
35 * Find the pane who's label matches the given label. | |
36 */ | |
37 for ( | |
38 p_ptr = menu->p_list->next; | |
39 p_ptr != menu->p_list; | |
40 p_ptr = p_ptr->next | |
41 ){ | |
42 if (p_ptr->label_length == 0) { | |
43 if (*label == '\0') { | |
44 _XMErrorCode = XME_NO_ERROR; | |
45 return (i); | |
46 } | |
47 } | |
48 else { | |
49 if (strncmp (label, p_ptr->label, p_ptr->label_length) == 0) { | |
50 _XMErrorCode = XME_NO_ERROR; | |
51 return (i); | |
52 } | |
53 } | |
54 i++; | |
55 } | |
56 | |
57 /* | |
58 * If we get here then we have not found | |
59 * a match. | |
60 */ | |
61 _XMErrorCode = XME_P_NOT_FOUND; | |
62 return (XM_FAILURE); | |
63 } | |
52401 | 64 |
65 /* arch-tag: b6c94285-0d1d-4569-a071-b34b63c67a54 | |
66 (do not change this comment) */ |