root/branches/2.1/oldXMenu/InsSel.c

Revision 3207, 2.8 kB (checked in by miyoshi, 5 years ago)

Sync up with Emacs-21.2.

  • Property svn:eol-style set to native
Line 
1 #include "copyright.h"
2
3 /* $Header: /cvsroot/emacs/emacs/oldXMenu/InsSel.c,v 1.1 1999/10/03 19:35:05 fx Exp $ */
4 /* Copyright    Massachusetts Institute of Technology    1985   */
5
6 /*
7  * XMenu:       MIT Project Athena, X Window system menu package
8  *
9  *      XMenuInsertSelection - Inserts a selection into an XMenu object
10  *
11  *      Author:         Tony Della Fera, DEC
12  *                      20-Nov-85
13  *
14  */
15
16 #include <config.h>
17 #include "XMenuInt.h"
18
19 int
20 XMenuInsertSelection(menu, p_num, s_num, data, label, active)
21     register XMenu *menu;       /* Menu object to be modified. */
22     register int p_num;         /* Pane number to be modified. */
23     register int s_num;         /* Selection number of new selection. */
24     char *data;                 /* Data value. */
25     char *label;                /* Selection label. */
26     int active;                 /* Make selection active? */
27 {
28     register XMPane *p_ptr;     /* XMPane pointer. */
29     register XMSelect *s_ptr;   /* XMSelect pointer. */
30
31     XMSelect *select;           /* Newly created selection. */
32
33     int label_length;           /* Label length in characters. */
34     int label_width;            /* Label width in pixels. */
35    
36     /*
37      * Check for NULL pointers!
38      */
39     if (label == NULL) {
40         _XMErrorCode = XME_ARG_BOUNDS;
41         return(XM_FAILURE);
42     }
43
44     /*
45      * Find the right pane.
46      */
47     p_ptr = _XMGetPanePtr(menu, p_num);
48     if (p_ptr == NULL) return(XM_FAILURE);
49
50     /*
51      * Find the selection number one less than the one specified since that
52      * is the selection after which the insertion will occur.
53      */
54     s_ptr = _XMGetSelectionPtr(p_ptr, (s_num - 1));
55     if (s_ptr == NULL) return(XM_FAILURE);
56
57     /*
58      * Calloc the XMSelect structure.
59      */
60     select = (XMSelect *)calloc(1, sizeof(XMSelect));
61     if (select == NULL) {
62         _XMErrorCode = XME_CALLOC;
63         return(XM_FAILURE);
64     }
65
66     /*
67      * Determine label size.
68      */
69     label_length = strlen(label);
70     label_width = XTextWidth(menu->s_fnt_info, label, label_length);
71
72
73     /*
74      * Fill the XMSelect structure.
75      */
76     if (!strcmp (label, "--") || !strcmp (label, "---"))
77       {
78         select->type = SEPARATOR;
79         select->active = 0;
80       }
81     else
82       {
83         select->type = SELECTION;
84         select->active = active;
85       }
86
87     select->active = active;
88     select->serial = -1;
89     select->label = label;
90     select->label_width = label_width;
91     select->label_length = label_length;
92     select->data = data;
93     select->parent_p = p_ptr;
94
95     /*
96      * Insert the selection after the selection with the selection
97      * number one less than the desired number for the new selection.
98      */
99     emacs_insque(select, s_ptr);
100
101     /*
102      * Update the selection count.
103      */
104     p_ptr->s_count++;
105
106     /*
107      * Schedule a recompute.
108      */
109     menu->recompute = 1;
110
111     /*
112      * Return the selection number just inserted.
113      */
114     _XMErrorCode = XME_NO_ERROR;
115     return(s_num);
116 }
Note: See TracBrowser for help on using the browser.