code.delx.au - gnu-emacs/blob - oldXMenu/SetPane.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  *      XMenuSetPane - Set a menu pane 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 XMenuSetPane(menu, p_num, active)
  19     register XMenu *menu;       /* Menu object to be modified. */
  20     register int p_num;         /* Pane number to be modified. */
  21     register int active;        /* Make selection active? */
  22 {
  23     register XMPane *p_ptr;     /* XMPane pointer. */
  24
  25     /*
  26      * Find the right pane.
  27      */
  28     p_ptr = _XMGetPanePtr(menu, p_num);
  29     if (p_ptr == NULL) return(XM_FAILURE);
  30
  31     /*
  32      * Set its active switch.
  33      */
  34     p_ptr->active = active;
  35     if (p_ptr->active == False) p_ptr->activated = False;
  36
  37     /*
  38      * Return the pane number just set.
  39      */
  40     _XMErrorCode = XME_NO_ERROR;
  41     return(p_num);
  42 }
  43
  44 /* arch-tag: 90bc8d90-031d-41a2-a2c6-04bf94efbc90
  45    (do not change this comment) */