oldXMenu/SetSel.c

   1 #include "copyright.h"
   2
   3 /* $Header: /u/src/emacs/19.0/oldXMenu/RCS/SetSel.c,v 1.1 1992/04/11 22:10:21 jimb Exp $ */
   4 /* Copyright    Massachusetts Institute of Technology    1985   */
   5
   6 /*
   7  * XMenu:       MIT Project Athena, X Window system menu package
   8  *
   9  *      XMenuSetSelection - Set a menu selection to be active or inactive.
  10  *
  11  *      Author:         Tony Della Fera, DEC
  12  *                      August, 1985
  13  *
  14  */
  15
  16 #include "XMenuInt.h"
  17
  18 int
  19 XMenuSetSelection(menu, p_num, s_num, 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 to modified. */
  23     int active;                 /* Make selection active? */
  24 {
  25     register XMPane *p_ptr;     /* XMPane pointer. */
  26     register XMSelect *s_ptr;   /* XMSelect pointer. */
  27
  28     /*
  29      * Find the right pane.
  30      */
  31     p_ptr = _XMGetPanePtr(menu, p_num);
  32     if (p_ptr == NULL) return(XM_FAILURE);
  33
  34     /*
  35      * Find the right selection.
  36      */
  37     s_ptr = _XMGetSelectionPtr(p_ptr, s_num);
  38     if (s_ptr == NULL) return(XM_FAILURE);
  39
  40     /*
  41      * Set its active switch.
  42      */
  43     s_ptr->active = active;
  44
  45     /*
  46      * Return the selection number just set.
  47      */
  48     _XMErrorCode = XME_NO_ERROR;
  49     return(s_num);
  50 }