Mercurial > emacs
diff oldXMenu/FindSel.c @ 25858:bbce331da1be
#
author | Dave Love <fx@gnu.org> |
---|---|
date | Sun, 03 Oct 1999 19:36:13 +0000 |
parents | |
children | 695cf19ef79e d7ddb3e565de |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/oldXMenu/FindSel.c Sun Oct 03 19:36:13 1999 +0000 @@ -0,0 +1,72 @@ +#include "copyright.h" + +/* $Header: /u/src/emacs/19.0/oldXMenu/RCS/FindSel.c,v 1.1 1992/04/11 22:10:19 jimb Exp $ */ +/* Copyright Massachusetts Institute of Technology 1985 */ + +/* + * XMenu: MIT Project Athena, X Window system menu package + * + * XMenuFindSelection - Find the first selection in a pane who's + * label matches a particular string. + * + * Author: Tony Della Fera, DEC + * January 22, 1986 + * + */ + +#include "XMenuInt.h" + +int +XMenuFindSelection(menu, p_num, label) + register XMenu *menu; + int p_num; + register char *label; +{ + register XMPane *p_ptr; + register XMSelect *s_ptr; + register int i = 0; + + /* + * Check for NULL pointers! + */ + if (label == NULL) { + _XMErrorCode = XME_ARG_BOUNDS; + return(XM_FAILURE); + } + + /* + * Find the right pane. + */ + p_ptr = _XMGetPanePtr(menu, p_num); + if (p_ptr == NULL) return(XM_FAILURE); + + /* + * Find the right selection. + */ + for ( + s_ptr = p_ptr->s_list->next; + s_ptr != p_ptr->s_list; + s_ptr = s_ptr->next + ){ + if (s_ptr->label_length == 0) { + if (*label == '\0') { + _XMErrorCode = XME_NO_ERROR; + return (i); + } + } + else { + if (strncmp (label, s_ptr->label, s_ptr->label_length) == 0) { + _XMErrorCode = XME_NO_ERROR; + return (i); + } + } + i++; + } + + /* + * If we get here then we have not found + * a match. + */ + _XMErrorCode = XME_S_NOT_FOUND; + return (XM_FAILURE); +}