root/trunk/oldXMenu/SetPane.c

Revision 4196, 1.0 kB (checked in by miyoshi, 2 years ago)

Sync up with Emacs CVS HEAD.

  • Property svn:eol-style set to native
Line 
1 /* Copyright    Massachusetts Institute of Technology    1985   */
2
3 #include "copyright.h"
4
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) */
Note: See TracBrowser for help on using the browser.