code.delx.au - gnu-emacs/blob - oldXMenu/SetSel.c

   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  *      XMenuSetSelection - Set a menu selection to be active or inactive.
   9  *
  10  *      Author:         Tony Della Fera, DEC
  11  *                      August, 1985
  12  *
  13  */
  14
  15 #include "XMenuInt.h"
  16
  17 int
  18 XMenuSetSelection(menu, p_num, s_num, active)
  19     register XMenu *menu;       /* Menu object to be modified. */
  20     register int p_num;         /* Pane number to be modified. */
  21     register int s_num;         /* Selection number to modified. */
  22     int active;                 /* Make selection active? */
  23 {
  24     register XMPane *p_ptr;     /* XMPane pointer. */
  25     register XMSelect *s_ptr;   /* XMSelect pointer. */
  26
  27     /*
  28      * Find the right pane.
  29      */
  30     p_ptr = _XMGetPanePtr(menu, p_num);
  31     if (p_ptr == NULL) return(XM_FAILURE);
  32
  33     /*
  34      * Find the right selection.
  35      */
  36     s_ptr = _XMGetSelectionPtr(p_ptr, s_num);
  37     if (s_ptr == NULL) return(XM_FAILURE);
  38
  39     /*
  40      * Set its active switch.
  41      */
  42     s_ptr->active = active;
  43
  44     /*
  45      * Return the selection number just set.
  46      */
  47     _XMErrorCode = XME_NO_ERROR;
  48     return(s_num);
  49 }
  50
  51 /* arch-tag: 79198ae0-c5a4-4d31-adb0-5747f833f56a
  52    (do not change this comment) */