annotate oldXMenu/Locate.c @ 85414:f79d3fec6de7

(encoded-kbd-setup-display): Be careful not to remove keymaps that just happen to inherit from one of ours. When setting up our keymap, make sure it won't be accidentally modified by someone else.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Thu, 18 Oct 2007 18:53:28 +0000
parents fec5e03aaf59
children edf631bdbb7a ec58e5c426ef 5cc91198ffb2
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
76174
fec5e03aaf59 Remove FSF copyright since file does not differ significantly from X11
Glenn Morris <rgm@gnu.org>
parents: 75348
diff changeset
1 /* Copyright Massachusetts Institute of Technology 1985 */
fec5e03aaf59 Remove FSF copyright since file does not differ significantly from X11
Glenn Morris <rgm@gnu.org>
parents: 75348
diff changeset
2
25858
Dave Love <fx@gnu.org>
parents:
diff changeset
3 #include "copyright.h"
Dave Love <fx@gnu.org>
parents:
diff changeset
4
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 * XMenuLocate - Return data necessary to position and locate
Dave Love <fx@gnu.org>
parents:
diff changeset
10 * a menu on the screen.
Dave Love <fx@gnu.org>
parents:
diff changeset
11 *
Dave Love <fx@gnu.org>
parents:
diff changeset
12 * Author: Tony Della Fera, DEC
Dave Love <fx@gnu.org>
parents:
diff changeset
13 * January 11, 1985
Dave Love <fx@gnu.org>
parents:
diff changeset
14 *
Dave Love <fx@gnu.org>
parents:
diff changeset
15 */
Dave Love <fx@gnu.org>
parents:
diff changeset
16
Dave Love <fx@gnu.org>
parents:
diff changeset
17 #include "XMenuInt.h"
Dave Love <fx@gnu.org>
parents:
diff changeset
18
Dave Love <fx@gnu.org>
parents:
diff changeset
19 int
Dave Love <fx@gnu.org>
parents:
diff changeset
20 XMenuLocate(display, menu, p_num, s_num, x_pos, y_pos, ul_x, ul_y, width, height)
Dave Love <fx@gnu.org>
parents:
diff changeset
21 register Display *display; /* Previously opened display. */
Dave Love <fx@gnu.org>
parents:
diff changeset
22 register XMenu *menu; /* Menu object being located. */
Dave Love <fx@gnu.org>
parents:
diff changeset
23 int p_num; /* Active pane number. */
Dave Love <fx@gnu.org>
parents:
diff changeset
24 int s_num; /* Active selection number. */
Dave Love <fx@gnu.org>
parents:
diff changeset
25 int x_pos; /* X coordinate of mouse active position. */
Dave Love <fx@gnu.org>
parents:
diff changeset
26 int y_pos; /* Y coordinate of mouse active position. */
Dave Love <fx@gnu.org>
parents:
diff changeset
27 int *ul_x; /* Returned upper left menu X coordinate. */
Dave Love <fx@gnu.org>
parents:
diff changeset
28 int *ul_y; /* Returned upper left menu Y coordinate. */
Dave Love <fx@gnu.org>
parents:
diff changeset
29 int *width; /* Returned menu width. */
Dave Love <fx@gnu.org>
parents:
diff changeset
30 int *height; /* Returned menu height. */
Dave Love <fx@gnu.org>
parents:
diff changeset
31 {
Dave Love <fx@gnu.org>
parents:
diff changeset
32 register XMPane *p_ptr; /* XMPane pointer. */
Dave Love <fx@gnu.org>
parents:
diff changeset
33 register XMSelect *s_ptr; /* XMSelect pointer. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 25858
diff changeset
34
25858
Dave Love <fx@gnu.org>
parents:
diff changeset
35 /*
Dave Love <fx@gnu.org>
parents:
diff changeset
36 * Are the position arguments positive?
Dave Love <fx@gnu.org>
parents:
diff changeset
37 */
Dave Love <fx@gnu.org>
parents:
diff changeset
38 if ((x_pos <= 0) || (y_pos <= 0)) {
Dave Love <fx@gnu.org>
parents:
diff changeset
39 _XMErrorCode = XME_ARG_BOUNDS;
Dave Love <fx@gnu.org>
parents:
diff changeset
40 return(XM_FAILURE);
Dave Love <fx@gnu.org>
parents:
diff changeset
41 }
Dave Love <fx@gnu.org>
parents:
diff changeset
42
Dave Love <fx@gnu.org>
parents:
diff changeset
43 /*
Dave Love <fx@gnu.org>
parents:
diff changeset
44 * Find the right pane.
Dave Love <fx@gnu.org>
parents:
diff changeset
45 */
Dave Love <fx@gnu.org>
parents:
diff changeset
46 p_ptr = _XMGetPanePtr(menu, p_num);
Dave Love <fx@gnu.org>
parents:
diff changeset
47 if (p_ptr == NULL) return(XM_FAILURE);
Dave Love <fx@gnu.org>
parents:
diff changeset
48
Dave Love <fx@gnu.org>
parents:
diff changeset
49 /*
Dave Love <fx@gnu.org>
parents:
diff changeset
50 * Find the right selection.
Dave Love <fx@gnu.org>
parents:
diff changeset
51 */
Dave Love <fx@gnu.org>
parents:
diff changeset
52 s_ptr = _XMGetSelectionPtr(p_ptr, s_num);
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 * Check to see that the menu's dependencies have been
Dave Love <fx@gnu.org>
parents:
diff changeset
56 * recomputed and are up to date. If not, do it now.
Dave Love <fx@gnu.org>
parents:
diff changeset
57 */
Dave Love <fx@gnu.org>
parents:
diff changeset
58 if (menu->recompute) XMenuRecompute(display, menu);
Dave Love <fx@gnu.org>
parents:
diff changeset
59
Dave Love <fx@gnu.org>
parents:
diff changeset
60 /*
Dave Love <fx@gnu.org>
parents:
diff changeset
61 * Compute the new menu origin such that the active point lies
Dave Love <fx@gnu.org>
parents:
diff changeset
62 * in the center of the desired active pane and selection.
Dave Love <fx@gnu.org>
parents:
diff changeset
63 * This sets the values of ul_x and ul_y.
Dave Love <fx@gnu.org>
parents:
diff changeset
64 */
Dave Love <fx@gnu.org>
parents:
diff changeset
65 _XMTransToOrigin(display, menu, p_ptr, s_ptr, x_pos, y_pos, ul_x, ul_y);
Dave Love <fx@gnu.org>
parents:
diff changeset
66
Dave Love <fx@gnu.org>
parents:
diff changeset
67 /*
Dave Love <fx@gnu.org>
parents:
diff changeset
68 * Set remaining return argument values.
Dave Love <fx@gnu.org>
parents:
diff changeset
69 */
Dave Love <fx@gnu.org>
parents:
diff changeset
70 *width = menu->width;
Dave Love <fx@gnu.org>
parents:
diff changeset
71 *height = menu->height;
Dave Love <fx@gnu.org>
parents:
diff changeset
72
Dave Love <fx@gnu.org>
parents:
diff changeset
73 /*
Dave Love <fx@gnu.org>
parents:
diff changeset
74 * Return successfully.
Dave Love <fx@gnu.org>
parents:
diff changeset
75 */
Dave Love <fx@gnu.org>
parents:
diff changeset
76 _XMErrorCode = XME_NO_ERROR;
Dave Love <fx@gnu.org>
parents:
diff changeset
77 return(XM_SUCCESS);
Dave Love <fx@gnu.org>
parents:
diff changeset
78 }
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
79
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
80 /* arch-tag: 1ff94bab-cf67-4c92-bff4-dc0130153173
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
81 (do not change this comment) */