annotate lwlib/xlwmenuP.h @ 112408:04c350138c72

* man.el (Man-highlight-references0): Use make-button (Bug#7881).
author Chong Yidong <cyd@stupidchicken.com>
date Fri, 21 Jan 2011 22:53:06 -0500
parents ef719132ddfa
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
60584
597c62d04dec Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53564
diff changeset
1 /* Internals of a lightweight menubar widget.
76180
669c1591727d Add Lucid copyright.
Glenn Morris <rgm@gnu.org>
parents: 75250
diff changeset
2 Copyright (C) 1992 Lucid, Inc.
112218
376148b31b5e Add 2011 to FSF/AIST copyright years.
Glenn Morris <rgm@gnu.org>
parents: 106815
diff changeset
3 Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011
76180
669c1591727d Add Lucid copyright.
Glenn Morris <rgm@gnu.org>
parents: 75250
diff changeset
4 Free Software Foundation, Inc.
60584
597c62d04dec Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53564
diff changeset
5
597c62d04dec Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53564
diff changeset
6 This file is part of the Lucid Widget Library.
597c62d04dec Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53564
diff changeset
7
597c62d04dec Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53564
diff changeset
8 The Lucid Widget Library is free software; you can redistribute it and/or
597c62d04dec Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53564
diff changeset
9 modify it under the terms of the GNU General Public License as published by
76216
707d586d3aaa Lucid Widget Library was released under GPLv1 or later (license only
Glenn Morris <rgm@gnu.org>
parents: 76180
diff changeset
10 the Free Software Foundation; either version 1, or (at your option)
60584
597c62d04dec Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53564
diff changeset
11 any later version.
597c62d04dec Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53564
diff changeset
12
597c62d04dec Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53564
diff changeset
13 The Lucid Widget Library is distributed in the hope that it will be useful,
597c62d04dec Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53564
diff changeset
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
597c62d04dec Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53564
diff changeset
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
597c62d04dec Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53564
diff changeset
16 GNU General Public License for more details.
597c62d04dec Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53564
diff changeset
17
597c62d04dec Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53564
diff changeset
18 You should have received a copy of the GNU General Public License
597c62d04dec Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53564
diff changeset
19 along with GNU Emacs; see the file COPYING. If not, write to the
64083
23a17af379b1 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 61438
diff changeset
20 Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
23a17af379b1 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 61438
diff changeset
21 Boston, MA 02110-1301, USA. */
60584
597c62d04dec Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53564
diff changeset
22
7359
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
23 #ifndef _XlwMenuP_h
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
24 #define _XlwMenuP_h
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26 #include "xlwmenu.h"
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27 #include <X11/CoreP.h>
107804
24c4451bcaf7 Lucid menus can now use Xft for fonts.
Jan D. <jan.h.d@swipnet.se>
parents: 106815
diff changeset
28 #ifdef HAVE_XFT
24c4451bcaf7 Lucid menus can now use Xft for fonts.
Jan D. <jan.h.d@swipnet.se>
parents: 106815
diff changeset
29 #include <X11/Xft/Xft.h>
24c4451bcaf7 Lucid menus can now use Xft for fonts.
Jan D. <jan.h.d@swipnet.se>
parents: 106815
diff changeset
30 #endif
7359
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
31
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
32 /* Elements in the stack arrays. */
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
33 typedef struct _window_state
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
34 {
107886
9a798edc503b Don't redraw lucid menus more than needed. Use double buffer to reduce flicker.
Jan D <jan.h.d@swipnet.se>
parents: 107804
diff changeset
35 Widget w;
7359
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
36 Window window;
107886
9a798edc503b Don't redraw lucid menus more than needed. Use double buffer to reduce flicker.
Jan D <jan.h.d@swipnet.se>
parents: 107804
diff changeset
37 Pixmap pixmap;
7359
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
38 Position x;
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
39 Position y;
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
40 Dimension width;
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
41 Dimension height;
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
42 Dimension label_width;
107804
24c4451bcaf7 Lucid menus can now use Xft for fonts.
Jan D. <jan.h.d@swipnet.se>
parents: 106815
diff changeset
43 int max_rest_width;
25033
584c34c7cf53 (_window_state): Add button_width.
Gerd Moellmann <gerd@gnu.org>
parents: 7360
diff changeset
44
584c34c7cf53 (_window_state): Add button_width.
Gerd Moellmann <gerd@gnu.org>
parents: 7360
diff changeset
45 /* Width of toggle buttons or radio buttons. */
584c34c7cf53 (_window_state): Add button_width.
Gerd Moellmann <gerd@gnu.org>
parents: 7360
diff changeset
46 Dimension button_width;
107804
24c4451bcaf7 Lucid menus can now use Xft for fonts.
Jan D. <jan.h.d@swipnet.se>
parents: 106815
diff changeset
47 #ifdef HAVE_XFT
24c4451bcaf7 Lucid menus can now use Xft for fonts.
Jan D. <jan.h.d@swipnet.se>
parents: 106815
diff changeset
48 XftDraw* xft_draw;
24c4451bcaf7 Lucid menus can now use Xft for fonts.
Jan D. <jan.h.d@swipnet.se>
parents: 106815
diff changeset
49 #endif
7359
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
50 } window_state;
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
51
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
52
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
53 /* New fields for the XlwMenu widget instance record */
45145
762469b26903 (_XlwMenu_part): Add new member `disabled_foreground'.
Pavel Janík <Pavel@Janik.cz>
parents: 29699
diff changeset
54 typedef struct _XlwMenu_part
7359
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
55 {
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
56 /* slots set by the resources */
60698
3e557e11645e Add support for I18N to Lucid menus.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60584
diff changeset
57 #ifdef HAVE_X_I18N
61210
0eb69e12c16d * xlwmenuP.h (_XlwMenu_part): Add fontSet resource.
Jan Djärv <jan.h.d@swipnet.se>
parents: 60829
diff changeset
58 XFontSet fontSet;
60698
3e557e11645e Add support for I18N to Lucid menus.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60584
diff changeset
59 XFontSetExtents *font_extents;
61210
0eb69e12c16d * xlwmenuP.h (_XlwMenu_part): Add fontSet resource.
Jan Djärv <jan.h.d@swipnet.se>
parents: 60829
diff changeset
60 #endif
107804
24c4451bcaf7 Lucid menus can now use Xft for fonts.
Jan D. <jan.h.d@swipnet.se>
parents: 106815
diff changeset
61 #ifdef HAVE_XFT
24c4451bcaf7 Lucid menus can now use Xft for fonts.
Jan D. <jan.h.d@swipnet.se>
parents: 106815
diff changeset
62 String faceName;
24c4451bcaf7 Lucid menus can now use Xft for fonts.
Jan D. <jan.h.d@swipnet.se>
parents: 106815
diff changeset
63 int default_face;
24c4451bcaf7 Lucid menus can now use Xft for fonts.
Jan D. <jan.h.d@swipnet.se>
parents: 106815
diff changeset
64 XftFont* xft_font;
24c4451bcaf7 Lucid menus can now use Xft for fonts.
Jan D. <jan.h.d@swipnet.se>
parents: 106815
diff changeset
65 XftColor xft_fg, xft_bg, xft_disabled_fg;
24c4451bcaf7 Lucid menus can now use Xft for fonts.
Jan D. <jan.h.d@swipnet.se>
parents: 106815
diff changeset
66 #endif
7359
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
67 XFontStruct* font;
7360
cfb65c58eb9a entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 7359
diff changeset
68 Pixel foreground;
45145
762469b26903 (_XlwMenu_part): Add new member `disabled_foreground'.
Pavel Janík <Pavel@Janik.cz>
parents: 29699
diff changeset
69 Pixel disabled_foreground;
7359
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
70 Pixel button_foreground;
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
71 Dimension margin;
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
72 Dimension horizontal_spacing;
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
73 Dimension vertical_spacing;
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
74 Dimension arrow_spacing;
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
75 Dimension shadow_thickness;
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
76 Pixel top_shadow_color;
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
77 Pixel bottom_shadow_color;
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
78 Pixmap top_shadow_pixmap;
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
79 Pixmap bottom_shadow_pixmap;
7360
cfb65c58eb9a entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 7359
diff changeset
80 Cursor cursor_shape;
7359
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
81 XtCallbackList open;
27340
1d84a7873d7c (_XlwMenu_part): Add `highlight' callback list.
Gerd Moellmann <gerd@gnu.org>
parents: 25033
diff changeset
82 XtCallbackList select, highlight;
75017
977e9b2fe72d (_XlwMenu_part): Add enter/leave callbacks and
Jan Djärv <jan.h.d@swipnet.se>
parents: 68640
diff changeset
83 XtCallbackList enter, leave;
7359
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
84 widget_value* contents;
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
85 int horizontal;
29699
bb36becbd66b (_XlwMenu_part): Add free_top_shadow_color_p and
Gerd Moellmann <gerd@gnu.org>
parents: 27340
diff changeset
86
bb36becbd66b (_XlwMenu_part): Add free_top_shadow_color_p and
Gerd Moellmann <gerd@gnu.org>
parents: 27340
diff changeset
87 /* True means top_shadow_color and/or bottom_shadow_color must be freed. */
bb36becbd66b (_XlwMenu_part): Add free_top_shadow_color_p and
Gerd Moellmann <gerd@gnu.org>
parents: 27340
diff changeset
88 unsigned free_top_shadow_color_p : 1;
bb36becbd66b (_XlwMenu_part): Add free_top_shadow_color_p and
Gerd Moellmann <gerd@gnu.org>
parents: 27340
diff changeset
89 unsigned free_bottom_shadow_color_p : 1;
45145
762469b26903 (_XlwMenu_part): Add new member `disabled_foreground'.
Pavel Janík <Pavel@Janik.cz>
parents: 29699
diff changeset
90
7359
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
91 /* State of the XlwMenu */
53564
609ef1718642 Changes for lucid popup menus (keyboard traversal enabled) and dialogs
Jan Djärv <jan.h.d@swipnet.se>
parents: 52401
diff changeset
92 int top_depth;
7359
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
93 int old_depth;
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
94 widget_value** old_stack;
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
95 int old_stack_length;
75017
977e9b2fe72d (_XlwMenu_part): Add enter/leave callbacks and
Jan Djärv <jan.h.d@swipnet.se>
parents: 68640
diff changeset
96 widget_value* inside_entry;
7359
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
97
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
98 /* New state after the user moved */
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
99 int new_depth;
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
100 widget_value** new_stack;
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
101 int new_stack_length;
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
102
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
103 /* Window resources */
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
104 window_state* windows;
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
105 int windows_length;
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
106
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
107 /* Internal part, set by the XlwMenu */
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
108 GC foreground_gc;
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
109 GC button_gc;
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
110 GC background_gc;
45145
762469b26903 (_XlwMenu_part): Add new member `disabled_foreground'.
Pavel Janík <Pavel@Janik.cz>
parents: 29699
diff changeset
111 GC disabled_gc;
7359
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
112 GC inactive_button_gc;
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
113 GC shadow_top_gc;
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
114 GC shadow_bottom_gc;
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
115 Cursor cursor;
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
116 Boolean popped_up;
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
117 Pixmap gray_pixmap;
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
118 } XlwMenuPart;
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
119
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
120 /* Full instance record declaration */
45145
762469b26903 (_XlwMenu_part): Add new member `disabled_foreground'.
Pavel Janík <Pavel@Janik.cz>
parents: 29699
diff changeset
121 typedef struct _XlwMenuRec
7359
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
122 {
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
123 CorePart core;
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
124 XlwMenuPart menu;
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
125 } XlwMenuRec;
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
126
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
127 /* New fields for the XlwMenu widget class record */
45145
762469b26903 (_XlwMenu_part): Add new member `disabled_foreground'.
Pavel Janík <Pavel@Janik.cz>
parents: 29699
diff changeset
128 typedef struct
7359
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
129 {
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
130 int dummy;
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
131 } XlwMenuClassPart;
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
132
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
133 /* Full class record declaration. */
45145
762469b26903 (_XlwMenu_part): Add new member `disabled_foreground'.
Pavel Janík <Pavel@Janik.cz>
parents: 29699
diff changeset
134 typedef struct _XlwMenuClassRec
7359
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
135 {
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
136 CoreClassPart core_class;
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
137 XlwMenuClassPart menu_class;
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
138 } XlwMenuClassRec;
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
139
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
140 /* Class pointer. */
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
141 extern XlwMenuClassRec xlwMenuClassRec;
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
142
6ab8e21b9b7c Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
143 #endif /* _XlwMenuP_h */
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 45145
diff changeset
144