Mercurial > emacs
annotate lwlib/xlwmenu.c @ 49506:ac9e2eeeb03d
New format of AUTHORS file; list each
author name once followed by contributed and changed files.
Improve selection of entries to include in list, and generate list
of unrecognized entries indicating syntax errors in ChangeLog files.
(authors-coding-system): New variable.
(authors-many-files): Update doc string.
(authors-aliases): Change format. Now one entry with multiple
aliases per author.
(authors-valid-file-names, authors-renamed-files-alist)
(authors-renamed-files-regexps): New variables.
(authors-canonical-file-name): New function. Validates that file
exists or occurs in one of the above lists. Record unrecognized
file names in global authors-invalid-file-names list.
(authors-add): Change to record per-change counts.
(authors-canonical-author-name): Handle new format of
authors-aliases list.
(authors-scan-change-log): Rename FILE arg to LOG-FILE.
Change doc string to describe new entry format.
Only add author entries for valid file names.
(authors-print): Replace by authors-add-to-author-list.
(authors-add-to-author-list): New function which reorders
per-file entries and adds them to global authors-author-list.
(authors): Instead of authors-print to insert in *Authors* buffer,
use authors-add-to-author-list to reorder the list and then
insert result in *Authors* buffer with new format.
Generate *Authors Errors* compilation-mode buffer listing
unrecognized ChangeLog entries.
author | Kim F. Storm <storm@cua.dk> |
---|---|
date | Wed, 29 Jan 2003 00:13:11 +0000 |
parents | d81c005163cb |
children | 23a1cea22d13 |
rev | line source |
---|---|
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
1 /* Implements a lightweight menubar widget. |
5626 | 2 Copyright (C) 1992 Lucid, Inc. |
44707
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
3 Copyright (C) 2002 Free Software Foundation, Inc. |
5626 | 4 |
5 This file is part of the Lucid Widget Library. | |
6 | |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
7 The Lucid Widget Library is free software; you can redistribute it and/or |
5626 | 8 modify it under the terms of the GNU General Public License as published by |
9 the Free Software Foundation; either version 2, or (at your option) | |
10 any later version. | |
11 | |
12 The Lucid Widget Library is distributed in the hope that it will be useful, | |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
13 but WITHOUT ANY WARRANTY; without even the implied warranty of |
5626 | 14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
15 GNU General Public License for more details. | |
16 | |
17 You should have received a copy of the GNU General Public License | |
15742 | 18 along with GNU Emacs; see the file COPYING. If not, write to the |
19 Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
20 Boston, MA 02111-1307, USA. */ | |
5626 | 21 |
22 /* Created by devin@lucid.com */ | |
23 | |
26087
e0d966fb548f
Add support for large files, plus some locale improvements.
Paul Eggert <eggert@twinsun.com>
parents:
25526
diff
changeset
|
24 #ifdef HAVE_CONFIG_H |
e0d966fb548f
Add support for large files, plus some locale improvements.
Paul Eggert <eggert@twinsun.com>
parents:
25526
diff
changeset
|
25 #include <config.h> |
e0d966fb548f
Add support for large files, plus some locale improvements.
Paul Eggert <eggert@twinsun.com>
parents:
25526
diff
changeset
|
26 #endif |
e0d966fb548f
Add support for large files, plus some locale improvements.
Paul Eggert <eggert@twinsun.com>
parents:
25526
diff
changeset
|
27 |
41767 | 28 #include "../src/lisp.h" |
29 | |
5626 | 30 #include <stdio.h> |
31 | |
32 #include <sys/types.h> | |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
33 #if (defined __sun) && !(defined SUNOS41) |
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
34 #define SUNOS41 |
5626 | 35 #include <X11/Xos.h> |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
36 #undef SUNOS41 |
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
37 #else |
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
38 #include <X11/Xos.h> |
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
39 #endif |
5626 | 40 #include <X11/IntrinsicP.h> |
9033 | 41 #include <X11/ObjectP.h> |
5626 | 42 #include <X11/StringDefs.h> |
43 #include <X11/cursorfont.h> | |
44 #include "xlwmenuP.h" | |
29602
d13e7c93d265
(make_shadow_gcs): Free and copy colors so that
Gerd Moellmann <gerd@gnu.org>
parents:
29469
diff
changeset
|
45 |
29469
f9b5fe053f7c
(x_alloc_nearest_color_for_widget, x_catch_errors, x_uncatch_errors)
Dave Love <fx@gnu.org>
parents:
27988
diff
changeset
|
46 #ifdef emacs |
30324
d4713daa6716
Don't include <X11/bitmaps/gray> because that
Gerd Moellmann <gerd@gnu.org>
parents:
29700
diff
changeset
|
47 |
d4713daa6716
Don't include <X11/bitmaps/gray> because that
Gerd Moellmann <gerd@gnu.org>
parents:
29700
diff
changeset
|
48 /* Defined in xfns.c. When config.h defines `static' as empty, we get |
d4713daa6716
Don't include <X11/bitmaps/gray> because that
Gerd Moellmann <gerd@gnu.org>
parents:
29700
diff
changeset
|
49 redefinition errors when gray_bitmap is included more than once, so |
d4713daa6716
Don't include <X11/bitmaps/gray> because that
Gerd Moellmann <gerd@gnu.org>
parents:
29700
diff
changeset
|
50 we're referring to the one include in xfns.c here. */ |
d4713daa6716
Don't include <X11/bitmaps/gray> because that
Gerd Moellmann <gerd@gnu.org>
parents:
29700
diff
changeset
|
51 |
d4713daa6716
Don't include <X11/bitmaps/gray> because that
Gerd Moellmann <gerd@gnu.org>
parents:
29700
diff
changeset
|
52 extern int gray_bitmap_width; |
d4713daa6716
Don't include <X11/bitmaps/gray> because that
Gerd Moellmann <gerd@gnu.org>
parents:
29700
diff
changeset
|
53 extern int gray_bitmap_height; |
34557
b9586137049e
(gray_bitmap_bits): Remove `unsigned' from
Dave Love <fx@gnu.org>
parents:
34436
diff
changeset
|
54 extern char *gray_bitmap_bits; |
30324
d4713daa6716
Don't include <X11/bitmaps/gray> because that
Gerd Moellmann <gerd@gnu.org>
parents:
29700
diff
changeset
|
55 |
29469
f9b5fe053f7c
(x_alloc_nearest_color_for_widget, x_catch_errors, x_uncatch_errors)
Dave Love <fx@gnu.org>
parents:
27988
diff
changeset
|
56 /* Defined in xterm.c. */ |
f9b5fe053f7c
(x_alloc_nearest_color_for_widget, x_catch_errors, x_uncatch_errors)
Dave Love <fx@gnu.org>
parents:
27988
diff
changeset
|
57 extern int x_alloc_nearest_color_for_widget __P ((Widget, Colormap, XColor*)); |
31341
1c5d68acbded
(x_alloc_lighter_color_for_widget):
Miles Bader <miles@gnu.org>
parents:
31287
diff
changeset
|
58 extern int x_alloc_lighter_color_for_widget __P ((Widget, Display*, Colormap, |
1c5d68acbded
(x_alloc_lighter_color_for_widget):
Miles Bader <miles@gnu.org>
parents:
31287
diff
changeset
|
59 unsigned long *, |
1c5d68acbded
(x_alloc_lighter_color_for_widget):
Miles Bader <miles@gnu.org>
parents:
31287
diff
changeset
|
60 double, int)); |
29469
f9b5fe053f7c
(x_alloc_nearest_color_for_widget, x_catch_errors, x_uncatch_errors)
Dave Love <fx@gnu.org>
parents:
27988
diff
changeset
|
61 extern int x_catch_errors __P ((Display*)); |
f9b5fe053f7c
(x_alloc_nearest_color_for_widget, x_catch_errors, x_uncatch_errors)
Dave Love <fx@gnu.org>
parents:
27988
diff
changeset
|
62 extern int x_uncatch_errors __P ((Display*, int)); |
f9b5fe053f7c
(x_alloc_nearest_color_for_widget, x_catch_errors, x_uncatch_errors)
Dave Love <fx@gnu.org>
parents:
27988
diff
changeset
|
63 extern int x_had_errors_p __P ((Display*)); |
f9b5fe053f7c
(x_alloc_nearest_color_for_widget, x_catch_errors, x_uncatch_errors)
Dave Love <fx@gnu.org>
parents:
27988
diff
changeset
|
64 extern int x_clear_errors __P ((Display*)); |
29602
d13e7c93d265
(make_shadow_gcs): Free and copy colors so that
Gerd Moellmann <gerd@gnu.org>
parents:
29469
diff
changeset
|
65 extern unsigned long x_copy_dpy_color __P ((Display *, Colormap, |
d13e7c93d265
(make_shadow_gcs): Free and copy colors so that
Gerd Moellmann <gerd@gnu.org>
parents:
29469
diff
changeset
|
66 unsigned long)); |
d13e7c93d265
(make_shadow_gcs): Free and copy colors so that
Gerd Moellmann <gerd@gnu.org>
parents:
29469
diff
changeset
|
67 |
d13e7c93d265
(make_shadow_gcs): Free and copy colors so that
Gerd Moellmann <gerd@gnu.org>
parents:
29469
diff
changeset
|
68 /* Defined in xfaces.c. */ |
d13e7c93d265
(make_shadow_gcs): Free and copy colors so that
Gerd Moellmann <gerd@gnu.org>
parents:
29469
diff
changeset
|
69 extern void x_free_dpy_colors __P ((Display *, Screen *, Colormap, |
d13e7c93d265
(make_shadow_gcs): Free and copy colors so that
Gerd Moellmann <gerd@gnu.org>
parents:
29469
diff
changeset
|
70 unsigned long *pixels, int npixels)); |
30324
d4713daa6716
Don't include <X11/bitmaps/gray> because that
Gerd Moellmann <gerd@gnu.org>
parents:
29700
diff
changeset
|
71 #else /* not emacs */ |
d4713daa6716
Don't include <X11/bitmaps/gray> because that
Gerd Moellmann <gerd@gnu.org>
parents:
29700
diff
changeset
|
72 |
d4713daa6716
Don't include <X11/bitmaps/gray> because that
Gerd Moellmann <gerd@gnu.org>
parents:
29700
diff
changeset
|
73 #include <X11/bitmaps/gray> |
d4713daa6716
Don't include <X11/bitmaps/gray> because that
Gerd Moellmann <gerd@gnu.org>
parents:
29700
diff
changeset
|
74 #define gray_bitmap_width gray_width |
d4713daa6716
Don't include <X11/bitmaps/gray> because that
Gerd Moellmann <gerd@gnu.org>
parents:
29700
diff
changeset
|
75 #define gray_bitmap_height gray_height |
d4713daa6716
Don't include <X11/bitmaps/gray> because that
Gerd Moellmann <gerd@gnu.org>
parents:
29700
diff
changeset
|
76 #define gray_bitmap_bits gray_bits |
d4713daa6716
Don't include <X11/bitmaps/gray> because that
Gerd Moellmann <gerd@gnu.org>
parents:
29700
diff
changeset
|
77 |
d4713daa6716
Don't include <X11/bitmaps/gray> because that
Gerd Moellmann <gerd@gnu.org>
parents:
29700
diff
changeset
|
78 #endif /* not emacs */ |
8860 | 79 |
80 static int pointer_grabbed; | |
81 static XEvent menu_post_event; | |
5626 | 82 |
9746
49e984bf6689
(xlwmenu_default_font): New global variable.
Richard M. Stallman <rms@gnu.org>
parents:
9700
diff
changeset
|
83 XFontStruct *xlwmenu_default_font; |
49e984bf6689
(xlwmenu_default_font): New global variable.
Richard M. Stallman <rms@gnu.org>
parents:
9700
diff
changeset
|
84 |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
85 static char |
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
86 xlwMenuTranslations [] = |
13899
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
87 "<BtnDown>: start()\n\ |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
88 <Motion>: drag()\n\ |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
89 <BtnUp>: select()\n\ |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
90 <Key>Shift_L: nothing()\n\ |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
91 <Key>Shift_R: nothing()\n\ |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
92 <Key>Meta_L: nothing()\n\ |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
93 <Key>Meta_R: nothing()\n\ |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
94 <Key>Control_L: nothing()\n\ |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
95 <Key>Control_R: nothing()\n\ |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
96 <Key>Hyper_L: nothing()\n\ |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
97 <Key>Hyper_R: nothing()\n\ |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
98 <Key>Super_L: nothing()\n\ |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
99 <Key>Super_R: nothing()\n\ |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
100 <Key>Alt_L: nothing()\n\ |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
101 <Key>Alt_R: nothing()\n\ |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
102 <Key>Caps_Lock: nothing()\n\ |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
103 <Key>Shift_Lock: nothing()\n\ |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
104 <KeyUp>Shift_L: nothing()\n\ |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
105 <KeyUp>Shift_R: nothing()\n\ |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
106 <KeyUp>Meta_L: nothing()\n\ |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
107 <KeyUp>Meta_R: nothing()\n\ |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
108 <KeyUp>Control_L: nothing()\n\ |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
109 <KeyUp>Control_R: nothing()\n\ |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
110 <KeyUp>Hyper_L: nothing()\n\ |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
111 <KeyUp>Hyper_R: nothing()\n\ |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
112 <KeyUp>Super_L: nothing()\n\ |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
113 <KeyUp>Super_R: nothing()\n\ |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
114 <KeyUp>Alt_L: nothing()\n\ |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
115 <KeyUp>Alt_R: nothing()\n\ |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
116 <KeyUp>Caps_Lock: nothing()\n\ |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
117 <KeyUp>Shift_Lock:nothing()\n\ |
44707
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
118 <Key>Return: select()\n\ |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
119 <Key>Down: down()\n\ |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
120 <Key>Up: up()\n\ |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
121 <Key>Left: left()\n\ |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
122 <Key>Right: right()\n\ |
13899
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
123 <Key>: key()\n\ |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
124 <KeyUp>: key()\n\ |
5626 | 125 "; |
126 | |
44707
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
127 /* FIXME: Space should toggle toggleable menu item but not remove the menu |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
128 so you can toggle the next one without entering the menu again. */ |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
129 |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
130 /* FIXME: Should ESC close one level of menu structure or the complete menu? */ |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
131 |
44966 | 132 /* FIXME: F10 should enter the menu, the first one in the menu-bar. */ |
44707
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
133 |
5626 | 134 #define offset(field) XtOffset(XlwMenuWidget, field) |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
135 static XtResource |
5626 | 136 xlwMenuResources[] = |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
137 { |
5626 | 138 {XtNfont, XtCFont, XtRFontStruct, sizeof(XFontStruct *), |
139 offset(menu.font),XtRString, "XtDefaultFont"}, | |
140 {XtNforeground, XtCForeground, XtRPixel, sizeof(Pixel), | |
141 offset(menu.foreground), XtRString, "XtDefaultForeground"}, | |
45147
e10cf8f440ae
(xlwMenuResources): New resource.
Pavel Janík <Pavel@Janik.cz>
parents:
44966
diff
changeset
|
142 {XtNdisabledForeground, XtCDisabledForeground, XtRPixel, sizeof(Pixel), |
e10cf8f440ae
(xlwMenuResources): New resource.
Pavel Janík <Pavel@Janik.cz>
parents:
44966
diff
changeset
|
143 offset(menu.disabled_foreground), XtRString, (XtPointer)NULL}, |
5626 | 144 {XtNbuttonForeground, XtCButtonForeground, XtRPixel, sizeof(Pixel), |
145 offset(menu.button_foreground), XtRString, "XtDefaultForeground"}, | |
146 {XtNmargin, XtCMargin, XtRDimension, sizeof(Dimension), | |
44966 | 147 offset(menu.margin), XtRImmediate, (XtPointer)1}, |
5626 | 148 {XtNhorizontalSpacing, XtCMargin, XtRDimension, sizeof(Dimension), |
149 offset(menu.horizontal_spacing), XtRImmediate, (XtPointer)3}, | |
150 {XtNverticalSpacing, XtCMargin, XtRDimension, sizeof(Dimension), | |
44966 | 151 offset(menu.vertical_spacing), XtRImmediate, (XtPointer)2}, |
5626 | 152 {XtNarrowSpacing, XtCMargin, XtRDimension, sizeof(Dimension), |
153 offset(menu.arrow_spacing), XtRImmediate, (XtPointer)10}, | |
154 | |
8860 | 155 {XmNshadowThickness, XmCShadowThickness, XtRDimension, |
5626 | 156 sizeof (Dimension), offset (menu.shadow_thickness), |
44966 | 157 XtRImmediate, (XtPointer)1}, |
5626 | 158 {XmNtopShadowColor, XmCTopShadowColor, XtRPixel, sizeof (Pixel), |
159 offset (menu.top_shadow_color), XtRImmediate, (XtPointer)-1}, | |
160 {XmNbottomShadowColor, XmCBottomShadowColor, XtRPixel, sizeof (Pixel), | |
161 offset (menu.bottom_shadow_color), XtRImmediate, (XtPointer)-1}, | |
162 {XmNtopShadowPixmap, XmCTopShadowPixmap, XtRPixmap, sizeof (Pixmap), | |
163 offset (menu.top_shadow_pixmap), XtRImmediate, (XtPointer)None}, | |
164 {XmNbottomShadowPixmap, XmCBottomShadowPixmap, XtRPixmap, sizeof (Pixmap), | |
165 offset (menu.bottom_shadow_pixmap), XtRImmediate, (XtPointer)None}, | |
166 | |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
167 {XtNopen, XtCCallback, XtRCallback, sizeof(XtPointer), |
5626 | 168 offset(menu.open), XtRCallback, (XtPointer)NULL}, |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
169 {XtNselect, XtCCallback, XtRCallback, sizeof(XtPointer), |
5626 | 170 offset(menu.select), XtRCallback, (XtPointer)NULL}, |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
171 {XtNhighlightCallback, XtCCallback, XtRCallback, sizeof(XtPointer), |
27338
58f8eee82765
(xlwMenuResources): All XtNhighlightCallback.
Gerd Moellmann <gerd@gnu.org>
parents:
26087
diff
changeset
|
172 offset(menu.highlight), XtRCallback, (XtPointer)NULL}, |
5626 | 173 {XtNmenu, XtCMenu, XtRPointer, sizeof(XtPointer), |
174 offset(menu.contents), XtRImmediate, (XtPointer)NULL}, | |
175 {XtNcursor, XtCCursor, XtRCursor, sizeof(Cursor), | |
176 offset(menu.cursor_shape), XtRString, (XtPointer)"right_ptr"}, | |
177 {XtNhorizontal, XtCHorizontal, XtRInt, sizeof(int), | |
178 offset(menu.horizontal), XtRImmediate, (XtPointer)True}, | |
179 }; | |
180 #undef offset | |
181 | |
182 static Boolean XlwMenuSetValues(); | |
183 static void XlwMenuRealize(); | |
184 static void XlwMenuRedisplay(); | |
185 static void XlwMenuResize(); | |
186 static void XlwMenuInitialize(); | |
187 static void XlwMenuRedisplay(); | |
188 static void XlwMenuDestroy(); | |
189 static void XlwMenuClassInitialize(); | |
190 static void Start(); | |
191 static void Drag(); | |
44707
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
192 static void Down(); |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
193 static void Up(); |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
194 static void Left(); |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
195 static void Right(); |
5626 | 196 static void Select(); |
13899
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
197 static void Key(); |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
198 static void Nothing(); |
48479 | 199 static int separator_height __P ((enum menu_separator)); |
5626 | 200 |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
201 static XtActionsRec |
5626 | 202 xlwMenuActionsList [] = |
203 { | |
204 {"start", Start}, | |
205 {"drag", Drag}, | |
44707
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
206 {"down", Down}, |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
207 {"up", Up}, |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
208 {"left", Left}, |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
209 {"right", Right}, |
5626 | 210 {"select", Select}, |
13899
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
211 {"key", Key}, |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
212 {"nothing", Nothing}, |
5626 | 213 }; |
214 | |
215 #define SuperClass ((CoreWidgetClass)&coreClassRec) | |
216 | |
217 XlwMenuClassRec xlwMenuClassRec = | |
218 { | |
219 { /* CoreClass fields initialization */ | |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
220 (WidgetClass) SuperClass, /* superclass */ |
5626 | 221 "XlwMenu", /* class_name */ |
222 sizeof(XlwMenuRec), /* size */ | |
223 XlwMenuClassInitialize, /* class_initialize */ | |
224 NULL, /* class_part_initialize */ | |
225 FALSE, /* class_inited */ | |
226 XlwMenuInitialize, /* initialize */ | |
227 NULL, /* initialize_hook */ | |
228 XlwMenuRealize, /* realize */ | |
229 xlwMenuActionsList, /* actions */ | |
230 XtNumber(xlwMenuActionsList), /* num_actions */ | |
231 xlwMenuResources, /* resources */ | |
232 XtNumber(xlwMenuResources), /* resource_count */ | |
233 NULLQUARK, /* xrm_class */ | |
234 TRUE, /* compress_motion */ | |
235 TRUE, /* compress_exposure */ | |
236 TRUE, /* compress_enterleave */ | |
237 FALSE, /* visible_interest */ | |
238 XlwMenuDestroy, /* destroy */ | |
239 XlwMenuResize, /* resize */ | |
240 XlwMenuRedisplay, /* expose */ | |
241 XlwMenuSetValues, /* set_values */ | |
242 NULL, /* set_values_hook */ | |
243 XtInheritSetValuesAlmost, /* set_values_almost */ | |
244 NULL, /* get_values_hook */ | |
245 NULL, /* accept_focus */ | |
246 XtVersion, /* version */ | |
247 NULL, /* callback_private */ | |
248 xlwMenuTranslations, /* tm_table */ | |
249 XtInheritQueryGeometry, /* query_geometry */ | |
250 XtInheritDisplayAccelerator, /* display_accelerator */ | |
251 NULL /* extension */ | |
252 }, /* XlwMenuClass fields initialization */ | |
253 { | |
254 0 /* dummy */ | |
255 }, | |
256 }; | |
257 | |
258 WidgetClass xlwMenuWidgetClass = (WidgetClass) &xlwMenuClassRec; | |
259 | |
8860 | 260 int submenu_destroyed; |
261 | |
44931
18616c930588
Do not grab keyboard if installation-directory is
Jan Djärv <jan.h.d@swipnet.se>
parents:
44750
diff
changeset
|
262 /* For debug, if installation-directory is non-nil this is not an installed |
18616c930588
Do not grab keyboard if installation-directory is
Jan Djärv <jan.h.d@swipnet.se>
parents:
44750
diff
changeset
|
263 Emacs. In that case we do not grab the keyboard to make it easier to |
18616c930588
Do not grab keyboard if installation-directory is
Jan Djärv <jan.h.d@swipnet.se>
parents:
44750
diff
changeset
|
264 debug. */ |
18616c930588
Do not grab keyboard if installation-directory is
Jan Djärv <jan.h.d@swipnet.se>
parents:
44750
diff
changeset
|
265 #define GRAB_KEYBOARD (EQ (Vinstallation_directory, Qnil)) |
44750
2e7603e0c455
Add calls to Grab/UngrabKeyboard to remove strange interactions with
Jan Djärv <jan.h.d@swipnet.se>
parents:
44713
diff
changeset
|
266 |
8860 | 267 static int next_release_must_exit; |
268 | |
5626 | 269 /* Utilities */ |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
270 |
44750
2e7603e0c455
Add calls to Grab/UngrabKeyboard to remove strange interactions with
Jan Djärv <jan.h.d@swipnet.se>
parents:
44713
diff
changeset
|
271 /* Ungrab pointer and keyboard */ |
2e7603e0c455
Add calls to Grab/UngrabKeyboard to remove strange interactions with
Jan Djärv <jan.h.d@swipnet.se>
parents:
44713
diff
changeset
|
272 static void |
2e7603e0c455
Add calls to Grab/UngrabKeyboard to remove strange interactions with
Jan Djärv <jan.h.d@swipnet.se>
parents:
44713
diff
changeset
|
273 ungrab_all (w, ungrabtime) |
2e7603e0c455
Add calls to Grab/UngrabKeyboard to remove strange interactions with
Jan Djärv <jan.h.d@swipnet.se>
parents:
44713
diff
changeset
|
274 Widget w; |
2e7603e0c455
Add calls to Grab/UngrabKeyboard to remove strange interactions with
Jan Djärv <jan.h.d@swipnet.se>
parents:
44713
diff
changeset
|
275 Time ungrabtime; |
2e7603e0c455
Add calls to Grab/UngrabKeyboard to remove strange interactions with
Jan Djärv <jan.h.d@swipnet.se>
parents:
44713
diff
changeset
|
276 { |
2e7603e0c455
Add calls to Grab/UngrabKeyboard to remove strange interactions with
Jan Djärv <jan.h.d@swipnet.se>
parents:
44713
diff
changeset
|
277 XtUngrabPointer (w, ungrabtime); |
44931
18616c930588
Do not grab keyboard if installation-directory is
Jan Djärv <jan.h.d@swipnet.se>
parents:
44750
diff
changeset
|
278 if (GRAB_KEYBOARD) XtUngrabKeyboard (w, ungrabtime); |
44750
2e7603e0c455
Add calls to Grab/UngrabKeyboard to remove strange interactions with
Jan Djärv <jan.h.d@swipnet.se>
parents:
44713
diff
changeset
|
279 } |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
280 |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
281 /* Like abort, but remove grabs from widget W before. */ |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
282 |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
283 static void |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
284 abort_gracefully (w) |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
285 Widget w; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
286 { |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
287 if (XtIsShell (XtParent (w))) |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
288 XtRemoveGrab (w); |
44750
2e7603e0c455
Add calls to Grab/UngrabKeyboard to remove strange interactions with
Jan Djärv <jan.h.d@swipnet.se>
parents:
44713
diff
changeset
|
289 ungrab_all (w, CurrentTime); |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
290 abort (); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
291 } |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
292 |
5626 | 293 static void |
8860 | 294 push_new_stack (mw, val) |
295 XlwMenuWidget mw; | |
296 widget_value* val; | |
5626 | 297 { |
298 if (!mw->menu.new_stack) | |
299 { | |
300 mw->menu.new_stack_length = 10; | |
301 mw->menu.new_stack = | |
302 (widget_value**)XtCalloc (mw->menu.new_stack_length, | |
303 sizeof (widget_value*)); | |
304 } | |
305 else if (mw->menu.new_depth == mw->menu.new_stack_length) | |
306 { | |
307 mw->menu.new_stack_length *= 2; | |
308 mw->menu.new_stack = | |
309 (widget_value**)XtRealloc ((char*)mw->menu.new_stack, | |
310 mw->menu.new_stack_length * sizeof (widget_value*)); | |
311 } | |
312 mw->menu.new_stack [mw->menu.new_depth++] = val; | |
313 } | |
314 | |
315 static void | |
8860 | 316 pop_new_stack_if_no_contents (mw) |
317 XlwMenuWidget mw; | |
5626 | 318 { |
48929
d81c005163cb
(pop_new_stack_if_no_contents): Do nothing if new_depth is 1.
Richard M. Stallman <rms@gnu.org>
parents:
48479
diff
changeset
|
319 if (mw->menu.new_depth > 1) |
5626 | 320 { |
321 if (!mw->menu.new_stack [mw->menu.new_depth - 1]->contents) | |
322 mw->menu.new_depth -= 1; | |
323 } | |
324 } | |
325 | |
326 static void | |
8860 | 327 make_old_stack_space (mw, n) |
328 XlwMenuWidget mw; | |
329 int n; | |
5626 | 330 { |
331 if (!mw->menu.old_stack) | |
332 { | |
333 mw->menu.old_stack_length = 10; | |
334 mw->menu.old_stack = | |
335 (widget_value**)XtCalloc (mw->menu.old_stack_length, | |
336 sizeof (widget_value*)); | |
337 } | |
338 else if (mw->menu.old_stack_length < n) | |
339 { | |
340 mw->menu.old_stack_length *= 2; | |
341 mw->menu.old_stack = | |
342 (widget_value**)XtRealloc ((char*)mw->menu.old_stack, | |
343 mw->menu.old_stack_length * sizeof (widget_value*)); | |
344 } | |
345 } | |
346 | |
347 /* Size code */ | |
8860 | 348 int |
349 string_width (mw, s) | |
350 XlwMenuWidget mw; | |
351 char *s; | |
5626 | 352 { |
353 XCharStruct xcs; | |
354 int drop; | |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
355 |
5626 | 356 XTextExtents (mw->menu.font, s, strlen (s), &drop, &drop, &drop, &xcs); |
357 return xcs.width; | |
358 } | |
359 | |
360 static int | |
8860 | 361 arrow_width (mw) |
362 XlwMenuWidget mw; | |
5626 | 363 { |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
364 return (mw->menu.font->ascent * 3/4) | 1; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
365 } |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
366 |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
367 /* Return the width of toggle buttons of widget MW. */ |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
368 |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
369 static int |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
370 toggle_button_width (mw) |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
371 XlwMenuWidget mw; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
372 { |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
373 return ((mw->menu.font->ascent + mw->menu.font->descent) * 2 / 3) | 1; |
5626 | 374 } |
375 | |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
376 |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
377 /* Return the width of radio buttons of widget MW. */ |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
378 |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
379 static int |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
380 radio_button_width (mw) |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
381 XlwMenuWidget mw; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
382 { |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
383 return toggle_button_width (mw) * 1.41; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
384 } |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
385 |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
386 |
5626 | 387 static XtResource |
388 nameResource[] = | |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
389 { |
5626 | 390 {"labelString", "LabelString", XtRString, sizeof(String), |
391 0, XtRImmediate, 0}, | |
392 }; | |
393 | |
394 static char* | |
8860 | 395 resource_widget_value (mw, val) |
396 XlwMenuWidget mw; | |
397 widget_value *val; | |
5626 | 398 { |
399 if (!val->toolkit_data) | |
400 { | |
401 char* resourced_name = NULL; | |
402 char* complete_name; | |
403 XtGetSubresources ((Widget) mw, | |
404 (XtPointer) &resourced_name, | |
405 val->name, val->name, | |
406 nameResource, 1, NULL, 0); | |
407 if (!resourced_name) | |
408 resourced_name = val->name; | |
409 if (!val->value) | |
5654
f84dac6453db
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5626
diff
changeset
|
410 { |
f84dac6453db
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5626
diff
changeset
|
411 complete_name = (char *) XtMalloc (strlen (resourced_name) + 1); |
f84dac6453db
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5626
diff
changeset
|
412 strcpy (complete_name, resourced_name); |
f84dac6453db
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5626
diff
changeset
|
413 } |
5626 | 414 else |
415 { | |
416 int complete_length = | |
417 strlen (resourced_name) + strlen (val->value) + 2; | |
418 complete_name = XtMalloc (complete_length); | |
419 *complete_name = 0; | |
420 strcat (complete_name, resourced_name); | |
421 strcat (complete_name, " "); | |
422 strcat (complete_name, val->value); | |
423 } | |
424 | |
425 val->toolkit_data = complete_name; | |
426 val->free_toolkit_data = True; | |
427 } | |
428 return (char*)val->toolkit_data; | |
429 } | |
430 | |
431 /* Returns the sizes of an item */ | |
432 static void | |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
433 size_menu_item (mw, val, horizontal_p, label_width, rest_width, button_width, |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
434 height) |
8860 | 435 XlwMenuWidget mw; |
436 widget_value* val; | |
437 int horizontal_p; | |
438 int* label_width; | |
439 int* rest_width; | |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
440 int* button_width; |
8860 | 441 int* height; |
5626 | 442 { |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
443 enum menu_separator separator; |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
444 |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
445 if (lw_separator_p (val->name, &separator, 0)) |
5626 | 446 { |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
447 *height = separator_height (separator); |
5626 | 448 *label_width = 1; |
449 *rest_width = 0; | |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
450 *button_width = 0; |
5626 | 451 } |
452 else | |
453 { | |
454 *height = | |
455 mw->menu.font->ascent + mw->menu.font->descent | |
456 + 2 * mw->menu.vertical_spacing + 2 * mw->menu.shadow_thickness; | |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
457 |
5626 | 458 *label_width = |
459 string_width (mw, resource_widget_value (mw, val)) | |
460 + mw->menu.horizontal_spacing + mw->menu.shadow_thickness; | |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
461 |
5626 | 462 *rest_width = mw->menu.horizontal_spacing + mw->menu.shadow_thickness; |
463 if (!horizontal_p) | |
464 { | |
465 if (val->contents) | |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
466 /* Add width of the arrow displayed for submenus. */ |
5626 | 467 *rest_width += arrow_width (mw) + mw->menu.arrow_spacing; |
468 else if (val->key) | |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
469 /* Add width of key equivalent string. */ |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
470 *rest_width += (string_width (mw, val->key) |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
471 + mw->menu.arrow_spacing); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
472 |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
473 if (val->button_type == BUTTON_TYPE_TOGGLE) |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
474 *button_width = (toggle_button_width (mw) |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
475 + mw->menu.horizontal_spacing); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
476 else if (val->button_type == BUTTON_TYPE_RADIO) |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
477 *button_width = (radio_button_width (mw) |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
478 + mw->menu.horizontal_spacing); |
5626 | 479 } |
480 } | |
481 } | |
482 | |
483 static void | |
8860 | 484 size_menu (mw, level) |
485 XlwMenuWidget mw; | |
486 int level; | |
5626 | 487 { |
11461
65c12e57f119
(size_menu): Make height and label_width unsigned.
Richard M. Stallman <rms@gnu.org>
parents:
9746
diff
changeset
|
488 unsigned int label_width = 0; |
5626 | 489 int rest_width = 0; |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
490 int button_width = 0; |
5626 | 491 int max_rest_width = 0; |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
492 int max_button_width = 0; |
11461
65c12e57f119
(size_menu): Make height and label_width unsigned.
Richard M. Stallman <rms@gnu.org>
parents:
9746
diff
changeset
|
493 unsigned int height = 0; |
5626 | 494 int horizontal_p = mw->menu.horizontal && (level == 0); |
495 widget_value* val; | |
496 window_state* ws; | |
497 | |
498 if (level >= mw->menu.old_depth) | |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
499 abort_gracefully ((Widget) mw); |
5626 | 500 |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
501 ws = &mw->menu.windows [level]; |
5626 | 502 ws->width = 0; |
503 ws->height = 0; | |
504 ws->label_width = 0; | |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
505 ws->button_width = 0; |
5626 | 506 |
507 for (val = mw->menu.old_stack [level]->contents; val; val = val->next) | |
508 { | |
509 size_menu_item (mw, val, horizontal_p, &label_width, &rest_width, | |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
510 &button_width, &height); |
5626 | 511 if (horizontal_p) |
512 { | |
513 ws->width += label_width + rest_width; | |
514 if (height > ws->height) | |
515 ws->height = height; | |
516 } | |
517 else | |
518 { | |
519 if (label_width > ws->label_width) | |
520 ws->label_width = label_width; | |
521 if (rest_width > max_rest_width) | |
522 max_rest_width = rest_width; | |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
523 if (button_width > max_button_width) |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
524 max_button_width = button_width; |
5626 | 525 ws->height += height; |
526 } | |
527 } | |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
528 |
5626 | 529 if (horizontal_p) |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
530 ws->label_width = ws->button_width = 0; |
5626 | 531 else |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
532 { |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
533 ws->width = ws->label_width + max_rest_width + max_button_width; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
534 ws->button_width = max_button_width; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
535 } |
5626 | 536 |
537 ws->width += 2 * mw->menu.shadow_thickness; | |
538 ws->height += 2 * mw->menu.shadow_thickness; | |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
539 |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
540 if (horizontal_p) |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
541 { |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
542 ws->width += 2 * mw->menu.margin; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
543 ws->height += 2 * mw->menu.margin; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
544 } |
5626 | 545 } |
546 | |
547 | |
548 /* Display code */ | |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
549 |
5626 | 550 static void |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
551 draw_arrow (mw, window, gc, x, y, width, down_p) |
8860 | 552 XlwMenuWidget mw; |
553 Window window; | |
554 GC gc; | |
555 int x; | |
556 int y; | |
557 int width; | |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
558 int down_p; |
5626 | 559 { |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
560 Display *dpy = XtDisplay (mw); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
561 GC top_gc = mw->menu.shadow_top_gc; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
562 GC bottom_gc = mw->menu.shadow_bottom_gc; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
563 int thickness = mw->menu.shadow_thickness; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
564 int height = width; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
565 XPoint pt[10]; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
566 /* alpha = atan (0.5) |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
567 factor = (1 + sin (alpha)) / cos (alpha) */ |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
568 double factor = 1.62; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
569 int thickness2 = thickness * factor; |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
570 |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
571 y += (mw->menu.font->ascent + mw->menu.font->descent - height) / 2; |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
572 |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
573 if (down_p) |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
574 { |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
575 GC temp; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
576 temp = top_gc; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
577 top_gc = bottom_gc; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
578 bottom_gc = temp; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
579 } |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
580 |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
581 pt[0].x = x; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
582 pt[0].y = y + height; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
583 pt[1].x = x + thickness; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
584 pt[1].y = y + height - thickness2; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
585 pt[2].x = x + thickness2; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
586 pt[2].y = y + thickness2; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
587 pt[3].x = x; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
588 pt[3].y = y; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
589 XFillPolygon (dpy, window, top_gc, pt, 4, Convex, CoordModeOrigin); |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
590 |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
591 pt[0].x = x; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
592 pt[0].y = y; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
593 pt[1].x = x + thickness; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
594 pt[1].y = y + thickness2; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
595 pt[2].x = x + width - thickness2; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
596 pt[2].y = y + height / 2; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
597 pt[3].x = x + width; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
598 pt[3].y = y + height / 2; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
599 XFillPolygon (dpy, window, top_gc, pt, 4, Convex, CoordModeOrigin); |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
600 |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
601 pt[0].x = x; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
602 pt[0].y = y + height; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
603 pt[1].x = x + thickness; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
604 pt[1].y = y + height - thickness2; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
605 pt[2].x = x + width - thickness2; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
606 pt[2].y = y + height / 2; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
607 pt[3].x = x + width; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
608 pt[3].y = y + height / 2; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
609 XFillPolygon (dpy, window, bottom_gc, pt, 4, Convex, CoordModeOrigin); |
5626 | 610 } |
611 | |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
612 |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
613 |
5626 | 614 static void |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
615 draw_shadow_rectangle (mw, window, x, y, width, height, erase_p, down_p) |
8860 | 616 XlwMenuWidget mw; |
617 Window window; | |
618 int x; | |
619 int y; | |
620 int width; | |
621 int height; | |
622 int erase_p; | |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
623 int down_p; |
5626 | 624 { |
625 Display *dpy = XtDisplay (mw); | |
626 GC top_gc = !erase_p ? mw->menu.shadow_top_gc : mw->menu.background_gc; | |
627 GC bottom_gc = !erase_p ? mw->menu.shadow_bottom_gc : mw->menu.background_gc; | |
628 int thickness = mw->menu.shadow_thickness; | |
629 XPoint points [4]; | |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
630 |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
631 if (!erase_p && down_p) |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
632 { |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
633 GC temp; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
634 temp = top_gc; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
635 top_gc = bottom_gc; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
636 bottom_gc = temp; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
637 } |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
638 |
5626 | 639 points [0].x = x; |
640 points [0].y = y; | |
641 points [1].x = x + width; | |
642 points [1].y = y; | |
643 points [2].x = x + width - thickness; | |
644 points [2].y = y + thickness; | |
645 points [3].x = x; | |
646 points [3].y = y + thickness; | |
647 XFillPolygon (dpy, window, top_gc, points, 4, Convex, CoordModeOrigin); | |
648 points [0].x = x; | |
649 points [0].y = y + thickness; | |
650 points [1].x = x; | |
651 points [1].y = y + height; | |
652 points [2].x = x + thickness; | |
653 points [2].y = y + height - thickness; | |
654 points [3].x = x + thickness; | |
655 points [3].y = y + thickness; | |
656 XFillPolygon (dpy, window, top_gc, points, 4, Convex, CoordModeOrigin); | |
657 points [0].x = x + width; | |
658 points [0].y = y; | |
659 points [1].x = x + width - thickness; | |
660 points [1].y = y + thickness; | |
661 points [2].x = x + width - thickness; | |
662 points [2].y = y + height - thickness; | |
663 points [3].x = x + width; | |
664 points [3].y = y + height - thickness; | |
665 XFillPolygon (dpy, window, bottom_gc, points, 4, Convex, CoordModeOrigin); | |
666 points [0].x = x; | |
667 points [0].y = y + height; | |
668 points [1].x = x + width; | |
669 points [1].y = y + height; | |
670 points [2].x = x + width; | |
671 points [2].y = y + height - thickness; | |
672 points [3].x = x + thickness; | |
673 points [3].y = y + height - thickness; | |
674 XFillPolygon (dpy, window, bottom_gc, points, 4, Convex, CoordModeOrigin); | |
675 } | |
676 | |
677 | |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
678 static void |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
679 draw_shadow_rhombus (mw, window, x, y, width, height, erase_p, down_p) |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
680 XlwMenuWidget mw; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
681 Window window; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
682 int x; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
683 int y; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
684 int width; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
685 int height; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
686 int erase_p; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
687 int down_p; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
688 { |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
689 Display *dpy = XtDisplay (mw); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
690 GC top_gc = !erase_p ? mw->menu.shadow_top_gc : mw->menu.background_gc; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
691 GC bottom_gc = !erase_p ? mw->menu.shadow_bottom_gc : mw->menu.background_gc; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
692 int thickness = mw->menu.shadow_thickness; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
693 XPoint points [4]; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
694 |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
695 if (!erase_p && down_p) |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
696 { |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
697 GC temp; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
698 temp = top_gc; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
699 top_gc = bottom_gc; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
700 bottom_gc = temp; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
701 } |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
702 |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
703 points [0].x = x; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
704 points [0].y = y + height / 2; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
705 points [1].x = x + thickness; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
706 points [1].y = y + height / 2; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
707 points [2].x = x + width / 2; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
708 points [2].y = y + thickness; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
709 points [3].x = x + width / 2; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
710 points [3].y = y; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
711 XFillPolygon (dpy, window, top_gc, points, 4, Convex, CoordModeOrigin); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
712 points [0].x = x + width / 2; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
713 points [0].y = y; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
714 points [1].x = x + width / 2; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
715 points [1].y = y + thickness; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
716 points [2].x = x + width - thickness; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
717 points [2].y = y + height / 2; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
718 points [3].x = x + width; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
719 points [3].y = y + height / 2; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
720 XFillPolygon (dpy, window, top_gc, points, 4, Convex, CoordModeOrigin); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
721 points [0].x = x; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
722 points [0].y = y + height / 2; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
723 points [1].x = x + thickness; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
724 points [1].y = y + height / 2; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
725 points [2].x = x + width / 2; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
726 points [2].y = y + height - thickness; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
727 points [3].x = x + width / 2; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
728 points [3].y = y + height; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
729 XFillPolygon (dpy, window, bottom_gc, points, 4, Convex, CoordModeOrigin); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
730 points [0].x = x + width / 2; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
731 points [0].y = y + height; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
732 points [1].x = x + width / 2; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
733 points [1].y = y + height - thickness; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
734 points [2].x = x + width - thickness; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
735 points [2].y = y + height / 2; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
736 points [3].x = x + width; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
737 points [3].y = y + height / 2; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
738 XFillPolygon (dpy, window, bottom_gc, points, 4, Convex, CoordModeOrigin); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
739 } |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
740 |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
741 |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
742 /* Draw a toggle button on widget MW, X window WINDOW. X/Y is the |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
743 top-left corner of the menu item. SELECTED_P non-zero means the |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
744 toggle button is selected. */ |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
745 |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
746 static void |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
747 draw_toggle (mw, window, x, y, selected_p) |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
748 XlwMenuWidget mw; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
749 Window window; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
750 int x, y, selected_p; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
751 { |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
752 int width, height; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
753 |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
754 width = toggle_button_width (mw); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
755 height = width; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
756 x += mw->menu.horizontal_spacing; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
757 y += (mw->menu.font->ascent - height) / 2; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
758 draw_shadow_rectangle (mw, window, x, y, width, height, False, selected_p); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
759 } |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
760 |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
761 |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
762 /* Draw a radio button on widget MW, X window WINDOW. X/Y is the |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
763 top-left corner of the menu item. SELECTED_P non-zero means the |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
764 toggle button is selected. */ |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
765 |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
766 static void |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
767 draw_radio (mw, window, x, y, selected_p) |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
768 XlwMenuWidget mw; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
769 Window window; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
770 int x, y, selected_p; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
771 { |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
772 int width, height; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
773 |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
774 width = radio_button_width (mw); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
775 height = width; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
776 x += mw->menu.horizontal_spacing; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
777 y += (mw->menu.font->ascent - height) / 2; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
778 draw_shadow_rhombus (mw, window, x, y, width, height, False, selected_p); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
779 } |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
780 |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
781 |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
782 /* Draw a menu separator on widget MW, X window WINDOW. X/Y is the |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
783 top-left corner of the menu item. WIDTH is the width of the |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
784 separator to draw. TYPE is the separator type. */ |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
785 |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
786 static void |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
787 draw_separator (mw, window, x, y, width, type) |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
788 XlwMenuWidget mw; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
789 Window window; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
790 int x, y, width; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
791 enum menu_separator type; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
792 { |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
793 Display *dpy = XtDisplay (mw); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
794 XGCValues xgcv; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
795 |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
796 switch (type) |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
797 { |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
798 case SEPARATOR_NO_LINE: |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
799 break; |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
800 |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
801 case SEPARATOR_SINGLE_LINE: |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
802 XDrawLine (dpy, window, mw->menu.foreground_gc, |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
803 x, y, x + width, y); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
804 break; |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
805 |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
806 case SEPARATOR_DOUBLE_LINE: |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
807 draw_separator (mw, window, x, y, width, SEPARATOR_SINGLE_LINE); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
808 draw_separator (mw, window, x, y + 2, width, SEPARATOR_SINGLE_LINE); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
809 break; |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
810 |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
811 case SEPARATOR_SINGLE_DASHED_LINE: |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
812 xgcv.line_style = LineOnOffDash; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
813 XChangeGC (dpy, mw->menu.foreground_gc, GCLineStyle, &xgcv); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
814 XDrawLine (dpy, window, mw->menu.foreground_gc, |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
815 x, y, x + width, y); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
816 xgcv.line_style = LineSolid; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
817 XChangeGC (dpy, mw->menu.foreground_gc, GCLineStyle, &xgcv); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
818 break; |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
819 |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
820 case SEPARATOR_DOUBLE_DASHED_LINE: |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
821 draw_separator (mw, window, x, y, width, |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
822 SEPARATOR_SINGLE_DASHED_LINE); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
823 draw_separator (mw, window, x, y + 2, width, |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
824 SEPARATOR_SINGLE_DASHED_LINE); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
825 break; |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
826 |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
827 case SEPARATOR_SHADOW_ETCHED_IN: |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
828 XDrawLine (dpy, window, mw->menu.shadow_bottom_gc, |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
829 x, y, x + width, y); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
830 XDrawLine (dpy, window, mw->menu.shadow_top_gc, |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
831 x, y + 1, x + width, y + 1); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
832 break; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
833 |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
834 case SEPARATOR_SHADOW_ETCHED_OUT: |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
835 XDrawLine (dpy, window, mw->menu.shadow_top_gc, |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
836 x, y, x + width, y); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
837 XDrawLine (dpy, window, mw->menu.shadow_bottom_gc, |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
838 x, y + 1, x + width, y + 1); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
839 break; |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
840 |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
841 case SEPARATOR_SHADOW_ETCHED_IN_DASH: |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
842 xgcv.line_style = LineOnOffDash; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
843 XChangeGC (dpy, mw->menu.shadow_bottom_gc, GCLineStyle, &xgcv); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
844 XChangeGC (dpy, mw->menu.shadow_top_gc, GCLineStyle, &xgcv); |
34436
a27cc46a67b4
(draw_separator) <SEPARATOR_SHADOW_ETCHED_IN_DASH>:
Dave Love <fx@gnu.org>
parents:
33714
diff
changeset
|
845 draw_separator (mw, window, x, y, width, SEPARATOR_SHADOW_ETCHED_IN); |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
846 xgcv.line_style = LineSolid; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
847 XChangeGC (dpy, mw->menu.shadow_bottom_gc, GCLineStyle, &xgcv); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
848 XChangeGC (dpy, mw->menu.shadow_top_gc, GCLineStyle, &xgcv); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
849 break; |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
850 |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
851 case SEPARATOR_SHADOW_ETCHED_OUT_DASH: |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
852 xgcv.line_style = LineOnOffDash; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
853 XChangeGC (dpy, mw->menu.shadow_bottom_gc, GCLineStyle, &xgcv); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
854 XChangeGC (dpy, mw->menu.shadow_top_gc, GCLineStyle, &xgcv); |
34436
a27cc46a67b4
(draw_separator) <SEPARATOR_SHADOW_ETCHED_IN_DASH>:
Dave Love <fx@gnu.org>
parents:
33714
diff
changeset
|
855 draw_separator (mw, window, x, y, width, SEPARATOR_SHADOW_ETCHED_OUT); |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
856 xgcv.line_style = LineSolid; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
857 XChangeGC (dpy, mw->menu.shadow_bottom_gc, GCLineStyle, &xgcv); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
858 XChangeGC (dpy, mw->menu.shadow_top_gc, GCLineStyle, &xgcv); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
859 break; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
860 |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
861 case SEPARATOR_SHADOW_DOUBLE_ETCHED_IN: |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
862 draw_separator (mw, window, x, y, width, SEPARATOR_SHADOW_ETCHED_IN); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
863 draw_separator (mw, window, x, y + 3, width, SEPARATOR_SHADOW_ETCHED_IN); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
864 break; |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
865 |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
866 case SEPARATOR_SHADOW_DOUBLE_ETCHED_OUT: |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
867 draw_separator (mw, window, x, y, width, |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
868 SEPARATOR_SHADOW_ETCHED_OUT); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
869 draw_separator (mw, window, x, y + 3, width, |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
870 SEPARATOR_SHADOW_ETCHED_OUT); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
871 break; |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
872 |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
873 case SEPARATOR_SHADOW_DOUBLE_ETCHED_IN_DASH: |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
874 xgcv.line_style = LineOnOffDash; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
875 XChangeGC (dpy, mw->menu.shadow_bottom_gc, GCLineStyle, &xgcv); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
876 XChangeGC (dpy, mw->menu.shadow_top_gc, GCLineStyle, &xgcv); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
877 draw_separator (mw, window, x, y, width, |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
878 SEPARATOR_SHADOW_DOUBLE_ETCHED_IN); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
879 xgcv.line_style = LineSolid; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
880 XChangeGC (dpy, mw->menu.shadow_bottom_gc, GCLineStyle, &xgcv); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
881 XChangeGC (dpy, mw->menu.shadow_top_gc, GCLineStyle, &xgcv); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
882 break; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
883 |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
884 case SEPARATOR_SHADOW_DOUBLE_ETCHED_OUT_DASH: |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
885 xgcv.line_style = LineOnOffDash; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
886 XChangeGC (dpy, mw->menu.shadow_bottom_gc, GCLineStyle, &xgcv); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
887 XChangeGC (dpy, mw->menu.shadow_top_gc, GCLineStyle, &xgcv); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
888 draw_separator (mw, window, x, y, width, |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
889 SEPARATOR_SHADOW_DOUBLE_ETCHED_OUT); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
890 xgcv.line_style = LineSolid; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
891 XChangeGC (dpy, mw->menu.shadow_bottom_gc, GCLineStyle, &xgcv); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
892 XChangeGC (dpy, mw->menu.shadow_top_gc, GCLineStyle, &xgcv); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
893 break; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
894 |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
895 default: |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
896 abort (); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
897 } |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
898 } |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
899 |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
900 |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
901 /* Return the pixel height of menu separator SEPARATOR. */ |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
902 |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
903 static int |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
904 separator_height (separator) |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
905 enum menu_separator separator; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
906 { |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
907 switch (separator) |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
908 { |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
909 case SEPARATOR_NO_LINE: |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
910 return 2; |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
911 |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
912 case SEPARATOR_SINGLE_LINE: |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
913 case SEPARATOR_SINGLE_DASHED_LINE: |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
914 return 1; |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
915 |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
916 case SEPARATOR_DOUBLE_LINE: |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
917 case SEPARATOR_DOUBLE_DASHED_LINE: |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
918 return 3; |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
919 |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
920 case SEPARATOR_SHADOW_ETCHED_IN: |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
921 case SEPARATOR_SHADOW_ETCHED_OUT: |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
922 case SEPARATOR_SHADOW_ETCHED_IN_DASH: |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
923 case SEPARATOR_SHADOW_ETCHED_OUT_DASH: |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
924 return 2; |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
925 |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
926 case SEPARATOR_SHADOW_DOUBLE_ETCHED_IN: |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
927 case SEPARATOR_SHADOW_DOUBLE_ETCHED_OUT: |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
928 case SEPARATOR_SHADOW_DOUBLE_ETCHED_IN_DASH: |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
929 case SEPARATOR_SHADOW_DOUBLE_ETCHED_OUT_DASH: |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
930 return 5; |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
931 |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
932 default: |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
933 abort (); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
934 } |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
935 } |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
936 |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
937 |
5626 | 938 /* Display the menu item and increment where.x and where.y to show how large |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
939 the menu item was. */ |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
940 |
5626 | 941 static void |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
942 display_menu_item (mw, val, ws, where, highlighted_p, horizontal_p, |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
943 just_compute_p) |
8860 | 944 XlwMenuWidget mw; |
945 widget_value* val; | |
946 window_state* ws; | |
947 XPoint* where; | |
948 Boolean highlighted_p; | |
949 Boolean horizontal_p; | |
950 Boolean just_compute_p; | |
5626 | 951 { |
952 GC deco_gc; | |
953 GC text_gc; | |
954 int font_ascent = mw->menu.font->ascent; | |
955 int font_descent = mw->menu.font->descent; | |
956 int shadow = mw->menu.shadow_thickness; | |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
957 int margin = mw->menu.margin; |
5626 | 958 int h_spacing = mw->menu.horizontal_spacing; |
959 int v_spacing = mw->menu.vertical_spacing; | |
960 int label_width; | |
961 int rest_width; | |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
962 int button_width; |
5626 | 963 int height; |
964 int width; | |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
965 enum menu_separator separator; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
966 int separator_p = lw_separator_p (val->name, &separator, 0); |
5626 | 967 |
968 /* compute the sizes of the item */ | |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
969 size_menu_item (mw, val, horizontal_p, &label_width, &rest_width, |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
970 &button_width, &height); |
5626 | 971 |
972 if (horizontal_p) | |
973 width = label_width + rest_width; | |
974 else | |
975 { | |
976 label_width = ws->label_width; | |
977 width = ws->width - 2 * shadow; | |
978 } | |
979 | |
980 /* Only highlight an enabled item that has a callback. */ | |
981 if (highlighted_p) | |
982 if (!val->enabled || !(val->call_data || val->contents)) | |
983 highlighted_p = 0; | |
984 | |
985 /* do the drawing. */ | |
986 if (!just_compute_p) | |
987 { | |
988 /* Add the shadow border of the containing menu */ | |
989 int x = where->x + shadow; | |
990 int y = where->y + shadow; | |
991 | |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
992 if (horizontal_p) |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
993 { |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
994 x += margin; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
995 y += margin; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
996 } |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
997 |
5626 | 998 /* pick the foreground and background GC. */ |
999 if (val->enabled) | |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
1000 text_gc = mw->menu.foreground_gc; |
5626 | 1001 else |
45147
e10cf8f440ae
(xlwMenuResources): New resource.
Pavel Janík <Pavel@Janik.cz>
parents:
44966
diff
changeset
|
1002 text_gc = mw->menu.disabled_gc; |
5626 | 1003 deco_gc = mw->menu.foreground_gc; |
1004 | |
1005 if (separator_p) | |
1006 { | |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
1007 draw_separator (mw, ws->window, x, y, width, separator); |
5626 | 1008 } |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
1009 else |
5626 | 1010 { |
9227
968bb25ec1af
(display_menu_item): Add support for displaying the title in pop up menus.
Paul Reilly <pmr@pajato.com>
parents:
9092
diff
changeset
|
1011 int x_offset = x + h_spacing + shadow; |
5626 | 1012 char* display_string = resource_widget_value (mw, val); |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
1013 draw_shadow_rectangle (mw, ws->window, x, y, width, height, True, |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
1014 False); |
9227
968bb25ec1af
(display_menu_item): Add support for displaying the title in pop up menus.
Paul Reilly <pmr@pajato.com>
parents:
9092
diff
changeset
|
1015 |
968bb25ec1af
(display_menu_item): Add support for displaying the title in pop up menus.
Paul Reilly <pmr@pajato.com>
parents:
9092
diff
changeset
|
1016 /* Deal with centering a menu title. */ |
968bb25ec1af
(display_menu_item): Add support for displaying the title in pop up menus.
Paul Reilly <pmr@pajato.com>
parents:
9092
diff
changeset
|
1017 if (!horizontal_p && !val->contents && !val->call_data) |
968bb25ec1af
(display_menu_item): Add support for displaying the title in pop up menus.
Paul Reilly <pmr@pajato.com>
parents:
9092
diff
changeset
|
1018 { |
968bb25ec1af
(display_menu_item): Add support for displaying the title in pop up menus.
Paul Reilly <pmr@pajato.com>
parents:
9092
diff
changeset
|
1019 int l = string_width (mw, display_string); |
968bb25ec1af
(display_menu_item): Add support for displaying the title in pop up menus.
Paul Reilly <pmr@pajato.com>
parents:
9092
diff
changeset
|
1020 |
968bb25ec1af
(display_menu_item): Add support for displaying the title in pop up menus.
Paul Reilly <pmr@pajato.com>
parents:
9092
diff
changeset
|
1021 if (width > l) |
968bb25ec1af
(display_menu_item): Add support for displaying the title in pop up menus.
Paul Reilly <pmr@pajato.com>
parents:
9092
diff
changeset
|
1022 x_offset = (width - l) >> 1; |
968bb25ec1af
(display_menu_item): Add support for displaying the title in pop up menus.
Paul Reilly <pmr@pajato.com>
parents:
9092
diff
changeset
|
1023 } |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
1024 else if (!horizontal_p && ws->button_width) |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
1025 x_offset += ws->button_width; |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
1026 |
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
1027 |
9227
968bb25ec1af
(display_menu_item): Add support for displaying the title in pop up menus.
Paul Reilly <pmr@pajato.com>
parents:
9092
diff
changeset
|
1028 XDrawString (XtDisplay (mw), ws->window, text_gc, x_offset, |
5626 | 1029 y + v_spacing + shadow + font_ascent, |
1030 display_string, strlen (display_string)); | |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
1031 |
5626 | 1032 if (!horizontal_p) |
1033 { | |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
1034 if (val->button_type == BUTTON_TYPE_TOGGLE) |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
1035 draw_toggle (mw, ws->window, x, y + v_spacing + shadow, |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
1036 val->selected); |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
1037 else if (val->button_type == BUTTON_TYPE_RADIO) |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
1038 draw_radio (mw, ws->window, x, y + v_spacing + shadow, |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
1039 val->selected); |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
1040 |
5626 | 1041 if (val->contents) |
1042 { | |
1043 int a_w = arrow_width (mw); | |
1044 draw_arrow (mw, ws->window, deco_gc, | |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
1045 x + width - a_w |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
1046 - mw->menu.horizontal_spacing |
8860 | 1047 - mw->menu.shadow_thickness, |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
1048 y + v_spacing + shadow, a_w, |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
1049 highlighted_p); |
5626 | 1050 } |
1051 else if (val->key) | |
1052 { | |
1053 XDrawString (XtDisplay (mw), ws->window, text_gc, | |
1054 x + label_width + mw->menu.arrow_spacing, | |
1055 y + v_spacing + shadow + font_ascent, | |
1056 val->key, strlen (val->key)); | |
1057 } | |
1058 } | |
8860 | 1059 else |
1060 { | |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
1061 XDrawRectangle (XtDisplay (mw), ws->window, |
8860 | 1062 mw->menu.background_gc, |
1063 x + shadow, y + shadow, | |
1064 label_width + h_spacing - 1, | |
1065 font_ascent + font_descent + 2 * v_spacing - 1); | |
1066 draw_shadow_rectangle (mw, ws->window, x, y, width, height, | |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
1067 True, False); |
8860 | 1068 } |
5626 | 1069 |
1070 if (highlighted_p) | |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
1071 draw_shadow_rectangle (mw, ws->window, x, y, width, height, False, |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
1072 False); |
5626 | 1073 } |
1074 } | |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
1075 |
5626 | 1076 where->x += width; |
1077 where->y += height; | |
1078 } | |
1079 | |
1080 static void | |
8860 | 1081 display_menu (mw, level, just_compute_p, highlighted_pos, hit, hit_return, |
1082 this, that) | |
1083 XlwMenuWidget mw; | |
1084 int level; | |
1085 Boolean just_compute_p; | |
1086 XPoint* highlighted_pos; | |
1087 XPoint* hit; | |
1088 widget_value** hit_return; | |
1089 widget_value* this; | |
1090 widget_value* that; | |
5626 | 1091 { |
1092 widget_value* val; | |
1093 widget_value* following_item; | |
1094 window_state* ws; | |
1095 XPoint where; | |
1096 int horizontal_p = mw->menu.horizontal && (level == 0); | |
1097 int highlighted_p; | |
1098 int just_compute_this_one_p; | |
18993
c3bfd473a4d3
(display_menu): If an item is disabled,
Richard M. Stallman <rms@gnu.org>
parents:
17622
diff
changeset
|
1099 /* This is set nonzero if the element containing HIGHLIGHTED_POS |
c3bfd473a4d3
(display_menu): If an item is disabled,
Richard M. Stallman <rms@gnu.org>
parents:
17622
diff
changeset
|
1100 is disabled, so that we do not return any subsequent element either. */ |
c3bfd473a4d3
(display_menu): If an item is disabled,
Richard M. Stallman <rms@gnu.org>
parents:
17622
diff
changeset
|
1101 int no_return = 0; |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
1102 enum menu_separator separator; |
5626 | 1103 |
1104 if (level >= mw->menu.old_depth) | |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
1105 abort_gracefully ((Widget) mw); |
5626 | 1106 |
1107 if (level < mw->menu.old_depth - 1) | |
1108 following_item = mw->menu.old_stack [level + 1]; | |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
1109 else |
5626 | 1110 following_item = NULL; |
1111 | |
1112 if (hit) | |
1113 *hit_return = NULL; | |
1114 | |
1115 where.x = 0; | |
1116 where.y = 0; | |
1117 | |
1118 ws = &mw->menu.windows [level]; | |
1119 for (val = mw->menu.old_stack [level]->contents; val; val = val->next) | |
1120 { | |
1121 highlighted_p = val == following_item; | |
1122 if (highlighted_p && highlighted_pos) | |
1123 { | |
1124 if (horizontal_p) | |
1125 highlighted_pos->x = where.x; | |
1126 else | |
1127 highlighted_pos->y = where.y; | |
1128 } | |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
1129 |
5626 | 1130 just_compute_this_one_p = |
1131 just_compute_p || ((this || that) && val != this && val != that); | |
1132 | |
1133 display_menu_item (mw, val, ws, &where, highlighted_p, horizontal_p, | |
1134 just_compute_this_one_p); | |
1135 | |
1136 if (highlighted_p && highlighted_pos) | |
1137 { | |
1138 if (horizontal_p) | |
1139 highlighted_pos->y = where.y; | |
1140 else | |
1141 highlighted_pos->x = where.x; | |
1142 } | |
1143 | |
1144 if (hit | |
1145 && !*hit_return | |
1146 && (horizontal_p ? hit->x < where.x : hit->y < where.y) | |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
1147 && !lw_separator_p (val->name, &separator, 0) |
18993
c3bfd473a4d3
(display_menu): If an item is disabled,
Richard M. Stallman <rms@gnu.org>
parents:
17622
diff
changeset
|
1148 && !no_return) |
c3bfd473a4d3
(display_menu): If an item is disabled,
Richard M. Stallman <rms@gnu.org>
parents:
17622
diff
changeset
|
1149 { |
c3bfd473a4d3
(display_menu): If an item is disabled,
Richard M. Stallman <rms@gnu.org>
parents:
17622
diff
changeset
|
1150 if (val->enabled) |
c3bfd473a4d3
(display_menu): If an item is disabled,
Richard M. Stallman <rms@gnu.org>
parents:
17622
diff
changeset
|
1151 *hit_return = val; |
c3bfd473a4d3
(display_menu): If an item is disabled,
Richard M. Stallman <rms@gnu.org>
parents:
17622
diff
changeset
|
1152 else |
c3bfd473a4d3
(display_menu): If an item is disabled,
Richard M. Stallman <rms@gnu.org>
parents:
17622
diff
changeset
|
1153 no_return = 1; |
c3bfd473a4d3
(display_menu): If an item is disabled,
Richard M. Stallman <rms@gnu.org>
parents:
17622
diff
changeset
|
1154 } |
5626 | 1155 |
1156 if (horizontal_p) | |
1157 where.y = 0; | |
1158 else | |
1159 where.x = 0; | |
1160 } | |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
1161 |
5626 | 1162 if (!just_compute_p) |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
1163 draw_shadow_rectangle (mw, ws->window, 0, 0, ws->width, ws->height, |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
1164 False, False); |
5626 | 1165 } |
1166 | |
1167 /* Motion code */ | |
1168 static void | |
8860 | 1169 set_new_state (mw, val, level) |
1170 XlwMenuWidget mw; | |
1171 widget_value* val; | |
1172 int level; | |
5626 | 1173 { |
1174 int i; | |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
1175 |
5626 | 1176 mw->menu.new_depth = 0; |
1177 for (i = 0; i < level; i++) | |
1178 push_new_stack (mw, mw->menu.old_stack [i]); | |
1179 push_new_stack (mw, val); | |
1180 } | |
1181 | |
1182 static void | |
8860 | 1183 make_windows_if_needed (mw, n) |
1184 XlwMenuWidget mw; | |
1185 int n; | |
5626 | 1186 { |
1187 int i; | |
1188 int start_at; | |
1189 XSetWindowAttributes xswa; | |
1190 int mask; | |
1191 Window root = RootWindowOfScreen (DefaultScreenOfDisplay (XtDisplay (mw))); | |
1192 window_state* windows; | |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
1193 |
5626 | 1194 if (mw->menu.windows_length >= n) |
1195 return; | |
1196 | |
1197 xswa.save_under = True; | |
1198 xswa.override_redirect = True; | |
1199 xswa.background_pixel = mw->core.background_pixel; | |
1200 xswa.border_pixel = mw->core.border_pixel; | |
1201 xswa.event_mask = | |
8860 | 1202 ExposureMask | PointerMotionMask | PointerMotionHintMask |
5626 | 1203 | ButtonReleaseMask | ButtonPressMask; |
1204 xswa.cursor = mw->menu.cursor_shape; | |
1205 mask = CWSaveUnder | CWOverrideRedirect | CWBackPixel | CWBorderPixel | |
1206 | CWEventMask | CWCursor; | |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
1207 |
5626 | 1208 if (!mw->menu.windows) |
1209 { | |
1210 mw->menu.windows = | |
1211 (window_state*)XtMalloc (n * sizeof (window_state)); | |
1212 start_at = 0; | |
1213 } | |
1214 else | |
1215 { | |
1216 mw->menu.windows = | |
1217 (window_state*)XtRealloc ((char*)mw->menu.windows, | |
1218 n * sizeof (window_state)); | |
1219 start_at = mw->menu.windows_length; | |
1220 } | |
1221 mw->menu.windows_length = n; | |
1222 | |
1223 windows = mw->menu.windows; | |
1224 | |
1225 for (i = start_at; i < n; i++) | |
1226 { | |
1227 windows [i].x = 0; | |
1228 windows [i].y = 0; | |
1229 windows [i].width = 1; | |
1230 windows [i].height = 1; | |
1231 windows [i].window = | |
1232 XCreateWindow (XtDisplay (mw), root, 0, 0, 1, 1, | |
1233 0, 0, CopyFromParent, CopyFromParent, mask, &xswa); | |
1234 } | |
1235 } | |
1236 | |
37524
f0a59a792f7d
(xlwmenu_window_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34557
diff
changeset
|
1237 /* Value is non-zero if WINDOW is part of menu bar widget W. */ |
f0a59a792f7d
(xlwmenu_window_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34557
diff
changeset
|
1238 |
f0a59a792f7d
(xlwmenu_window_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34557
diff
changeset
|
1239 int |
f0a59a792f7d
(xlwmenu_window_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34557
diff
changeset
|
1240 xlwmenu_window_p (w, window) |
f0a59a792f7d
(xlwmenu_window_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34557
diff
changeset
|
1241 Widget w; |
f0a59a792f7d
(xlwmenu_window_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34557
diff
changeset
|
1242 Window window; |
f0a59a792f7d
(xlwmenu_window_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34557
diff
changeset
|
1243 { |
f0a59a792f7d
(xlwmenu_window_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34557
diff
changeset
|
1244 XlwMenuWidget mw = (XlwMenuWidget) w; |
f0a59a792f7d
(xlwmenu_window_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34557
diff
changeset
|
1245 int i; |
f0a59a792f7d
(xlwmenu_window_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34557
diff
changeset
|
1246 |
f0a59a792f7d
(xlwmenu_window_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34557
diff
changeset
|
1247 for (i = 0; i < mw->menu.windows_length; ++i) |
f0a59a792f7d
(xlwmenu_window_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34557
diff
changeset
|
1248 if (window == mw->menu.windows[i].window) |
f0a59a792f7d
(xlwmenu_window_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34557
diff
changeset
|
1249 break; |
f0a59a792f7d
(xlwmenu_window_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34557
diff
changeset
|
1250 |
f0a59a792f7d
(xlwmenu_window_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34557
diff
changeset
|
1251 return i < mw->menu.windows_length; |
f0a59a792f7d
(xlwmenu_window_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34557
diff
changeset
|
1252 } |
f0a59a792f7d
(xlwmenu_window_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34557
diff
changeset
|
1253 |
5626 | 1254 /* Make the window fit in the screen */ |
1255 static void | |
8860 | 1256 fit_to_screen (mw, ws, previous_ws, horizontal_p) |
1257 XlwMenuWidget mw; | |
1258 window_state* ws; | |
1259 window_state* previous_ws; | |
1260 Boolean horizontal_p; | |
5626 | 1261 { |
11461
65c12e57f119
(size_menu): Make height and label_width unsigned.
Richard M. Stallman <rms@gnu.org>
parents:
9746
diff
changeset
|
1262 unsigned int screen_width = WidthOfScreen (XtScreen (mw)); |
65c12e57f119
(size_menu): Make height and label_width unsigned.
Richard M. Stallman <rms@gnu.org>
parents:
9746
diff
changeset
|
1263 unsigned int screen_height = HeightOfScreen (XtScreen (mw)); |
16917
5aabcff9fdd3
(enriched-translations): Add top' and choice' everywhere so that *
Richard M. Stallman <rms@gnu.org>
parents:
15742
diff
changeset
|
1264 /* 1 if we are unable to avoid an overlap between |
5aabcff9fdd3
(enriched-translations): Add top' and choice' everywhere so that *
Richard M. Stallman <rms@gnu.org>
parents:
15742
diff
changeset
|
1265 this menu and the parent menu in the X dimension. */ |
5aabcff9fdd3
(enriched-translations): Add top' and choice' everywhere so that *
Richard M. Stallman <rms@gnu.org>
parents:
15742
diff
changeset
|
1266 int horizontal_overlap = 0; |
5626 | 1267 |
1268 if (ws->x < 0) | |
1269 ws->x = 0; | |
1270 else if (ws->x + ws->width > screen_width) | |
1271 { | |
1272 if (!horizontal_p) | |
31370 | 1273 /* The addition of shadow-thickness for a sub-menu's position is |
1274 to reflect a similar adjustment when the menu is displayed to | |
1275 the right of the invoking menu-item; it makes the sub-menu | |
1276 look more `attached' to the menu-item. */ | |
1277 ws->x = previous_ws->x - ws->width + mw->menu.shadow_thickness; | |
5626 | 1278 else |
1279 ws->x = screen_width - ws->width; | |
9395
d954daf0a213
(fit_to_screen): Don't put the menu off the left or top.
Richard M. Stallman <rms@gnu.org>
parents:
9227
diff
changeset
|
1280 if (ws->x < 0) |
16917
5aabcff9fdd3
(enriched-translations): Add top' and choice' everywhere so that *
Richard M. Stallman <rms@gnu.org>
parents:
15742
diff
changeset
|
1281 { |
5aabcff9fdd3
(enriched-translations): Add top' and choice' everywhere so that *
Richard M. Stallman <rms@gnu.org>
parents:
15742
diff
changeset
|
1282 ws->x = 0; |
5aabcff9fdd3
(enriched-translations): Add top' and choice' everywhere so that *
Richard M. Stallman <rms@gnu.org>
parents:
15742
diff
changeset
|
1283 horizontal_overlap = 1; |
5aabcff9fdd3
(enriched-translations): Add top' and choice' everywhere so that *
Richard M. Stallman <rms@gnu.org>
parents:
15742
diff
changeset
|
1284 } |
5626 | 1285 } |
16917
5aabcff9fdd3
(enriched-translations): Add top' and choice' everywhere so that *
Richard M. Stallman <rms@gnu.org>
parents:
15742
diff
changeset
|
1286 /* If we overlap in X, try to avoid overlap in Y. */ |
5aabcff9fdd3
(enriched-translations): Add top' and choice' everywhere so that *
Richard M. Stallman <rms@gnu.org>
parents:
15742
diff
changeset
|
1287 if (horizontal_overlap |
5aabcff9fdd3
(enriched-translations): Add top' and choice' everywhere so that *
Richard M. Stallman <rms@gnu.org>
parents:
15742
diff
changeset
|
1288 && ws->y < previous_ws->y + previous_ws->height |
5aabcff9fdd3
(enriched-translations): Add top' and choice' everywhere so that *
Richard M. Stallman <rms@gnu.org>
parents:
15742
diff
changeset
|
1289 && previous_ws->y < ws->y + ws->height) |
5aabcff9fdd3
(enriched-translations): Add top' and choice' everywhere so that *
Richard M. Stallman <rms@gnu.org>
parents:
15742
diff
changeset
|
1290 { |
5aabcff9fdd3
(enriched-translations): Add top' and choice' everywhere so that *
Richard M. Stallman <rms@gnu.org>
parents:
15742
diff
changeset
|
1291 /* Put this menu right below or right above PREVIOUS_WS |
5aabcff9fdd3
(enriched-translations): Add top' and choice' everywhere so that *
Richard M. Stallman <rms@gnu.org>
parents:
15742
diff
changeset
|
1292 if there's room. */ |
5aabcff9fdd3
(enriched-translations): Add top' and choice' everywhere so that *
Richard M. Stallman <rms@gnu.org>
parents:
15742
diff
changeset
|
1293 if (previous_ws->y + previous_ws->height + ws->height < screen_height) |
5aabcff9fdd3
(enriched-translations): Add top' and choice' everywhere so that *
Richard M. Stallman <rms@gnu.org>
parents:
15742
diff
changeset
|
1294 ws->y = previous_ws->y + previous_ws->height; |
5aabcff9fdd3
(enriched-translations): Add top' and choice' everywhere so that *
Richard M. Stallman <rms@gnu.org>
parents:
15742
diff
changeset
|
1295 else if (previous_ws->y - ws->height > 0) |
5aabcff9fdd3
(enriched-translations): Add top' and choice' everywhere so that *
Richard M. Stallman <rms@gnu.org>
parents:
15742
diff
changeset
|
1296 ws->y = previous_ws->y - ws->height; |
5aabcff9fdd3
(enriched-translations): Add top' and choice' everywhere so that *
Richard M. Stallman <rms@gnu.org>
parents:
15742
diff
changeset
|
1297 } |
5aabcff9fdd3
(enriched-translations): Add top' and choice' everywhere so that *
Richard M. Stallman <rms@gnu.org>
parents:
15742
diff
changeset
|
1298 |
5626 | 1299 if (ws->y < 0) |
1300 ws->y = 0; | |
1301 else if (ws->y + ws->height > screen_height) | |
1302 { | |
1303 if (horizontal_p) | |
1304 ws->y = previous_ws->y - ws->height; | |
1305 else | |
1306 ws->y = screen_height - ws->height; | |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
1307 if (ws->y < 0) |
9395
d954daf0a213
(fit_to_screen): Don't put the menu off the left or top.
Richard M. Stallman <rms@gnu.org>
parents:
9227
diff
changeset
|
1308 ws->y = 0; |
5626 | 1309 } |
1310 } | |
1311 | |
1312 /* Updates old_stack from new_stack and redisplays. */ | |
1313 static void | |
8860 | 1314 remap_menubar (mw) |
1315 XlwMenuWidget mw; | |
5626 | 1316 { |
1317 int i; | |
1318 int last_same; | |
1319 XPoint selection_position; | |
1320 int old_depth = mw->menu.old_depth; | |
1321 int new_depth = mw->menu.new_depth; | |
1322 widget_value** old_stack; | |
1323 widget_value** new_stack; | |
1324 window_state* windows; | |
1325 widget_value* old_selection; | |
1326 widget_value* new_selection; | |
1327 | |
1328 /* Check that enough windows and old_stack are ready. */ | |
1329 make_windows_if_needed (mw, new_depth); | |
1330 make_old_stack_space (mw, new_depth); | |
1331 windows = mw->menu.windows; | |
1332 old_stack = mw->menu.old_stack; | |
1333 new_stack = mw->menu.new_stack; | |
1334 | |
1335 /* compute the last identical different entry */ | |
1336 for (i = 1; i < old_depth && i < new_depth; i++) | |
1337 if (old_stack [i] != new_stack [i]) | |
1338 break; | |
1339 last_same = i - 1; | |
1340 | |
1341 /* Memorize the previously selected item to be able to refresh it */ | |
1342 old_selection = last_same + 1 < old_depth ? old_stack [last_same + 1] : NULL; | |
1343 if (old_selection && !old_selection->enabled) | |
1344 old_selection = NULL; | |
1345 new_selection = last_same + 1 < new_depth ? new_stack [last_same + 1] : NULL; | |
1346 if (new_selection && !new_selection->enabled) | |
1347 new_selection = NULL; | |
1348 | |
27338
58f8eee82765
(xlwMenuResources): All XtNhighlightCallback.
Gerd Moellmann <gerd@gnu.org>
parents:
26087
diff
changeset
|
1349 /* Call callback when the hightlighted item changes. */ |
58f8eee82765
(xlwMenuResources): All XtNhighlightCallback.
Gerd Moellmann <gerd@gnu.org>
parents:
26087
diff
changeset
|
1350 if (old_selection || new_selection) |
58f8eee82765
(xlwMenuResources): All XtNhighlightCallback.
Gerd Moellmann <gerd@gnu.org>
parents:
26087
diff
changeset
|
1351 XtCallCallbackList ((Widget)mw, mw->menu.highlight, |
58f8eee82765
(xlwMenuResources): All XtNhighlightCallback.
Gerd Moellmann <gerd@gnu.org>
parents:
26087
diff
changeset
|
1352 (XtPointer) new_selection); |
58f8eee82765
(xlwMenuResources): All XtNhighlightCallback.
Gerd Moellmann <gerd@gnu.org>
parents:
26087
diff
changeset
|
1353 |
5626 | 1354 /* updates old_state from new_state. It has to be done now because |
1355 display_menu (called below) uses the old_stack to know what to display. */ | |
1356 for (i = last_same + 1; i < new_depth; i++) | |
1357 old_stack [i] = new_stack [i]; | |
1358 mw->menu.old_depth = new_depth; | |
1359 | |
14018 | 1360 /* refresh the last selection */ |
5626 | 1361 selection_position.x = 0; |
1362 selection_position.y = 0; | |
1363 display_menu (mw, last_same, new_selection == old_selection, | |
1364 &selection_position, NULL, NULL, old_selection, new_selection); | |
1365 | |
16917
5aabcff9fdd3
(enriched-translations): Add top' and choice' everywhere so that *
Richard M. Stallman <rms@gnu.org>
parents:
15742
diff
changeset
|
1366 /* Now place the new menus. */ |
5aabcff9fdd3
(enriched-translations): Add top' and choice' everywhere so that *
Richard M. Stallman <rms@gnu.org>
parents:
15742
diff
changeset
|
1367 for (i = last_same + 1; i < new_depth && new_stack[i]->contents; i++) |
5626 | 1368 { |
16917
5aabcff9fdd3
(enriched-translations): Add top' and choice' everywhere so that *
Richard M. Stallman <rms@gnu.org>
parents:
15742
diff
changeset
|
1369 window_state *previous_ws = &windows[i - 1]; |
5aabcff9fdd3
(enriched-translations): Add top' and choice' everywhere so that *
Richard M. Stallman <rms@gnu.org>
parents:
15742
diff
changeset
|
1370 window_state *ws = &windows[i]; |
5626 | 1371 |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
1372 ws->x = (previous_ws->x + selection_position.x |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
1373 + mw->menu.shadow_thickness); |
31370 | 1374 if (mw->menu.horizontal && i == 1) |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
1375 ws->x += mw->menu.margin; |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
1376 |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
1377 #if 0 |
5626 | 1378 if (!mw->menu.horizontal || i > 1) |
1379 ws->x += mw->menu.shadow_thickness; | |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
1380 #endif |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
1381 |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
1382 ws->y = (previous_ws->y + selection_position.y |
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
1383 + mw->menu.shadow_thickness); |
31370 | 1384 if (mw->menu.horizontal && i == 1) |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
1385 ws->y += mw->menu.margin; |
5626 | 1386 |
1387 size_menu (mw, i); | |
1388 | |
1389 fit_to_screen (mw, ws, previous_ws, mw->menu.horizontal && i == 1); | |
1390 | |
1391 XClearWindow (XtDisplay (mw), ws->window); | |
1392 XMoveResizeWindow (XtDisplay (mw), ws->window, ws->x, ws->y, | |
1393 ws->width, ws->height); | |
1394 XMapRaised (XtDisplay (mw), ws->window); | |
1395 display_menu (mw, i, False, &selection_position, NULL, NULL, NULL, NULL); | |
1396 } | |
1397 | |
1398 /* unmap the menus that popped down */ | |
1399 for (i = new_depth - 1; i < old_depth; i++) | |
48929
d81c005163cb
(pop_new_stack_if_no_contents): Do nothing if new_depth is 1.
Richard M. Stallman <rms@gnu.org>
parents:
48479
diff
changeset
|
1400 if (i >= new_depth || (i > 0 && !new_stack[i]->contents)) |
16917
5aabcff9fdd3
(enriched-translations): Add top' and choice' everywhere so that *
Richard M. Stallman <rms@gnu.org>
parents:
15742
diff
changeset
|
1401 XUnmapWindow (XtDisplay (mw), windows[i].window); |
5626 | 1402 } |
1403 | |
1404 static Boolean | |
8860 | 1405 motion_event_is_in_menu (mw, ev, level, relative_pos) |
1406 XlwMenuWidget mw; | |
1407 XMotionEvent* ev; | |
1408 int level; | |
1409 XPoint* relative_pos; | |
5626 | 1410 { |
1411 window_state* ws = &mw->menu.windows [level]; | |
19960
38172783650b
(motion_event_is_in_menu): Extend the left and
Richard M. Stallman <rms@gnu.org>
parents:
18993
diff
changeset
|
1412 int shadow = level == 0 ? 0 : mw->menu.shadow_thickness; |
38172783650b
(motion_event_is_in_menu): Extend the left and
Richard M. Stallman <rms@gnu.org>
parents:
18993
diff
changeset
|
1413 int x = ws->x + shadow; |
38172783650b
(motion_event_is_in_menu): Extend the left and
Richard M. Stallman <rms@gnu.org>
parents:
18993
diff
changeset
|
1414 int y = ws->y + shadow; |
5626 | 1415 relative_pos->x = ev->x_root - x; |
1416 relative_pos->y = ev->y_root - y; | |
19960
38172783650b
(motion_event_is_in_menu): Extend the left and
Richard M. Stallman <rms@gnu.org>
parents:
18993
diff
changeset
|
1417 return (x - shadow < ev->x_root && ev->x_root < x + ws->width |
38172783650b
(motion_event_is_in_menu): Extend the left and
Richard M. Stallman <rms@gnu.org>
parents:
18993
diff
changeset
|
1418 && y - shadow < ev->y_root && ev->y_root < y + ws->height); |
5626 | 1419 } |
1420 | |
1421 static Boolean | |
8860 | 1422 map_event_to_widget_value (mw, ev, val, level) |
1423 XlwMenuWidget mw; | |
1424 XMotionEvent* ev; | |
1425 widget_value** val; | |
1426 int* level; | |
5626 | 1427 { |
1428 int i; | |
1429 XPoint relative_pos; | |
1430 window_state* ws; | |
1431 | |
1432 *val = NULL; | |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
1433 |
5626 | 1434 /* Find the window */ |
1435 for (i = mw->menu.old_depth - 1; i >= 0; i--) | |
1436 { | |
1437 ws = &mw->menu.windows [i]; | |
1438 if (ws && motion_event_is_in_menu (mw, ev, i, &relative_pos)) | |
1439 { | |
1440 display_menu (mw, i, True, NULL, &relative_pos, val, NULL, NULL); | |
1441 | |
1442 if (*val) | |
1443 { | |
1444 *level = i + 1; | |
1445 return True; | |
1446 } | |
1447 } | |
1448 } | |
1449 return False; | |
1450 } | |
1451 | |
1452 /* Procedures */ | |
1453 static void | |
8860 | 1454 make_drawing_gcs (mw) |
1455 XlwMenuWidget mw; | |
5626 | 1456 { |
1457 XGCValues xgcv; | |
45152
0e9984418269
(make_drawing_gcs): The scaling factor passed to
Pavel Janík <Pavel@Janik.cz>
parents:
45147
diff
changeset
|
1458 float scale; |
5626 | 1459 |
1460 xgcv.font = mw->menu.font->fid; | |
1461 xgcv.foreground = mw->menu.foreground; | |
1462 xgcv.background = mw->core.background_pixel; | |
1463 mw->menu.foreground_gc = XtGetGC ((Widget)mw, | |
1464 GCFont | GCForeground | GCBackground, | |
1465 &xgcv); | |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
1466 |
5626 | 1467 xgcv.font = mw->menu.font->fid; |
1468 xgcv.foreground = mw->menu.button_foreground; | |
1469 xgcv.background = mw->core.background_pixel; | |
1470 mw->menu.button_gc = XtGetGC ((Widget)mw, | |
1471 GCFont | GCForeground | GCBackground, | |
1472 &xgcv); | |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
1473 |
5626 | 1474 xgcv.font = mw->menu.font->fid; |
1475 xgcv.background = mw->core.background_pixel; | |
45147
e10cf8f440ae
(xlwMenuResources): New resource.
Pavel Janík <Pavel@Janik.cz>
parents:
44966
diff
changeset
|
1476 |
e10cf8f440ae
(xlwMenuResources): New resource.
Pavel Janík <Pavel@Janik.cz>
parents:
44966
diff
changeset
|
1477 #define BRIGHTNESS(color) (((color) & 0xff) + (((color) >> 8) & 0xff) + (((color) >> 16) & 0xff)) |
e10cf8f440ae
(xlwMenuResources): New resource.
Pavel Janík <Pavel@Janik.cz>
parents:
44966
diff
changeset
|
1478 |
e10cf8f440ae
(xlwMenuResources): New resource.
Pavel Janík <Pavel@Janik.cz>
parents:
44966
diff
changeset
|
1479 /* Allocate color for disabled menu-items. */ |
45152
0e9984418269
(make_drawing_gcs): The scaling factor passed to
Pavel Janík <Pavel@Janik.cz>
parents:
45147
diff
changeset
|
1480 mw->menu.disabled_foreground = mw->menu.foreground; |
45147
e10cf8f440ae
(xlwMenuResources): New resource.
Pavel Janík <Pavel@Janik.cz>
parents:
44966
diff
changeset
|
1481 if (BRIGHTNESS(mw->menu.foreground) < BRIGHTNESS(mw->core.background_pixel)) |
45152
0e9984418269
(make_drawing_gcs): The scaling factor passed to
Pavel Janík <Pavel@Janik.cz>
parents:
45147
diff
changeset
|
1482 scale = 2.3; |
45147
e10cf8f440ae
(xlwMenuResources): New resource.
Pavel Janík <Pavel@Janik.cz>
parents:
44966
diff
changeset
|
1483 else |
45152
0e9984418269
(make_drawing_gcs): The scaling factor passed to
Pavel Janík <Pavel@Janik.cz>
parents:
45147
diff
changeset
|
1484 scale = 0.55; |
45147
e10cf8f440ae
(xlwMenuResources): New resource.
Pavel Janík <Pavel@Janik.cz>
parents:
44966
diff
changeset
|
1485 |
e10cf8f440ae
(xlwMenuResources): New resource.
Pavel Janík <Pavel@Janik.cz>
parents:
44966
diff
changeset
|
1486 x_alloc_lighter_color_for_widget ((Widget) mw, XtDisplay ((Widget) mw), |
e10cf8f440ae
(xlwMenuResources): New resource.
Pavel Janík <Pavel@Janik.cz>
parents:
44966
diff
changeset
|
1487 mw->core.colormap, |
45152
0e9984418269
(make_drawing_gcs): The scaling factor passed to
Pavel Janík <Pavel@Janik.cz>
parents:
45147
diff
changeset
|
1488 &mw->menu.disabled_foreground, |
0e9984418269
(make_drawing_gcs): The scaling factor passed to
Pavel Janík <Pavel@Janik.cz>
parents:
45147
diff
changeset
|
1489 scale, |
45147
e10cf8f440ae
(xlwMenuResources): New resource.
Pavel Janík <Pavel@Janik.cz>
parents:
44966
diff
changeset
|
1490 0x8000); |
e10cf8f440ae
(xlwMenuResources): New resource.
Pavel Janík <Pavel@Janik.cz>
parents:
44966
diff
changeset
|
1491 |
e10cf8f440ae
(xlwMenuResources): New resource.
Pavel Janík <Pavel@Janik.cz>
parents:
44966
diff
changeset
|
1492 if (mw->menu.foreground == mw->menu.disabled_foreground |
e10cf8f440ae
(xlwMenuResources): New resource.
Pavel Janík <Pavel@Janik.cz>
parents:
44966
diff
changeset
|
1493 || mw->core.background_pixel == mw->menu.disabled_foreground) |
e10cf8f440ae
(xlwMenuResources): New resource.
Pavel Janík <Pavel@Janik.cz>
parents:
44966
diff
changeset
|
1494 { |
e10cf8f440ae
(xlwMenuResources): New resource.
Pavel Janík <Pavel@Janik.cz>
parents:
44966
diff
changeset
|
1495 /* Too few colors, use stipple. */ |
e10cf8f440ae
(xlwMenuResources): New resource.
Pavel Janík <Pavel@Janik.cz>
parents:
44966
diff
changeset
|
1496 xgcv.foreground = mw->menu.foreground; |
e10cf8f440ae
(xlwMenuResources): New resource.
Pavel Janík <Pavel@Janik.cz>
parents:
44966
diff
changeset
|
1497 xgcv.fill_style = FillStippled; |
e10cf8f440ae
(xlwMenuResources): New resource.
Pavel Janík <Pavel@Janik.cz>
parents:
44966
diff
changeset
|
1498 xgcv.stipple = mw->menu.gray_pixmap; |
e10cf8f440ae
(xlwMenuResources): New resource.
Pavel Janík <Pavel@Janik.cz>
parents:
44966
diff
changeset
|
1499 mw->menu.disabled_gc = XtGetGC ((Widget)mw, |
e10cf8f440ae
(xlwMenuResources): New resource.
Pavel Janík <Pavel@Janik.cz>
parents:
44966
diff
changeset
|
1500 (GCFont | GCForeground | GCBackground |
e10cf8f440ae
(xlwMenuResources): New resource.
Pavel Janík <Pavel@Janik.cz>
parents:
44966
diff
changeset
|
1501 | GCFillStyle | GCStipple), &xgcv); |
e10cf8f440ae
(xlwMenuResources): New resource.
Pavel Janík <Pavel@Janik.cz>
parents:
44966
diff
changeset
|
1502 } |
e10cf8f440ae
(xlwMenuResources): New resource.
Pavel Janík <Pavel@Janik.cz>
parents:
44966
diff
changeset
|
1503 else |
e10cf8f440ae
(xlwMenuResources): New resource.
Pavel Janík <Pavel@Janik.cz>
parents:
44966
diff
changeset
|
1504 { |
e10cf8f440ae
(xlwMenuResources): New resource.
Pavel Janík <Pavel@Janik.cz>
parents:
44966
diff
changeset
|
1505 /* Many colors available, use disabled pixel. */ |
e10cf8f440ae
(xlwMenuResources): New resource.
Pavel Janík <Pavel@Janik.cz>
parents:
44966
diff
changeset
|
1506 xgcv.foreground = mw->menu.disabled_foreground; |
e10cf8f440ae
(xlwMenuResources): New resource.
Pavel Janík <Pavel@Janik.cz>
parents:
44966
diff
changeset
|
1507 mw->menu.disabled_gc = XtGetGC ((Widget)mw, |
e10cf8f440ae
(xlwMenuResources): New resource.
Pavel Janík <Pavel@Janik.cz>
parents:
44966
diff
changeset
|
1508 (GCFont | GCForeground | GCBackground), &xgcv); |
e10cf8f440ae
(xlwMenuResources): New resource.
Pavel Janík <Pavel@Janik.cz>
parents:
44966
diff
changeset
|
1509 } |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
1510 |
5626 | 1511 xgcv.font = mw->menu.font->fid; |
1512 xgcv.foreground = mw->menu.button_foreground; | |
1513 xgcv.background = mw->core.background_pixel; | |
1514 xgcv.fill_style = FillStippled; | |
1515 xgcv.stipple = mw->menu.gray_pixmap; | |
1516 mw->menu.inactive_button_gc = XtGetGC ((Widget)mw, | |
1517 (GCFont | GCForeground | GCBackground | |
1518 | GCFillStyle | GCStipple), &xgcv); | |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
1519 |
5626 | 1520 xgcv.font = mw->menu.font->fid; |
1521 xgcv.foreground = mw->core.background_pixel; | |
1522 xgcv.background = mw->menu.foreground; | |
1523 mw->menu.background_gc = XtGetGC ((Widget)mw, | |
1524 GCFont | GCForeground | GCBackground, | |
1525 &xgcv); | |
1526 } | |
1527 | |
1528 static void | |
8860 | 1529 release_drawing_gcs (mw) |
1530 XlwMenuWidget mw; | |
5626 | 1531 { |
1532 XtReleaseGC ((Widget) mw, mw->menu.foreground_gc); | |
1533 XtReleaseGC ((Widget) mw, mw->menu.button_gc); | |
45147
e10cf8f440ae
(xlwMenuResources): New resource.
Pavel Janík <Pavel@Janik.cz>
parents:
44966
diff
changeset
|
1534 XtReleaseGC ((Widget) mw, mw->menu.disabled_gc); |
5626 | 1535 XtReleaseGC ((Widget) mw, mw->menu.inactive_button_gc); |
1536 XtReleaseGC ((Widget) mw, mw->menu.background_gc); | |
1537 /* let's get some segvs if we try to use these... */ | |
1538 mw->menu.foreground_gc = (GC) -1; | |
1539 mw->menu.button_gc = (GC) -1; | |
45147
e10cf8f440ae
(xlwMenuResources): New resource.
Pavel Janík <Pavel@Janik.cz>
parents:
44966
diff
changeset
|
1540 mw->menu.disabled_gc = (GC) -1; |
5626 | 1541 mw->menu.inactive_button_gc = (GC) -1; |
1542 mw->menu.background_gc = (GC) -1; | |
1543 } | |
1544 | |
1545 #define MINL(x,y) ((((unsigned long) (x)) < ((unsigned long) (y))) \ | |
1546 ? ((unsigned long) (x)) : ((unsigned long) (y))) | |
1547 | |
1548 static void | |
8860 | 1549 make_shadow_gcs (mw) |
1550 XlwMenuWidget mw; | |
5626 | 1551 { |
1552 XGCValues xgcv; | |
1553 unsigned long pm = 0; | |
1554 Display *dpy = XtDisplay ((Widget) mw); | |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
1555 Screen *screen = XtScreen ((Widget) mw); |
27988
817a3a4058a0
(make_shadow_gcs): Use the widget's colormap instead
Gerd Moellmann <gerd@gnu.org>
parents:
27338
diff
changeset
|
1556 Colormap cmap = mw->core.colormap; |
5626 | 1557 XColor topc, botc; |
1558 int top_frobbed = 0, bottom_frobbed = 0; | |
1559 | |
29700
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1560 mw->menu.free_top_shadow_color_p = 0; |
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1561 mw->menu.free_bottom_shadow_color_p = 0; |
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1562 |
5626 | 1563 if (mw->menu.top_shadow_color == -1) |
1564 mw->menu.top_shadow_color = mw->core.background_pixel; | |
29700
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1565 else |
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1566 mw->menu.top_shadow_color = mw->menu.top_shadow_color; |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
1567 |
5626 | 1568 if (mw->menu.bottom_shadow_color == -1) |
1569 mw->menu.bottom_shadow_color = mw->menu.foreground; | |
29700
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1570 else |
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1571 mw->menu.bottom_shadow_color = mw->menu.bottom_shadow_color; |
5626 | 1572 |
1573 if (mw->menu.top_shadow_color == mw->core.background_pixel || | |
1574 mw->menu.top_shadow_color == mw->menu.foreground) | |
1575 { | |
1576 topc.pixel = mw->core.background_pixel; | |
31341
1c5d68acbded
(x_alloc_lighter_color_for_widget):
Miles Bader <miles@gnu.org>
parents:
31287
diff
changeset
|
1577 #ifdef emacs |
1c5d68acbded
(x_alloc_lighter_color_for_widget):
Miles Bader <miles@gnu.org>
parents:
31287
diff
changeset
|
1578 if (x_alloc_lighter_color_for_widget ((Widget) mw, dpy, cmap, |
1c5d68acbded
(x_alloc_lighter_color_for_widget):
Miles Bader <miles@gnu.org>
parents:
31287
diff
changeset
|
1579 &topc.pixel, |
1c5d68acbded
(x_alloc_lighter_color_for_widget):
Miles Bader <miles@gnu.org>
parents:
31287
diff
changeset
|
1580 1.2, 0x8000)) |
1c5d68acbded
(x_alloc_lighter_color_for_widget):
Miles Bader <miles@gnu.org>
parents:
31287
diff
changeset
|
1581 #else |
5626 | 1582 XQueryColor (dpy, cmap, &topc); |
1583 /* don't overflow/wrap! */ | |
1584 topc.red = MINL (65535, topc.red * 1.2); | |
1585 topc.green = MINL (65535, topc.green * 1.2); | |
1586 topc.blue = MINL (65535, topc.blue * 1.2); | |
1587 if (XAllocColor (dpy, cmap, &topc)) | |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
1588 #endif |
5626 | 1589 { |
1590 mw->menu.top_shadow_color = topc.pixel; | |
29700
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1591 mw->menu.free_top_shadow_color_p = 1; |
5626 | 1592 top_frobbed = 1; |
1593 } | |
1594 } | |
1595 if (mw->menu.bottom_shadow_color == mw->menu.foreground || | |
1596 mw->menu.bottom_shadow_color == mw->core.background_pixel) | |
1597 { | |
1598 botc.pixel = mw->core.background_pixel; | |
31341
1c5d68acbded
(x_alloc_lighter_color_for_widget):
Miles Bader <miles@gnu.org>
parents:
31287
diff
changeset
|
1599 #ifdef emacs |
1c5d68acbded
(x_alloc_lighter_color_for_widget):
Miles Bader <miles@gnu.org>
parents:
31287
diff
changeset
|
1600 if (x_alloc_lighter_color_for_widget ((Widget) mw, dpy, cmap, |
1c5d68acbded
(x_alloc_lighter_color_for_widget):
Miles Bader <miles@gnu.org>
parents:
31287
diff
changeset
|
1601 &botc.pixel, |
1c5d68acbded
(x_alloc_lighter_color_for_widget):
Miles Bader <miles@gnu.org>
parents:
31287
diff
changeset
|
1602 0.6, 0x4000)) |
1c5d68acbded
(x_alloc_lighter_color_for_widget):
Miles Bader <miles@gnu.org>
parents:
31287
diff
changeset
|
1603 #else |
5626 | 1604 XQueryColor (dpy, cmap, &botc); |
1605 botc.red *= 0.6; | |
1606 botc.green *= 0.6; | |
1607 botc.blue *= 0.6; | |
1608 if (XAllocColor (dpy, cmap, &botc)) | |
25034
305d2ac394ae
(make_shadow_gcs) ]emacs]: Use x_alloc_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents:
19960
diff
changeset
|
1609 #endif |
5626 | 1610 { |
1611 mw->menu.bottom_shadow_color = botc.pixel; | |
29700
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1612 mw->menu.free_bottom_shadow_color_p = 1; |
5626 | 1613 bottom_frobbed = 1; |
1614 } | |
1615 } | |
1616 | |
1617 if (top_frobbed && bottom_frobbed) | |
1618 { | |
31341
1c5d68acbded
(x_alloc_lighter_color_for_widget):
Miles Bader <miles@gnu.org>
parents:
31287
diff
changeset
|
1619 if (topc.pixel == botc.pixel) |
5626 | 1620 { |
1621 if (botc.pixel == mw->menu.foreground) | |
29602
d13e7c93d265
(make_shadow_gcs): Free and copy colors so that
Gerd Moellmann <gerd@gnu.org>
parents:
29469
diff
changeset
|
1622 { |
29700
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1623 if (mw->menu.free_top_shadow_color_p) |
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1624 { |
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1625 x_free_dpy_colors (dpy, screen, cmap, |
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1626 &mw->menu.top_shadow_color, 1); |
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1627 mw->menu.free_top_shadow_color_p = 0; |
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1628 } |
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1629 mw->menu.top_shadow_color = mw->core.background_pixel; |
29602
d13e7c93d265
(make_shadow_gcs): Free and copy colors so that
Gerd Moellmann <gerd@gnu.org>
parents:
29469
diff
changeset
|
1630 } |
5626 | 1631 else |
29602
d13e7c93d265
(make_shadow_gcs): Free and copy colors so that
Gerd Moellmann <gerd@gnu.org>
parents:
29469
diff
changeset
|
1632 { |
29700
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1633 if (mw->menu.free_bottom_shadow_color_p) |
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1634 { |
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1635 x_free_dpy_colors (dpy, screen, cmap, |
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1636 &mw->menu.bottom_shadow_color, 1); |
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1637 mw->menu.free_bottom_shadow_color_p = 0; |
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1638 } |
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1639 mw->menu.bottom_shadow_color = mw->menu.foreground; |
29602
d13e7c93d265
(make_shadow_gcs): Free and copy colors so that
Gerd Moellmann <gerd@gnu.org>
parents:
29469
diff
changeset
|
1640 } |
5626 | 1641 } |
1642 } | |
1643 | |
1644 if (!mw->menu.top_shadow_pixmap && | |
1645 mw->menu.top_shadow_color == mw->core.background_pixel) | |
1646 { | |
1647 mw->menu.top_shadow_pixmap = mw->menu.gray_pixmap; | |
29700
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1648 if (mw->menu.free_top_shadow_color_p) |
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1649 { |
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1650 x_free_dpy_colors (dpy, screen, cmap, &mw->menu.top_shadow_color, 1); |
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1651 mw->menu.free_top_shadow_color_p = 0; |
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1652 } |
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1653 mw->menu.top_shadow_color = mw->menu.foreground; |
5626 | 1654 } |
1655 if (!mw->menu.bottom_shadow_pixmap && | |
1656 mw->menu.bottom_shadow_color == mw->core.background_pixel) | |
1657 { | |
1658 mw->menu.bottom_shadow_pixmap = mw->menu.gray_pixmap; | |
29700
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1659 if (mw->menu.free_bottom_shadow_color_p) |
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1660 { |
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1661 x_free_dpy_colors (dpy, screen, cmap, |
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1662 &mw->menu.bottom_shadow_color, 1); |
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1663 mw->menu.free_bottom_shadow_color_p = 0; |
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1664 } |
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1665 mw->menu.bottom_shadow_color = mw->menu.foreground; |
5626 | 1666 } |
1667 | |
1668 xgcv.fill_style = FillStippled; | |
1669 xgcv.foreground = mw->menu.top_shadow_color; | |
1670 xgcv.stipple = mw->menu.top_shadow_pixmap; | |
1671 pm = (xgcv.stipple ? GCStipple|GCFillStyle : 0); | |
1672 mw->menu.shadow_top_gc = XtGetGC ((Widget)mw, GCForeground | pm, &xgcv); | |
1673 | |
1674 xgcv.foreground = mw->menu.bottom_shadow_color; | |
1675 xgcv.stipple = mw->menu.bottom_shadow_pixmap; | |
1676 pm = (xgcv.stipple ? GCStipple|GCFillStyle : 0); | |
1677 mw->menu.shadow_bottom_gc = XtGetGC ((Widget)mw, GCForeground | pm, &xgcv); | |
1678 } | |
1679 | |
1680 | |
1681 static void | |
8860 | 1682 release_shadow_gcs (mw) |
1683 XlwMenuWidget mw; | |
5626 | 1684 { |
29602
d13e7c93d265
(make_shadow_gcs): Free and copy colors so that
Gerd Moellmann <gerd@gnu.org>
parents:
29469
diff
changeset
|
1685 Display *dpy = XtDisplay ((Widget) mw); |
d13e7c93d265
(make_shadow_gcs): Free and copy colors so that
Gerd Moellmann <gerd@gnu.org>
parents:
29469
diff
changeset
|
1686 Screen *screen = XtScreen ((Widget) mw); |
d13e7c93d265
(make_shadow_gcs): Free and copy colors so that
Gerd Moellmann <gerd@gnu.org>
parents:
29469
diff
changeset
|
1687 Colormap cmap = mw->core.colormap; |
d13e7c93d265
(make_shadow_gcs): Free and copy colors so that
Gerd Moellmann <gerd@gnu.org>
parents:
29469
diff
changeset
|
1688 Pixel px[2]; |
29700
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1689 int i = 0; |
29602
d13e7c93d265
(make_shadow_gcs): Free and copy colors so that
Gerd Moellmann <gerd@gnu.org>
parents:
29469
diff
changeset
|
1690 |
29700
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1691 if (mw->menu.free_top_shadow_color_p) |
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1692 px[i++] = mw->menu.top_shadow_color; |
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1693 if (mw->menu.free_bottom_shadow_color_p) |
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1694 px[i++] = mw->menu.bottom_shadow_color; |
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1695 if (i > 0) |
1e88ad071a1a
(make_shadow_gcs): Set free_top_shadow_color_p
Gerd Moellmann <gerd@gnu.org>
parents:
29602
diff
changeset
|
1696 x_free_dpy_colors (dpy, screen, cmap, px, i); |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
1697 |
5626 | 1698 XtReleaseGC ((Widget) mw, mw->menu.shadow_top_gc); |
1699 XtReleaseGC ((Widget) mw, mw->menu.shadow_bottom_gc); | |
1700 } | |
1701 | |
1702 static void | |
9746
49e984bf6689
(xlwmenu_default_font): New global variable.
Richard M. Stallman <rms@gnu.org>
parents:
9700
diff
changeset
|
1703 XlwMenuInitialize (request, mw, args, num_args) |
8860 | 1704 Widget request; |
9746
49e984bf6689
(xlwmenu_default_font): New global variable.
Richard M. Stallman <rms@gnu.org>
parents:
9700
diff
changeset
|
1705 XlwMenuWidget mw; |
8860 | 1706 ArgList args; |
1707 Cardinal *num_args; | |
5626 | 1708 { |
1709 /* Get the GCs and the widget size */ | |
1710 XSetWindowAttributes xswa; | |
1711 int mask; | |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
1712 |
5626 | 1713 Window window = RootWindowOfScreen (DefaultScreenOfDisplay (XtDisplay (mw))); |
1714 Display* display = XtDisplay (mw); | |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
1715 |
8860 | 1716 #if 0 |
1717 widget_value *tem = (widget_value *) XtMalloc (sizeof (widget_value)); | |
1718 | |
1719 /* _XtCreate is freeing the object that was passed to us, | |
1720 so make a copy that we will actually keep. */ | |
1721 lwlib_bcopy (mw->menu.contents, tem, sizeof (widget_value)); | |
1722 mw->menu.contents = tem; | |
1723 #endif | |
1724 | |
5626 | 1725 /* mw->menu.cursor = XCreateFontCursor (display, mw->menu.cursor_shape); */ |
1726 mw->menu.cursor = mw->menu.cursor_shape; | |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
1727 |
11885
c686f5539749
(XlwMenuInitialize): Cast XCreatePixmapFromBitmapData args.
Karl Heuer <kwzh@gnu.org>
parents:
11461
diff
changeset
|
1728 mw->menu.gray_pixmap |
30324
d4713daa6716
Don't include <X11/bitmaps/gray> because that
Gerd Moellmann <gerd@gnu.org>
parents:
29700
diff
changeset
|
1729 = XCreatePixmapFromBitmapData (display, window, gray_bitmap_bits, |
d4713daa6716
Don't include <X11/bitmaps/gray> because that
Gerd Moellmann <gerd@gnu.org>
parents:
29700
diff
changeset
|
1730 gray_bitmap_width, gray_bitmap_height, |
11885
c686f5539749
(XlwMenuInitialize): Cast XCreatePixmapFromBitmapData args.
Karl Heuer <kwzh@gnu.org>
parents:
11461
diff
changeset
|
1731 (unsigned long)1, (unsigned long)0, 1); |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
1732 |
9746
49e984bf6689
(xlwmenu_default_font): New global variable.
Richard M. Stallman <rms@gnu.org>
parents:
9700
diff
changeset
|
1733 /* I don't understand why this ends up 0 sometimes, |
49e984bf6689
(xlwmenu_default_font): New global variable.
Richard M. Stallman <rms@gnu.org>
parents:
9700
diff
changeset
|
1734 but it does. This kludge works around it. |
49e984bf6689
(xlwmenu_default_font): New global variable.
Richard M. Stallman <rms@gnu.org>
parents:
9700
diff
changeset
|
1735 Can anyone find a real fix? -- rms. */ |
49e984bf6689
(xlwmenu_default_font): New global variable.
Richard M. Stallman <rms@gnu.org>
parents:
9700
diff
changeset
|
1736 if (mw->menu.font == 0) |
49e984bf6689
(xlwmenu_default_font): New global variable.
Richard M. Stallman <rms@gnu.org>
parents:
9700
diff
changeset
|
1737 mw->menu.font = xlwmenu_default_font; |
49e984bf6689
(xlwmenu_default_font): New global variable.
Richard M. Stallman <rms@gnu.org>
parents:
9700
diff
changeset
|
1738 |
5626 | 1739 make_drawing_gcs (mw); |
1740 make_shadow_gcs (mw); | |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
1741 |
5626 | 1742 xswa.background_pixel = mw->core.background_pixel; |
1743 xswa.border_pixel = mw->core.border_pixel; | |
1744 mask = CWBackPixel | CWBorderPixel; | |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
1745 |
5626 | 1746 mw->menu.popped_up = False; |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
1747 |
5626 | 1748 mw->menu.old_depth = 1; |
1749 mw->menu.old_stack = (widget_value**)XtMalloc (sizeof (widget_value*)); | |
1750 mw->menu.old_stack_length = 1; | |
1751 mw->menu.old_stack [0] = mw->menu.contents; | |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
1752 |
5626 | 1753 mw->menu.new_depth = 0; |
1754 mw->menu.new_stack = 0; | |
1755 mw->menu.new_stack_length = 0; | |
1756 push_new_stack (mw, mw->menu.contents); | |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
1757 |
5626 | 1758 mw->menu.windows = (window_state*)XtMalloc (sizeof (window_state)); |
1759 mw->menu.windows_length = 1; | |
1760 mw->menu.windows [0].x = 0; | |
1761 mw->menu.windows [0].y = 0; | |
1762 mw->menu.windows [0].width = 0; | |
1763 mw->menu.windows [0].height = 0; | |
1764 size_menu (mw, 0); | |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
1765 |
5626 | 1766 mw->core.width = mw->menu.windows [0].width; |
1767 mw->core.height = mw->menu.windows [0].height; | |
1768 } | |
1769 | |
1770 static void | |
1771 XlwMenuClassInitialize () | |
1772 { | |
1773 } | |
1774 | |
1775 static void | |
8860 | 1776 XlwMenuRealize (w, valueMask, attributes) |
1777 Widget w; | |
1778 Mask *valueMask; | |
1779 XSetWindowAttributes *attributes; | |
5626 | 1780 { |
1781 XlwMenuWidget mw = (XlwMenuWidget)w; | |
1782 XSetWindowAttributes xswa; | |
1783 int mask; | |
1784 | |
1785 (*xlwMenuWidgetClass->core_class.superclass->core_class.realize) | |
1786 (w, valueMask, attributes); | |
1787 | |
1788 xswa.save_under = True; | |
1789 xswa.cursor = mw->menu.cursor_shape; | |
1790 mask = CWSaveUnder | CWCursor; | |
1791 XChangeWindowAttributes (XtDisplay (w), XtWindow (w), mask, &xswa); | |
1792 | |
1793 mw->menu.windows [0].window = XtWindow (w); | |
1794 mw->menu.windows [0].x = w->core.x; | |
1795 mw->menu.windows [0].y = w->core.y; | |
1796 mw->menu.windows [0].width = w->core.width; | |
1797 mw->menu.windows [0].height = w->core.height; | |
1798 } | |
1799 | |
1800 /* Only the toplevel menubar/popup is a widget so it's the only one that | |
1801 receives expose events through Xt. So we repaint all the other panes | |
1802 when receiving an Expose event. */ | |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
1803 static void |
8860 | 1804 XlwMenuRedisplay (w, ev, region) |
1805 Widget w; | |
1806 XEvent* ev; | |
1807 Region region; | |
5626 | 1808 { |
1809 XlwMenuWidget mw = (XlwMenuWidget)w; | |
1810 int i; | |
1811 | |
8860 | 1812 /* If we have a depth beyond 1, it's because a submenu was displayed. |
1813 If the submenu has been destroyed, set the depth back to 1. */ | |
1814 if (submenu_destroyed) | |
1815 { | |
1816 mw->menu.old_depth = 1; | |
1817 submenu_destroyed = 0; | |
1818 } | |
1819 | |
5626 | 1820 for (i = 0; i < mw->menu.old_depth; i++) |
1821 display_menu (mw, i, False, NULL, NULL, NULL, NULL, NULL); | |
1822 } | |
1823 | |
33714
f957a9063fb1
(xlwmenu_redisplay): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
31963
diff
changeset
|
1824 |
f957a9063fb1
(xlwmenu_redisplay): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
31963
diff
changeset
|
1825 /* Part of a hack to make the menu redisplay when a tooltip frame |
f957a9063fb1
(xlwmenu_redisplay): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
31963
diff
changeset
|
1826 over a menu item is unmapped. */ |
f957a9063fb1
(xlwmenu_redisplay): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
31963
diff
changeset
|
1827 |
f957a9063fb1
(xlwmenu_redisplay): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
31963
diff
changeset
|
1828 void |
f957a9063fb1
(xlwmenu_redisplay): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
31963
diff
changeset
|
1829 xlwmenu_redisplay (w) |
f957a9063fb1
(xlwmenu_redisplay): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
31963
diff
changeset
|
1830 Widget w; |
f957a9063fb1
(xlwmenu_redisplay): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
31963
diff
changeset
|
1831 { |
f957a9063fb1
(xlwmenu_redisplay): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
31963
diff
changeset
|
1832 XlwMenuRedisplay (w, NULL, None); |
f957a9063fb1
(xlwmenu_redisplay): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
31963
diff
changeset
|
1833 } |
f957a9063fb1
(xlwmenu_redisplay): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
31963
diff
changeset
|
1834 |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
1835 static void |
8860 | 1836 XlwMenuDestroy (w) |
1837 Widget w; | |
5626 | 1838 { |
1839 int i; | |
1840 XlwMenuWidget mw = (XlwMenuWidget) w; | |
1841 | |
8860 | 1842 if (pointer_grabbed) |
44750
2e7603e0c455
Add calls to Grab/UngrabKeyboard to remove strange interactions with
Jan Djärv <jan.h.d@swipnet.se>
parents:
44713
diff
changeset
|
1843 ungrab_all ((Widget)w, CurrentTime); |
8860 | 1844 pointer_grabbed = 0; |
1845 | |
1846 submenu_destroyed = 1; | |
1847 | |
5626 | 1848 release_drawing_gcs (mw); |
1849 release_shadow_gcs (mw); | |
1850 | |
1851 /* this doesn't come from the resource db but is created explicitly | |
1852 so we must free it ourselves. */ | |
1853 XFreePixmap (XtDisplay (mw), mw->menu.gray_pixmap); | |
1854 mw->menu.gray_pixmap = (Pixmap) -1; | |
1855 | |
8860 | 1856 #if 0 |
1857 /* Do free mw->menu.contents because nowadays we copy it | |
1858 during initialization. */ | |
1859 XtFree (mw->menu.contents); | |
1860 #endif | |
1861 | |
5626 | 1862 /* Don't free mw->menu.contents because that comes from our creator. |
1863 The `*_stack' elements are just pointers into `contents' so leave | |
1864 that alone too. But free the stacks themselves. */ | |
1865 if (mw->menu.old_stack) XtFree ((char *) mw->menu.old_stack); | |
1866 if (mw->menu.new_stack) XtFree ((char *) mw->menu.new_stack); | |
1867 | |
1868 /* Remember, you can't free anything that came from the resource | |
1869 database. This includes: | |
1870 mw->menu.cursor | |
1871 mw->menu.top_shadow_pixmap | |
1872 mw->menu.bottom_shadow_pixmap | |
1873 mw->menu.font | |
1874 Also the color cells of top_shadow_color, bottom_shadow_color, | |
1875 foreground, and button_foreground will never be freed until this | |
1876 client exits. Nice, eh? | |
1877 */ | |
1878 | |
1879 /* start from 1 because the one in slot 0 is w->core.window */ | |
1880 for (i = 1; i < mw->menu.windows_length; i++) | |
1881 XDestroyWindow (XtDisplay (mw), mw->menu.windows [i].window); | |
1882 if (mw->menu.windows) | |
1883 XtFree ((char *) mw->menu.windows); | |
1884 } | |
1885 | |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
1886 static Boolean |
8860 | 1887 XlwMenuSetValues (current, request, new) |
1888 Widget current; | |
1889 Widget request; | |
1890 Widget new; | |
5626 | 1891 { |
1892 XlwMenuWidget oldmw = (XlwMenuWidget)current; | |
1893 XlwMenuWidget newmw = (XlwMenuWidget)new; | |
1894 Boolean redisplay = False; | |
1895 int i; | |
1896 | |
1897 if (newmw->menu.contents | |
1898 && newmw->menu.contents->contents | |
1899 && newmw->menu.contents->contents->change >= VISIBLE_CHANGE) | |
1900 redisplay = True; | |
13899
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
1901 /* Do redisplay if the contents are entirely eliminated. */ |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
1902 if (newmw->menu.contents |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
1903 && newmw->menu.contents->contents == 0 |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
1904 && newmw->menu.contents->change >= VISIBLE_CHANGE) |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
1905 redisplay = True; |
5626 | 1906 |
1907 if (newmw->core.background_pixel != oldmw->core.background_pixel | |
8860 | 1908 || newmw->menu.foreground != oldmw->menu.foreground |
1909 || newmw->menu.font != oldmw->menu.font) | |
5626 | 1910 { |
1911 release_drawing_gcs (newmw); | |
1912 make_drawing_gcs (newmw); | |
31287 | 1913 |
1914 release_shadow_gcs (newmw); | |
1915 /* Cause the shadow colors to be recalculated. */ | |
1916 newmw->menu.top_shadow_color = -1; | |
1917 newmw->menu.bottom_shadow_color = -1; | |
1918 make_shadow_gcs (newmw); | |
1919 | |
5626 | 1920 redisplay = True; |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
1921 |
31369
6aa8a6e72c0f
(XlwMenuSetValues): Pass the correct pointer type to XtIsRealized.
Miles Bader <miles@gnu.org>
parents:
31364
diff
changeset
|
1922 if (XtIsRealized (current)) |
31364
8bafcf2cfd57
(XlwMenuSetValues): Only frob the display if the menu is actually displayed.
Miles Bader <miles@gnu.org>
parents:
31341
diff
changeset
|
1923 /* If the menu is currently displayed, change the display. */ |
8bafcf2cfd57
(XlwMenuSetValues): Only frob the display if the menu is actually displayed.
Miles Bader <miles@gnu.org>
parents:
31341
diff
changeset
|
1924 for (i = 0; i < oldmw->menu.windows_length; i++) |
8bafcf2cfd57
(XlwMenuSetValues): Only frob the display if the menu is actually displayed.
Miles Bader <miles@gnu.org>
parents:
31341
diff
changeset
|
1925 { |
8bafcf2cfd57
(XlwMenuSetValues): Only frob the display if the menu is actually displayed.
Miles Bader <miles@gnu.org>
parents:
31341
diff
changeset
|
1926 XSetWindowBackground (XtDisplay (oldmw), |
8bafcf2cfd57
(XlwMenuSetValues): Only frob the display if the menu is actually displayed.
Miles Bader <miles@gnu.org>
parents:
31341
diff
changeset
|
1927 oldmw->menu.windows [i].window, |
8bafcf2cfd57
(XlwMenuSetValues): Only frob the display if the menu is actually displayed.
Miles Bader <miles@gnu.org>
parents:
31341
diff
changeset
|
1928 newmw->core.background_pixel); |
8bafcf2cfd57
(XlwMenuSetValues): Only frob the display if the menu is actually displayed.
Miles Bader <miles@gnu.org>
parents:
31341
diff
changeset
|
1929 /* clear windows and generate expose events */ |
8bafcf2cfd57
(XlwMenuSetValues): Only frob the display if the menu is actually displayed.
Miles Bader <miles@gnu.org>
parents:
31341
diff
changeset
|
1930 XClearArea (XtDisplay (oldmw), oldmw->menu.windows[i].window, |
8bafcf2cfd57
(XlwMenuSetValues): Only frob the display if the menu is actually displayed.
Miles Bader <miles@gnu.org>
parents:
31341
diff
changeset
|
1931 0, 0, 0, 0, True); |
8bafcf2cfd57
(XlwMenuSetValues): Only frob the display if the menu is actually displayed.
Miles Bader <miles@gnu.org>
parents:
31341
diff
changeset
|
1932 } |
5626 | 1933 } |
1934 | |
1935 return redisplay; | |
1936 } | |
1937 | |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
1938 static void |
8860 | 1939 XlwMenuResize (w) |
1940 Widget w; | |
5626 | 1941 { |
1942 XlwMenuWidget mw = (XlwMenuWidget)w; | |
1943 | |
8860 | 1944 if (mw->menu.popped_up) |
1945 { | |
1946 /* Don't allow the popup menu to resize itself. */ | |
1947 mw->core.width = mw->menu.windows [0].width; | |
1948 mw->core.height = mw->menu.windows [0].height; | |
1949 mw->core.parent->core.width = mw->core.width ; | |
1950 mw->core.parent->core.height = mw->core.height ; | |
1951 } | |
1952 else | |
1953 { | |
1954 mw->menu.windows [0].width = mw->core.width; | |
1955 mw->menu.windows [0].height = mw->core.height; | |
1956 } | |
5626 | 1957 } |
1958 | |
1959 /* Action procedures */ | |
1960 static void | |
8860 | 1961 handle_single_motion_event (mw, ev) |
1962 XlwMenuWidget mw; | |
1963 XMotionEvent* ev; | |
5626 | 1964 { |
1965 widget_value* val; | |
1966 int level; | |
1967 | |
1968 if (!map_event_to_widget_value (mw, ev, &val, &level)) | |
1969 pop_new_stack_if_no_contents (mw); | |
1970 else | |
1971 set_new_state (mw, val, level); | |
1972 remap_menubar (mw); | |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
1973 |
5626 | 1974 /* Sync with the display. Makes it feel better on X terms. */ |
1975 XSync (XtDisplay (mw), False); | |
1976 } | |
1977 | |
1978 static void | |
8860 | 1979 handle_motion_event (mw, ev) |
1980 XlwMenuWidget mw; | |
1981 XMotionEvent* ev; | |
5626 | 1982 { |
1983 int x = ev->x_root; | |
1984 int y = ev->y_root; | |
1985 int state = ev->state; | |
1986 | |
1987 handle_single_motion_event (mw, ev); | |
1988 | |
1989 /* allow motion events to be generated again */ | |
1990 if (ev->is_hint | |
1991 && XQueryPointer (XtDisplay (mw), ev->window, | |
1992 &ev->root, &ev->subwindow, | |
1993 &ev->x_root, &ev->y_root, | |
1994 &ev->x, &ev->y, | |
1995 &ev->state) | |
1996 && ev->state == state | |
1997 && (ev->x_root != x || ev->y_root != y)) | |
1998 handle_single_motion_event (mw, ev); | |
1999 } | |
2000 | |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
2001 static void |
8860 | 2002 Start (w, ev, params, num_params) |
2003 Widget w; | |
2004 XEvent *ev; | |
2005 String *params; | |
2006 Cardinal *num_params; | |
5626 | 2007 { |
2008 XlwMenuWidget mw = (XlwMenuWidget)w; | |
2009 | |
8860 | 2010 if (!mw->menu.popped_up) |
2011 { | |
2012 menu_post_event = *ev; | |
29469
f9b5fe053f7c
(x_alloc_nearest_color_for_widget, x_catch_errors, x_uncatch_errors)
Dave Love <fx@gnu.org>
parents:
27988
diff
changeset
|
2013 pop_up_menu (mw, (XButtonPressedEvent*) ev); |
8860 | 2014 } |
2015 else | |
9027 | 2016 { |
2017 /* If we push a button while the menu is posted semipermanently, | |
2018 releasing the button should always pop the menu down. */ | |
2019 next_release_must_exit = 1; | |
5626 | 2020 |
9027 | 2021 /* notes the absolute position of the menubar window */ |
2022 mw->menu.windows [0].x = ev->xmotion.x_root - ev->xmotion.x; | |
2023 mw->menu.windows [0].y = ev->xmotion.y_root - ev->xmotion.y; | |
2024 | |
2025 /* handles the down like a move, slots are compatible */ | |
2026 handle_motion_event (mw, &ev->xmotion); | |
2027 } | |
5626 | 2028 } |
2029 | |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
2030 static void |
8860 | 2031 Drag (w, ev, params, num_params) |
2032 Widget w; | |
2033 XEvent *ev; | |
2034 String *params; | |
2035 Cardinal *num_params; | |
5626 | 2036 { |
2037 XlwMenuWidget mw = (XlwMenuWidget)w; | |
11987
9619c1121b43
(Drag): Do nothing unless menu.popped_up field is set.
Karl Heuer <kwzh@gnu.org>
parents:
11885
diff
changeset
|
2038 if (mw->menu.popped_up) |
9619c1121b43
(Drag): Do nothing unless menu.popped_up field is set.
Karl Heuer <kwzh@gnu.org>
parents:
11885
diff
changeset
|
2039 handle_motion_event (mw, &ev->xmotion); |
5626 | 2040 } |
2041 | |
13899
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2042 /* Do nothing. |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2043 This is how we handle presses and releases of modifier keys. */ |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2044 static void |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2045 Nothing (w, ev, params, num_params) |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2046 Widget w; |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2047 XEvent *ev; |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2048 String *params; |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2049 Cardinal *num_params; |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2050 { |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2051 } |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2052 |
44707
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2053 widget_value * |
44713
a05c8614feee
(find_next_selectable): New function.
Pavel Janík <Pavel@Janik.cz>
parents:
44707
diff
changeset
|
2054 find_first_selectable (mw, item) |
a05c8614feee
(find_next_selectable): New function.
Pavel Janík <Pavel@Janik.cz>
parents:
44707
diff
changeset
|
2055 XlwMenuWidget mw; |
a05c8614feee
(find_next_selectable): New function.
Pavel Janík <Pavel@Janik.cz>
parents:
44707
diff
changeset
|
2056 widget_value *item; |
a05c8614feee
(find_next_selectable): New function.
Pavel Janík <Pavel@Janik.cz>
parents:
44707
diff
changeset
|
2057 { |
a05c8614feee
(find_next_selectable): New function.
Pavel Janík <Pavel@Janik.cz>
parents:
44707
diff
changeset
|
2058 widget_value *current = item; |
a05c8614feee
(find_next_selectable): New function.
Pavel Janík <Pavel@Janik.cz>
parents:
44707
diff
changeset
|
2059 enum menu_separator separator; |
a05c8614feee
(find_next_selectable): New function.
Pavel Janík <Pavel@Janik.cz>
parents:
44707
diff
changeset
|
2060 |
a05c8614feee
(find_next_selectable): New function.
Pavel Janík <Pavel@Janik.cz>
parents:
44707
diff
changeset
|
2061 while (lw_separator_p (current->name, &separator, 0) || !current->enabled) |
a05c8614feee
(find_next_selectable): New function.
Pavel Janík <Pavel@Janik.cz>
parents:
44707
diff
changeset
|
2062 if (current->next) |
a05c8614feee
(find_next_selectable): New function.
Pavel Janík <Pavel@Janik.cz>
parents:
44707
diff
changeset
|
2063 current=current->next; |
a05c8614feee
(find_next_selectable): New function.
Pavel Janík <Pavel@Janik.cz>
parents:
44707
diff
changeset
|
2064 else |
a05c8614feee
(find_next_selectable): New function.
Pavel Janík <Pavel@Janik.cz>
parents:
44707
diff
changeset
|
2065 return NULL; |
a05c8614feee
(find_next_selectable): New function.
Pavel Janík <Pavel@Janik.cz>
parents:
44707
diff
changeset
|
2066 |
a05c8614feee
(find_next_selectable): New function.
Pavel Janík <Pavel@Janik.cz>
parents:
44707
diff
changeset
|
2067 return current; |
a05c8614feee
(find_next_selectable): New function.
Pavel Janík <Pavel@Janik.cz>
parents:
44707
diff
changeset
|
2068 } |
a05c8614feee
(find_next_selectable): New function.
Pavel Janík <Pavel@Janik.cz>
parents:
44707
diff
changeset
|
2069 |
a05c8614feee
(find_next_selectable): New function.
Pavel Janík <Pavel@Janik.cz>
parents:
44707
diff
changeset
|
2070 widget_value * |
44707
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2071 find_next_selectable (mw, item) |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2072 XlwMenuWidget mw; |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2073 widget_value *item; |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2074 { |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2075 widget_value *current = item; |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2076 enum menu_separator separator; |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2077 |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2078 while (current->next && (current=current->next) && |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2079 (lw_separator_p (current->name, &separator, 0) || !current->enabled)) |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2080 ; |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2081 |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2082 if (current == item) |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2083 { |
45147
e10cf8f440ae
(xlwMenuResources): New resource.
Pavel Janík <Pavel@Janik.cz>
parents:
44966
diff
changeset
|
2084 if (mw->menu.old_depth < 2) |
e10cf8f440ae
(xlwMenuResources): New resource.
Pavel Janík <Pavel@Janik.cz>
parents:
44966
diff
changeset
|
2085 return current; |
44707
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2086 current = mw->menu.old_stack [mw->menu.old_depth - 2]->contents; |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2087 |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2088 while (lw_separator_p (current->name, &separator, 0) || !current->enabled) |
44713
a05c8614feee
(find_next_selectable): New function.
Pavel Janík <Pavel@Janik.cz>
parents:
44707
diff
changeset
|
2089 { |
a05c8614feee
(find_next_selectable): New function.
Pavel Janík <Pavel@Janik.cz>
parents:
44707
diff
changeset
|
2090 if (current->next) |
a05c8614feee
(find_next_selectable): New function.
Pavel Janík <Pavel@Janik.cz>
parents:
44707
diff
changeset
|
2091 current=current->next; |
a05c8614feee
(find_next_selectable): New function.
Pavel Janík <Pavel@Janik.cz>
parents:
44707
diff
changeset
|
2092 |
a05c8614feee
(find_next_selectable): New function.
Pavel Janík <Pavel@Janik.cz>
parents:
44707
diff
changeset
|
2093 if (current == item) |
a05c8614feee
(find_next_selectable): New function.
Pavel Janík <Pavel@Janik.cz>
parents:
44707
diff
changeset
|
2094 break; |
a05c8614feee
(find_next_selectable): New function.
Pavel Janík <Pavel@Janik.cz>
parents:
44707
diff
changeset
|
2095 } |
a05c8614feee
(find_next_selectable): New function.
Pavel Janík <Pavel@Janik.cz>
parents:
44707
diff
changeset
|
2096 |
44707
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2097 } |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2098 |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2099 return current; |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2100 } |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2101 |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2102 widget_value * |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2103 find_prev_selectable (mw, item) |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2104 XlwMenuWidget mw; |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2105 widget_value *item; |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2106 { |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2107 widget_value *current = item; |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2108 widget_value *prev = item; |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2109 |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2110 while ((current=find_next_selectable (mw, current)) != item) |
44713
a05c8614feee
(find_next_selectable): New function.
Pavel Janík <Pavel@Janik.cz>
parents:
44707
diff
changeset
|
2111 { |
a05c8614feee
(find_next_selectable): New function.
Pavel Janík <Pavel@Janik.cz>
parents:
44707
diff
changeset
|
2112 if (prev == current) |
a05c8614feee
(find_next_selectable): New function.
Pavel Janík <Pavel@Janik.cz>
parents:
44707
diff
changeset
|
2113 break; |
44707
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2114 prev=current; |
44713
a05c8614feee
(find_next_selectable): New function.
Pavel Janík <Pavel@Janik.cz>
parents:
44707
diff
changeset
|
2115 } |
44707
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2116 |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2117 return prev; |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2118 } |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2119 |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2120 static void |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2121 Down (w, ev, params, num_params) |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2122 Widget w; |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2123 XEvent *ev; |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2124 String *params; |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2125 Cardinal *num_params; |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2126 { |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2127 XlwMenuWidget mw = (XlwMenuWidget) w; |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2128 widget_value* selected_item = mw->menu.old_stack [mw->menu.old_depth - 1]; |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2129 |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2130 /* Inside top-level menu-bar? */ |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2131 if (mw->menu.old_depth == 2) |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2132 /* When <down> in the menu-bar is pressed, display the corresponding |
44713
a05c8614feee
(find_next_selectable): New function.
Pavel Janík <Pavel@Janik.cz>
parents:
44707
diff
changeset
|
2133 sub-menu and select the first selectable menu item there. */ |
a05c8614feee
(find_next_selectable): New function.
Pavel Janík <Pavel@Janik.cz>
parents:
44707
diff
changeset
|
2134 set_new_state (mw, find_first_selectable (mw, selected_item->contents), mw->menu.old_depth); |
44707
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2135 else |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2136 /* Highlight next possible (enabled and not separator) menu item. */ |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2137 set_new_state (mw, find_next_selectable (mw, selected_item), mw->menu.old_depth - 1); |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2138 |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2139 remap_menubar (mw); |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2140 } |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2141 |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2142 static void |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2143 Up (w, ev, params, num_params) |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2144 Widget w; |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2145 XEvent *ev; |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2146 String *params; |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2147 Cardinal *num_params; |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2148 { |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2149 XlwMenuWidget mw = (XlwMenuWidget) w; |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2150 widget_value* selected_item = mw->menu.old_stack [mw->menu.old_depth - 1]; |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2151 |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2152 /* Inside top-level menu-bar? */ |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2153 if (mw->menu.old_depth == 2) |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2154 { |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2155 /* FIXME: this is tricky. <up> in the menu-bar should select the |
44713
a05c8614feee
(find_next_selectable): New function.
Pavel Janík <Pavel@Janik.cz>
parents:
44707
diff
changeset
|
2156 last selectable item in the list. So we select the first |
a05c8614feee
(find_next_selectable): New function.
Pavel Janík <Pavel@Janik.cz>
parents:
44707
diff
changeset
|
2157 selectable one and find the previous selectable item. Is there |
a05c8614feee
(find_next_selectable): New function.
Pavel Janík <Pavel@Janik.cz>
parents:
44707
diff
changeset
|
2158 a better way? */ |
a05c8614feee
(find_next_selectable): New function.
Pavel Janík <Pavel@Janik.cz>
parents:
44707
diff
changeset
|
2159 set_new_state (mw, find_first_selectable (mw, selected_item->contents), mw->menu.old_depth); |
44707
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2160 remap_menubar (mw); |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2161 selected_item = mw->menu.old_stack [mw->menu.old_depth - 1]; |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2162 set_new_state (mw, find_prev_selectable (mw, selected_item), mw->menu.old_depth - 1); |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2163 } |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2164 else |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2165 /* Highlight previous (enabled and not separator) menu item. */ |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2166 set_new_state (mw, find_prev_selectable (mw, selected_item), mw->menu.old_depth - 1); |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2167 |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2168 remap_menubar (mw); |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2169 } |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2170 |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2171 static void |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2172 Left (w, ev, params, num_params) |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2173 Widget w; |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2174 XEvent *ev; |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2175 String *params; |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2176 Cardinal *num_params; |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2177 { |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2178 XlwMenuWidget mw = (XlwMenuWidget) w; |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2179 widget_value* selected_item = mw->menu.old_stack [mw->menu.old_depth - 1]; |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2180 |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2181 /* Inside top-level menu-bar? */ |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2182 if (mw->menu.old_depth == 2) |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2183 /* When <left> in the menu-bar is pressed, display the previous item on |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2184 the menu-bar. If the current item is the first one, highlight the |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2185 last item in the menubar (probably Help). */ |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2186 set_new_state (mw, find_prev_selectable (mw, selected_item), mw->menu.old_depth - 1); |
48929
d81c005163cb
(pop_new_stack_if_no_contents): Do nothing if new_depth is 1.
Richard M. Stallman <rms@gnu.org>
parents:
48479
diff
changeset
|
2187 else if (mw->menu.old_depth == 1 |
d81c005163cb
(pop_new_stack_if_no_contents): Do nothing if new_depth is 1.
Richard M. Stallman <rms@gnu.org>
parents:
48479
diff
changeset
|
2188 && selected_item->contents) /* Is this menu item expandable? */ |
d81c005163cb
(pop_new_stack_if_no_contents): Do nothing if new_depth is 1.
Richard M. Stallman <rms@gnu.org>
parents:
48479
diff
changeset
|
2189 { |
d81c005163cb
(pop_new_stack_if_no_contents): Do nothing if new_depth is 1.
Richard M. Stallman <rms@gnu.org>
parents:
48479
diff
changeset
|
2190 set_new_state (mw, selected_item->contents, mw->menu.old_depth); |
d81c005163cb
(pop_new_stack_if_no_contents): Do nothing if new_depth is 1.
Richard M. Stallman <rms@gnu.org>
parents:
48479
diff
changeset
|
2191 remap_menubar (mw); |
d81c005163cb
(pop_new_stack_if_no_contents): Do nothing if new_depth is 1.
Richard M. Stallman <rms@gnu.org>
parents:
48479
diff
changeset
|
2192 selected_item = mw->menu.old_stack [mw->menu.old_depth - 1]; |
d81c005163cb
(pop_new_stack_if_no_contents): Do nothing if new_depth is 1.
Richard M. Stallman <rms@gnu.org>
parents:
48479
diff
changeset
|
2193 if (!selected_item->enabled && find_first_selectable (mw, selected_item)) |
d81c005163cb
(pop_new_stack_if_no_contents): Do nothing if new_depth is 1.
Richard M. Stallman <rms@gnu.org>
parents:
48479
diff
changeset
|
2194 set_new_state (mw, find_first_selectable (mw, selected_item), mw->menu.old_depth - 1); |
d81c005163cb
(pop_new_stack_if_no_contents): Do nothing if new_depth is 1.
Richard M. Stallman <rms@gnu.org>
parents:
48479
diff
changeset
|
2195 } |
d81c005163cb
(pop_new_stack_if_no_contents): Do nothing if new_depth is 1.
Richard M. Stallman <rms@gnu.org>
parents:
48479
diff
changeset
|
2196 |
44707
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2197 else |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2198 { |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2199 pop_new_stack_if_no_contents (mw); |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2200 set_new_state (mw, mw->menu.old_stack [mw->menu.old_depth - 2], mw->menu.old_depth - 2); |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2201 } |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2202 |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2203 remap_menubar (mw); |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2204 } |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2205 |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2206 static void |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2207 Right (w, ev, params, num_params) |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2208 Widget w; |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2209 XEvent *ev; |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2210 String *params; |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2211 Cardinal *num_params; |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2212 { |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2213 XlwMenuWidget mw = (XlwMenuWidget) w; |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2214 widget_value* selected_item = mw->menu.old_stack [mw->menu.old_depth - 1]; |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2215 |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2216 /* Inside top-level menu-bar? */ |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2217 if (mw->menu.old_depth == 2) |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2218 /* When <right> in the menu-bar is pressed, display the next item on |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2219 the menu-bar. If the current item is the last one, highlight the |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2220 first item (probably File). */ |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2221 set_new_state (mw, find_next_selectable (mw, selected_item), mw->menu.old_depth - 1); |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2222 else if (selected_item->contents) /* Is this menu item expandable? */ |
44713
a05c8614feee
(find_next_selectable): New function.
Pavel Janík <Pavel@Janik.cz>
parents:
44707
diff
changeset
|
2223 { |
a05c8614feee
(find_next_selectable): New function.
Pavel Janík <Pavel@Janik.cz>
parents:
44707
diff
changeset
|
2224 set_new_state (mw, selected_item->contents, mw->menu.old_depth); |
a05c8614feee
(find_next_selectable): New function.
Pavel Janík <Pavel@Janik.cz>
parents:
44707
diff
changeset
|
2225 remap_menubar (mw); |
a05c8614feee
(find_next_selectable): New function.
Pavel Janík <Pavel@Janik.cz>
parents:
44707
diff
changeset
|
2226 selected_item = mw->menu.old_stack [mw->menu.old_depth - 1]; |
a05c8614feee
(find_next_selectable): New function.
Pavel Janík <Pavel@Janik.cz>
parents:
44707
diff
changeset
|
2227 if (!selected_item->enabled && find_first_selectable (mw, selected_item)) |
a05c8614feee
(find_next_selectable): New function.
Pavel Janík <Pavel@Janik.cz>
parents:
44707
diff
changeset
|
2228 set_new_state (mw, find_first_selectable (mw, selected_item), mw->menu.old_depth - 1); |
a05c8614feee
(find_next_selectable): New function.
Pavel Janík <Pavel@Janik.cz>
parents:
44707
diff
changeset
|
2229 } |
44707
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2230 else |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2231 { |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2232 pop_new_stack_if_no_contents (mw); |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2233 set_new_state (mw, mw->menu.old_stack [mw->menu.old_depth - 2], mw->menu.old_depth - 2); |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2234 } |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2235 |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2236 remap_menubar (mw); |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2237 } |
3444517c6483
(xlwMenuTranslations, xlwMenuActionsList): Add translations for cursor keys
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
2238 |
13899
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2239 /* Handle key press and release events while menu is popped up. |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2240 Our action is to get rid of the menu. */ |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2241 static void |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2242 Key (w, ev, params, num_params) |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2243 Widget w; |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2244 XEvent *ev; |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2245 String *params; |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2246 Cardinal *num_params; |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2247 { |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2248 XlwMenuWidget mw = (XlwMenuWidget)w; |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2249 |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2250 /* Pop down everything. */ |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2251 mw->menu.new_depth = 1; |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2252 remap_menubar (mw); |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2253 |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2254 if (mw->menu.popped_up) |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2255 { |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2256 mw->menu.popped_up = False; |
44750
2e7603e0c455
Add calls to Grab/UngrabKeyboard to remove strange interactions with
Jan Djärv <jan.h.d@swipnet.se>
parents:
44713
diff
changeset
|
2257 ungrab_all ((Widget)mw, ev->xmotion.time); |
13899
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2258 if (XtIsShell (XtParent ((Widget) mw))) |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2259 XtPopdown (XtParent ((Widget) mw)); |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2260 else |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2261 { |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2262 XtRemoveGrab ((Widget) mw); |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2263 display_menu (mw, 0, False, NULL, NULL, NULL, NULL, NULL); |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2264 } |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2265 } |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2266 |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2267 /* callback */ |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2268 XtCallCallbackList ((Widget)mw, mw->menu.select, (XtPointer)0); |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2269 } |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2270 |
3fbe9b840379
(xlwMenuActionsList): Add "key" and "nothing".
Richard M. Stallman <rms@gnu.org>
parents:
13560
diff
changeset
|
2271 static void |
8860 | 2272 Select (w, ev, params, num_params) |
2273 Widget w; | |
2274 XEvent *ev; | |
2275 String *params; | |
2276 Cardinal *num_params; | |
5626 | 2277 { |
2278 XlwMenuWidget mw = (XlwMenuWidget)w; | |
2279 widget_value* selected_item = mw->menu.old_stack [mw->menu.old_depth - 1]; | |
31963
833428005bf6
* xlwmenu.c: Before including <X11/Xos.h> on SUN, define SUNOS41
Sam Steingold <sds@gnu.org>
parents:
31370
diff
changeset
|
2280 |
8860 | 2281 /* If user releases the button quickly, without selecting anything, |
2282 after the initial down-click that brought the menu up, | |
2283 do nothing. */ | |
2284 if ((selected_item == 0 | |
2285 || ((widget_value *) selected_item)->call_data == 0) | |
2286 && !next_release_must_exit | |
2287 && (ev->xbutton.time - menu_post_event.xbutton.time | |
2288 < XtGetMultiClickTime (XtDisplay (w)))) | |
2289 return; | |
2290 | |
2291 /* pop down everything. */ | |
5626 | 2292 mw->menu.new_depth = 1; |
2293 remap_menubar (mw); | |
2294 | |
2295 if (mw->menu.popped_up) | |
2296 { | |
2297 mw->menu.popped_up = False; | |
44750
2e7603e0c455
Add calls to Grab/UngrabKeyboard to remove strange interactions with
Jan Djärv <jan.h.d@swipnet.se>
parents:
44713
diff
changeset
|
2298 ungrab_all ((Widget)mw, ev->xmotion.time); |
9033 | 2299 if (XtIsShell (XtParent ((Widget) mw))) |
2300 XtPopdown (XtParent ((Widget) mw)); | |
9027 | 2301 else |
2302 { | |
2303 XtRemoveGrab ((Widget) mw); | |
2304 display_menu (mw, 0, False, NULL, NULL, NULL, NULL, NULL); | |
2305 } | |
5626 | 2306 } |
2307 | |
2308 /* callback */ | |
2309 XtCallCallbackList ((Widget)mw, mw->menu.select, (XtPointer)selected_item); | |
2310 } | |
2311 | |
2312 | |
2313 /* Special code to pop-up a menu */ | |
2314 void | |
8860 | 2315 pop_up_menu (mw, event) |
2316 XlwMenuWidget mw; | |
2317 XButtonPressedEvent* event; | |
5626 | 2318 { |
2319 int x = event->x_root; | |
2320 int y = event->y_root; | |
2321 int w; | |
2322 int h; | |
2323 int borderwidth = mw->menu.shadow_thickness; | |
2324 Screen* screen = XtScreen (mw); | |
9700
d09dc2f44ecb
(pop_up_menu): Pass a Display * to x_catch_errors, etc.
Richard M. Stallman <rms@gnu.org>
parents:
9395
diff
changeset
|
2325 Display *display = XtDisplay (mw); |
17622
742a57e66f7d
(pop_up_menu): Update the call to x_catch_errors.
Richard M. Stallman <rms@gnu.org>
parents:
16917
diff
changeset
|
2326 int count; |
5626 | 2327 |
8860 | 2328 next_release_must_exit = 0; |
2329 | |
5626 | 2330 XtCallCallbackList ((Widget)mw, mw->menu.open, NULL); |
2331 | |
9033 | 2332 if (XtIsShell (XtParent ((Widget)mw))) |
9027 | 2333 size_menu (mw, 0); |
5626 | 2334 |
2335 w = mw->menu.windows [0].width; | |
2336 h = mw->menu.windows [0].height; | |
2337 | |
2338 x -= borderwidth; | |
2339 y -= borderwidth; | |
2340 if (x < borderwidth) | |
2341 x = borderwidth; | |
2342 if (x + w + 2 * borderwidth > WidthOfScreen (screen)) | |
2343 x = WidthOfScreen (screen) - w - 2 * borderwidth; | |
2344 if (y < borderwidth) | |
2345 y = borderwidth; | |
2346 if (y + h + 2 * borderwidth> HeightOfScreen (screen)) | |
2347 y = HeightOfScreen (screen) - h - 2 * borderwidth; | |
2348 | |
2349 mw->menu.popped_up = True; | |
9033 | 2350 if (XtIsShell (XtParent ((Widget)mw))) |
9027 | 2351 { |
9033 | 2352 XtConfigureWidget (XtParent ((Widget)mw), x, y, w, h, |
2353 XtParent ((Widget)mw)->core.border_width); | |
2354 XtPopup (XtParent ((Widget)mw), XtGrabExclusive); | |
9027 | 2355 display_menu (mw, 0, False, NULL, NULL, NULL, NULL, NULL); |
2356 mw->menu.windows [0].x = x + borderwidth; | |
2357 mw->menu.windows [0].y = y + borderwidth; | |
2358 } | |
2359 else | |
2360 { | |
2361 XEvent *ev = (XEvent *) event; | |
2362 | |
9092
0033f98d2ffd
Clean up of temporary changes used to try to find a workaround for the
Paul Reilly <pmr@pajato.com>
parents:
9086
diff
changeset
|
2363 XtAddGrab ((Widget) mw, True, True); |
9027 | 2364 |
2365 /* notes the absolute position of the menubar window */ | |
2366 mw->menu.windows [0].x = ev->xmotion.x_root - ev->xmotion.x; | |
2367 mw->menu.windows [0].y = ev->xmotion.y_root - ev->xmotion.y; | |
2368 } | |
2369 | |
8860 | 2370 #ifdef emacs |
17622
742a57e66f7d
(pop_up_menu): Update the call to x_catch_errors.
Richard M. Stallman <rms@gnu.org>
parents:
16917
diff
changeset
|
2371 count = x_catch_errors (display); |
8860 | 2372 #endif |
44750
2e7603e0c455
Add calls to Grab/UngrabKeyboard to remove strange interactions with
Jan Djärv <jan.h.d@swipnet.se>
parents:
44713
diff
changeset
|
2373 if (XtGrabPointer ((Widget)mw, False, |
2e7603e0c455
Add calls to Grab/UngrabKeyboard to remove strange interactions with
Jan Djärv <jan.h.d@swipnet.se>
parents:
44713
diff
changeset
|
2374 (PointerMotionMask |
2e7603e0c455
Add calls to Grab/UngrabKeyboard to remove strange interactions with
Jan Djärv <jan.h.d@swipnet.se>
parents:
44713
diff
changeset
|
2375 | PointerMotionHintMask |
2e7603e0c455
Add calls to Grab/UngrabKeyboard to remove strange interactions with
Jan Djärv <jan.h.d@swipnet.se>
parents:
44713
diff
changeset
|
2376 | ButtonReleaseMask |
2e7603e0c455
Add calls to Grab/UngrabKeyboard to remove strange interactions with
Jan Djärv <jan.h.d@swipnet.se>
parents:
44713
diff
changeset
|
2377 | ButtonPressMask), |
2e7603e0c455
Add calls to Grab/UngrabKeyboard to remove strange interactions with
Jan Djärv <jan.h.d@swipnet.se>
parents:
44713
diff
changeset
|
2378 GrabModeAsync, GrabModeAsync, None, |
2e7603e0c455
Add calls to Grab/UngrabKeyboard to remove strange interactions with
Jan Djärv <jan.h.d@swipnet.se>
parents:
44713
diff
changeset
|
2379 mw->menu.cursor_shape, |
2e7603e0c455
Add calls to Grab/UngrabKeyboard to remove strange interactions with
Jan Djärv <jan.h.d@swipnet.se>
parents:
44713
diff
changeset
|
2380 event->time) == Success) |
2e7603e0c455
Add calls to Grab/UngrabKeyboard to remove strange interactions with
Jan Djärv <jan.h.d@swipnet.se>
parents:
44713
diff
changeset
|
2381 { |
44931
18616c930588
Do not grab keyboard if installation-directory is
Jan Djärv <jan.h.d@swipnet.se>
parents:
44750
diff
changeset
|
2382 if (! GRAB_KEYBOARD |
44750
2e7603e0c455
Add calls to Grab/UngrabKeyboard to remove strange interactions with
Jan Djärv <jan.h.d@swipnet.se>
parents:
44713
diff
changeset
|
2383 || XtGrabKeyboard ((Widget)mw, False, GrabModeAsync, |
2e7603e0c455
Add calls to Grab/UngrabKeyboard to remove strange interactions with
Jan Djärv <jan.h.d@swipnet.se>
parents:
44713
diff
changeset
|
2384 GrabModeAsync, event->time) == Success) |
2e7603e0c455
Add calls to Grab/UngrabKeyboard to remove strange interactions with
Jan Djärv <jan.h.d@swipnet.se>
parents:
44713
diff
changeset
|
2385 { |
2e7603e0c455
Add calls to Grab/UngrabKeyboard to remove strange interactions with
Jan Djärv <jan.h.d@swipnet.se>
parents:
44713
diff
changeset
|
2386 XtSetKeyboardFocus((Widget)mw, None); |
2e7603e0c455
Add calls to Grab/UngrabKeyboard to remove strange interactions with
Jan Djärv <jan.h.d@swipnet.se>
parents:
44713
diff
changeset
|
2387 pointer_grabbed = 1; |
2e7603e0c455
Add calls to Grab/UngrabKeyboard to remove strange interactions with
Jan Djärv <jan.h.d@swipnet.se>
parents:
44713
diff
changeset
|
2388 } |
2e7603e0c455
Add calls to Grab/UngrabKeyboard to remove strange interactions with
Jan Djärv <jan.h.d@swipnet.se>
parents:
44713
diff
changeset
|
2389 else |
2e7603e0c455
Add calls to Grab/UngrabKeyboard to remove strange interactions with
Jan Djärv <jan.h.d@swipnet.se>
parents:
44713
diff
changeset
|
2390 XtUngrabPointer ((Widget)mw, event->time); |
2e7603e0c455
Add calls to Grab/UngrabKeyboard to remove strange interactions with
Jan Djärv <jan.h.d@swipnet.se>
parents:
44713
diff
changeset
|
2391 } |
2e7603e0c455
Add calls to Grab/UngrabKeyboard to remove strange interactions with
Jan Djärv <jan.h.d@swipnet.se>
parents:
44713
diff
changeset
|
2392 |
8860 | 2393 #ifdef emacs |
9700
d09dc2f44ecb
(pop_up_menu): Pass a Display * to x_catch_errors, etc.
Richard M. Stallman <rms@gnu.org>
parents:
9395
diff
changeset
|
2394 if (x_had_errors_p (display)) |
8860 | 2395 { |
2396 pointer_grabbed = 0; | |
2397 XtUngrabPointer ((Widget)mw, event->time); | |
2398 } | |
17622
742a57e66f7d
(pop_up_menu): Update the call to x_catch_errors.
Richard M. Stallman <rms@gnu.org>
parents:
16917
diff
changeset
|
2399 x_uncatch_errors (display, count); |
8860 | 2400 #endif |
5626 | 2401 |
2402 handle_motion_event (mw, (XMotionEvent*)event); | |
2403 } |