*** empty log message ***
[emacs.git] / oldXMenu / FindSel.c
blob97853fae05dce9375c156506dd9444d57ba058d3
1 #include "copyright.h"
3 /* $Header: /u/src/emacs/19.0/oldXMenu/RCS/FindSel.c,v 1.1 1992/04/11 22:10:19 jimb Exp $ */
4 /* Copyright Massachusetts Institute of Technology 1985 */
6 /*
7 * XMenu: MIT Project Athena, X Window system menu package
9 * XMenuFindSelection - Find the first selection in a pane who's
10 * label matches a particular string.
12 * Author: Tony Della Fera, DEC
13 * January 22, 1986
17 #include "XMenuInt.h"
19 int
20 XMenuFindSelection(menu, p_num, label)
21 register XMenu *menu;
22 int p_num;
23 register char *label;
25 register XMPane *p_ptr;
26 register XMSelect *s_ptr;
27 register int i = 0;
30 * Check for NULL pointers!
32 if (label == NULL) {
33 _XMErrorCode = XME_ARG_BOUNDS;
34 return(XM_FAILURE);
38 * Find the right pane.
40 p_ptr = _XMGetPanePtr(menu, p_num);
41 if (p_ptr == NULL) return(XM_FAILURE);
44 * Find the right selection.
46 for (
47 s_ptr = p_ptr->s_list->next;
48 s_ptr != p_ptr->s_list;
49 s_ptr = s_ptr->next
51 if (s_ptr->label_length == 0) {
52 if (*label == '\0') {
53 _XMErrorCode = XME_NO_ERROR;
54 return (i);
57 else {
58 if (strncmp (label, s_ptr->label, s_ptr->label_length) == 0) {
59 _XMErrorCode = XME_NO_ERROR;
60 return (i);
63 i++;
67 * If we get here then we have not found
68 * a match.
70 _XMErrorCode = XME_S_NOT_FOUND;
71 return (XM_FAILURE);