(byte-compile-warning-types): Add interactive-only.
[emacs.git] / oldXMenu / SetPane.c
blob39a87ac5ce3497b557c5fc036b7d8920e300c197
1 #include "copyright.h"
3 /* Copyright Massachusetts Institute of Technology 1985 */
5 /*
6 * XMenu: MIT Project Athena, X Window system menu package
8 * XMenuSetPane - Set a menu pane to be active or inactive.
10 * Author: Tony Della Fera, DEC
11 * August, 1985
15 #include "XMenuInt.h"
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? */
23 register XMPane *p_ptr; /* XMPane pointer. */
26 * Find the right pane.
28 p_ptr = _XMGetPanePtr(menu, p_num);
29 if (p_ptr == NULL) return(XM_FAILURE);
32 * Set its active switch.
34 p_ptr->active = active;
35 if (p_ptr->active == False) p_ptr->activated = False;
38 * Return the pane number just set.
40 _XMErrorCode = XME_NO_ERROR;
41 return(p_num);
44 /* arch-tag: 90bc8d90-031d-41a2-a2c6-04bf94efbc90
45 (do not change this comment) */