annotate oldXMenu/Post.c @ 26370:5f52cc1417ab

Use block statements in cases and declare v1 and v2 locally there. Rearrange case statements so that thos most frequently executed come first. Avoid goto's in frequently executed cases.
author Gerd Moellmann <gerd@gnu.org>
date Sun, 07 Nov 1999 13:06:59 +0000
parents bbce331da1be
children 4a9ea0d1735b
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
25858
Dave Love <fx@gnu.org>
parents:
diff changeset
1 #include "copyright.h"
Dave Love <fx@gnu.org>
parents:
diff changeset
2
Dave Love <fx@gnu.org>
parents:
diff changeset
3 /* $Header: /u/src/emacs/19.0/oldXMenu/RCS/Post.c,v 1.1 1992/04/11 22:10:20 jimb Exp $ */
Dave Love <fx@gnu.org>
parents:
diff changeset
4 /* Copyright Massachusetts Institute of Technology 1985 */
Dave Love <fx@gnu.org>
parents:
diff changeset
5
Dave Love <fx@gnu.org>
parents:
diff changeset
6 /*
Dave Love <fx@gnu.org>
parents:
diff changeset
7 * XMenu: MIT Project Athena, X Window system menu package
Dave Love <fx@gnu.org>
parents:
diff changeset
8 *
Dave Love <fx@gnu.org>
parents:
diff changeset
9 * XMenuPost - Maps a given menu to the display and activates
Dave Love <fx@gnu.org>
parents:
diff changeset
10 * the menu for user selection. The user is allowed to
Dave Love <fx@gnu.org>
parents:
diff changeset
11 * specify the mouse button event mask that will be used
Dave Love <fx@gnu.org>
parents:
diff changeset
12 * to identify a selection request. When a selection
Dave Love <fx@gnu.org>
parents:
diff changeset
13 * request is received (i.e., when the specified mouse
Dave Love <fx@gnu.org>
parents:
diff changeset
14 * event occurs) the data returned will be either the
Dave Love <fx@gnu.org>
parents:
diff changeset
15 * data associated with the particular selection active
Dave Love <fx@gnu.org>
parents:
diff changeset
16 * at the time of the selection request or NULL if no
Dave Love <fx@gnu.org>
parents:
diff changeset
17 * selection was active. A menu selection is shown to
Dave Love <fx@gnu.org>
parents:
diff changeset
18 * be active by placing a highlight box around the
Dave Love <fx@gnu.org>
parents:
diff changeset
19 * selection as the mouse cursor enters its active
Dave Love <fx@gnu.org>
parents:
diff changeset
20 * region. Inactive selections will not be highlighted.
Dave Love <fx@gnu.org>
parents:
diff changeset
21 * As the mouse cursor moved from one menu pane
Dave Love <fx@gnu.org>
parents:
diff changeset
22 * to another menu pane the pane being entered is raised
Dave Love <fx@gnu.org>
parents:
diff changeset
23 * and activated and the pane being left is deactivated.
Dave Love <fx@gnu.org>
parents:
diff changeset
24 * If an error occurs NULL will be returned with the
Dave Love <fx@gnu.org>
parents:
diff changeset
25 * p_num set to POST_ERROR, s_num set to
Dave Love <fx@gnu.org>
parents:
diff changeset
26 * NO_SELECTION and _XMErrorCode set to an
Dave Love <fx@gnu.org>
parents:
diff changeset
27 * appropriate value.
Dave Love <fx@gnu.org>
parents:
diff changeset
28 * Every time the routine returns successfully the
Dave Love <fx@gnu.org>
parents:
diff changeset
29 * p_num and s_num indices will be set to indicate
Dave Love <fx@gnu.org>
parents:
diff changeset
30 * the currently active pane and/or selection. If the
Dave Love <fx@gnu.org>
parents:
diff changeset
31 * mouse was not in a selection window at the time
Dave Love <fx@gnu.org>
parents:
diff changeset
32 * s_num will be set to NO_SELECTION.
Dave Love <fx@gnu.org>
parents:
diff changeset
33 *
Dave Love <fx@gnu.org>
parents:
diff changeset
34 * Author: Tony Della Fera, DEC
Dave Love <fx@gnu.org>
parents:
diff changeset
35 * August, 1984
Dave Love <fx@gnu.org>
parents:
diff changeset
36 *
Dave Love <fx@gnu.org>
parents:
diff changeset
37 */
Dave Love <fx@gnu.org>
parents:
diff changeset
38
Dave Love <fx@gnu.org>
parents:
diff changeset
39 #include "XMenuInt.h"
Dave Love <fx@gnu.org>
parents:
diff changeset
40
Dave Love <fx@gnu.org>
parents:
diff changeset
41 char *
Dave Love <fx@gnu.org>
parents:
diff changeset
42 XMenuPost(display, menu, p_num, s_num, x_pos, y_pos, event_mask)
Dave Love <fx@gnu.org>
parents:
diff changeset
43 register Display *display; /* Previously opened display. */
Dave Love <fx@gnu.org>
parents:
diff changeset
44 register XMenu *menu; /* Menu to post. */
Dave Love <fx@gnu.org>
parents:
diff changeset
45 register int *p_num; /* Pane number selected. */
Dave Love <fx@gnu.org>
parents:
diff changeset
46 register int *s_num; /* Selection number selected. */
Dave Love <fx@gnu.org>
parents:
diff changeset
47 register int x_pos; /* X coordinate of menu position. */
Dave Love <fx@gnu.org>
parents:
diff changeset
48 register int y_pos; /* Y coordinate of menu position. */
Dave Love <fx@gnu.org>
parents:
diff changeset
49 int event_mask; /* Mouse button event mask. */
Dave Love <fx@gnu.org>
parents:
diff changeset
50 {
Dave Love <fx@gnu.org>
parents:
diff changeset
51 register int stat; /* Routine call return status. */
Dave Love <fx@gnu.org>
parents:
diff changeset
52 char *data; /* Return data. */
Dave Love <fx@gnu.org>
parents:
diff changeset
53
Dave Love <fx@gnu.org>
parents:
diff changeset
54 /*
Dave Love <fx@gnu.org>
parents:
diff changeset
55 * Set up initial pane and selection assumptions.
Dave Love <fx@gnu.org>
parents:
diff changeset
56 */
Dave Love <fx@gnu.org>
parents:
diff changeset
57
Dave Love <fx@gnu.org>
parents:
diff changeset
58 /*
Dave Love <fx@gnu.org>
parents:
diff changeset
59 * Make the procedure call.
Dave Love <fx@gnu.org>
parents:
diff changeset
60 */
Dave Love <fx@gnu.org>
parents:
diff changeset
61 stat = XMenuActivate(
Dave Love <fx@gnu.org>
parents:
diff changeset
62 display,
Dave Love <fx@gnu.org>
parents:
diff changeset
63 menu,
Dave Love <fx@gnu.org>
parents:
diff changeset
64 p_num, s_num,
Dave Love <fx@gnu.org>
parents:
diff changeset
65 x_pos, y_pos,
Dave Love <fx@gnu.org>
parents:
diff changeset
66 event_mask,
Dave Love <fx@gnu.org>
parents:
diff changeset
67 &data);
Dave Love <fx@gnu.org>
parents:
diff changeset
68
Dave Love <fx@gnu.org>
parents:
diff changeset
69 /*
Dave Love <fx@gnu.org>
parents:
diff changeset
70 * Check the return value and return accordingly.
Dave Love <fx@gnu.org>
parents:
diff changeset
71 */
Dave Love <fx@gnu.org>
parents:
diff changeset
72 switch (stat) {
Dave Love <fx@gnu.org>
parents:
diff changeset
73 case XM_FAILURE:
Dave Love <fx@gnu.org>
parents:
diff changeset
74 *p_num = POST_ERROR;
Dave Love <fx@gnu.org>
parents:
diff changeset
75 *s_num = NO_SELECTION;
Dave Love <fx@gnu.org>
parents:
diff changeset
76 return(NULL);
Dave Love <fx@gnu.org>
parents:
diff changeset
77 case XM_NO_SELECT:
Dave Love <fx@gnu.org>
parents:
diff changeset
78 case XM_IA_SELECT:
Dave Love <fx@gnu.org>
parents:
diff changeset
79 *s_num = NO_SELECTION;
Dave Love <fx@gnu.org>
parents:
diff changeset
80 return(NULL);
Dave Love <fx@gnu.org>
parents:
diff changeset
81 case XM_SUCCESS:
Dave Love <fx@gnu.org>
parents:
diff changeset
82 default:
Dave Love <fx@gnu.org>
parents:
diff changeset
83 return(data);
Dave Love <fx@gnu.org>
parents:
diff changeset
84 }
Dave Love <fx@gnu.org>
parents:
diff changeset
85 }