oldXMenu/SetPane.c

   1 #include "copyright.h"
   2
   3 /* $Header: /cvsroot/emacs/emacs/oldXMenu/SetPane.c,v 1.1 1999/10/03 19:35:14 fx Exp $ */
   4 /* Copyright    Massachusetts Institute of Technology    1985   */
   5
   6 /*
   7  * XMenu:       MIT Project Athena, X Window system menu package
   8  *
   9  *      XMenuSetPane - Set a menu pane 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 XMenuSetPane(menu, p_num, active)
  20     register XMenu *menu;       /* Menu object to be modified. */
  21     register int p_num;         /* Pane number to be modified. */
  22     register int active;        /* Make selection active? */
  23 {
  24     register XMPane *p_ptr;     /* XMPane pointer. */
  25
  26     /*
  27      * Find the right pane.
  28      */
  29     p_ptr = _XMGetPanePtr(menu, p_num);
  30     if (p_ptr == NULL) return(XM_FAILURE);
  31
  32     /*
  33      * Set its active switch.
  34      */
  35     p_ptr->active = active;
  36     if (p_ptr->active == False) p_ptr->activated = False;
  37
  38     /*
  39      * Return the pane number just set.
  40      */
  41     _XMErrorCode = XME_NO_ERROR;
  42     return(p_num);
  43 }
  44
  45 /* arch-tag: 90bc8d90-031d-41a2-a2c6-04bf94efbc90
  46    (do not change this comment) */