Fix hang with large yanks
[emacs.git] / oldXMenu / SetPane.c
blobf29a81c5ca05e1fb6419e29789a3403d93de9d22
1 /* Copyright Massachusetts Institute of Technology 1985 */
3 #include "copyright.h"
6 /*
7 * XMenu: MIT Project Athena, X Window system menu package
9 * XMenuSetPane - Set a menu pane to be active or inactive.
11 * Author: Tony Della Fera, DEC
12 * August, 1985
16 #include "XMenuInt.h"
18 int
19 XMenuSetPane(register XMenu *menu, register int p_num, register int active)
20 /* Menu object to be modified. */
21 /* Pane number to be modified. */
22 /* Make selection active? */
24 register XMPane *p_ptr; /* XMPane pointer. */
27 * Find the right pane.
29 p_ptr = _XMGetPanePtr(menu, p_num);
30 if (p_ptr == NULL) return(XM_FAILURE);
33 * Set its active switch.
35 p_ptr->active = active;
36 if (p_ptr->active == False) p_ptr->activated = False;
39 * Return the pane number just set.
41 _XMErrorCode = XME_NO_ERROR;
42 return(p_num);