1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
| | /* Definitions and headers for GTK widgets.
Copyright (C) 2003-2024 Free Software Foundation, Inc.
This file is part of GNU Emacs.
GNU Emacs is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or (at
your option) any later version.
GNU Emacs is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. */
#ifndef GTKUTIL_H
#define GTKUTIL_H
#ifdef USE_GTK
#include <gtk/gtk.h>
#include "../lwlib/lwlib-widget.h"
#ifdef HAVE_PGTK
#include "pgtkterm.h"
#define EVENT GdkEvent
#else
#include "xterm.h"
#define EVENT XEvent
#endif
/* Helper macros for glib callbacks. On MPS builds, we need to pin
(pointers to) the objects, which requires an extra layer of
indirection. */
#ifdef HAVE_MPS
#define glib_user_data(o) ({ \
gpointer p = igc_xzalloc_ambig (sizeof (o)); \
memcpy (p, &(o), sizeof (o)); \
p; \
})
#define get_glib_user_data(user_data, type) \
(*(type **)(user_data))
#else
#define glib_user_data(o) ((gpointer)(o))
#define get_glib_user_data(user_data, type) \
((type *)(user_data))
#endif
extern void free_glib_user_data (gpointer data, GClosure *closure);
/* Minimum and maximum values used for GTK scroll bars */
#define XG_SB_MIN 1
#define XG_SB_MAX 10000000
#define XG_SB_RANGE (XG_SB_MAX-XG_SB_MIN)
#define YG_SB_MIN 1
#define YG_SB_MAX 10000000
#define YG_SB_RANGE (YG_SB_MAX-YG_SB_MIN)
/* Key for data that is valid for menus and scroll bars in a frame */
#define XG_FRAME_DATA "emacs_frame"
/* Key for data that menu items hold. */
#define XG_ITEM_DATA "emacs_menuitem"
/* This is a list node in a generic list implementation. */
typedef struct xg_list_node_
{
struct xg_list_node_ *prev;
struct xg_list_node_ *next;
} xg_list_node;
/* This structure is the callback data that is shared for menu items.
We need to keep it separate from the frame structure due to
detachable menus. The data in the frame structure is only valid while
the menu is popped up. This structure is kept around as long as
the menu is. */
typedef struct xg_menu_cb_data_
{
xg_list_node ptrs;
struct frame *f;
Lisp_Object menu_bar_vector;
int menu_bar_items_used;
GCallback highlight_cb;
int ref_count;
} xg_menu_cb_data;
/* This structure holds callback information for each individual menu item. */
typedef struct xg_menu_item_cb_data_
{
xg_list_node ptrs;
gulong select_id;
Lisp_Object help;
gpointer call_data;
xg_menu_cb_data *cl_data;
} xg_menu_item_cb_data;
extern bool xg_uses_old_file_dialog (void);
extern char *xg_get_file_name (struct frame *f,
char *prompt,
char *default_filename,
bool mustmatch_p,
bool only_dir_p);
extern Lisp_Object xg_get_font (struct frame *f, const char *);
extern GtkWidget *xg_create_widget (const char *type,
const char *name,
struct frame *f,
struct _widget_value *val,
GCallback select_cb,
GCallback deactivate_cb,
GCallback highlight_cb);
extern void xg_modify_menubar_widgets (GtkWidget *menubar,
struct frame *f,
struct _widget_value *val,
bool deep_p,
GCallback select_cb,
GCallback deactivate_cb,
GCallback highlight_cb);
extern void xg_update_frame_menubar (struct frame *f);
extern bool xg_event_is_for_menubar (struct frame *, const EVENT *);
extern ptrdiff_t xg_get_scroll_id_for_window (Display *dpy, Window wid);
extern void xg_create_scroll_bar (struct frame *f,
struct scroll_bar *bar,
GCallback scroll_callback,
GCallback end_callback,
const char *scroll_bar_name);
extern void xg_create_horizontal_scroll_bar (struct frame *f,
struct scroll_bar *bar,
GCallback scroll_callback,
GCallback end_callback,
const char *scroll_bar_name);
extern void xg_remove_scroll_bar (struct frame *f, ptrdiff_t scrollbar_id);
extern void xg_update_scrollbar_pos (struct frame *f,
ptrdiff_t scrollbar_id,
int top,
int left,
int width,
int height);
extern void xg_update_horizontal_scrollbar_pos (struct frame *f,
ptrdiff_t scrollbar_id,
int top,
int left,
int width,
int height);
extern void xg_set_toolkit_scroll_bar_thumb (struct scroll_bar *bar,
int portion,
int position,
int whole);
extern void xg_set_toolkit_horizontal_scroll_bar_thumb (struct scroll_bar *bar,
int portion,
int position,
int whole);
extern bool xg_event_is_for_scrollbar (struct frame *, const EVENT *,
bool for_valuator);
extern int xg_get_default_scrollbar_width (struct frame *f);
extern int xg_get_default_scrollbar_height (struct frame *f);
extern void xg_wm_set_size_hint (struct frame *, long int, bool);
extern void update_frame_tool_bar (struct frame *f);
extern void free_frame_tool_bar (struct frame *f);
extern void xg_change_toolbar_position (struct frame *f, Lisp_Object pos);
extern void xg_frame_resized (struct frame *f,
int pixelwidth,
int pixelheight);
extern void xg_frame_set_char_size (struct frame *f, int width, int height);
extern GtkWidget * xg_win_to_widget (Display *dpy, Window wdesc);
extern int xg_get_scale (struct frame *f);
#ifndef HAVE_PGTK
extern void xg_display_open (char *display_name, Display **dpy);
extern void xg_display_close (Display *dpy);
extern GdkCursor * xg_create_default_cursor (Display *dpy);
#else
extern void xg_display_open (char *display_name, GdkDisplay **dpy);
extern void xg_display_close (GdkDisplay *gdpy);
extern GdkCursor * xg_create_default_cursor (GdkDisplay *gdpy);
#endif
extern bool xg_create_frame_widgets (struct frame *f);
extern void xg_free_frame_widgets (struct frame *f);
extern void xg_set_background_color (struct frame *f, unsigned long bg);
extern bool xg_check_special_colors (struct frame *f,
const char *color_name,
Emacs_Color *color);
#ifdef HAVE_PGTK
extern void xg_create_frame_outer_widgets (struct frame *f);
#endif
#ifndef HAVE_PGTK
extern void xg_set_frame_icon (struct frame *f,
Pixmap icon_pixmap,
Pixmap icon_mask);
#endif
extern void xg_set_undecorated (struct frame *f, Lisp_Object undecorated);
extern void xg_frame_restack (struct frame *f1, struct frame *f2, bool above);
extern void xg_set_skip_taskbar (struct frame *f, Lisp_Object skip_taskbar);
extern void xg_set_no_focus_on_map (struct frame *f, Lisp_Object no_focus_on_map);
extern void xg_set_no_accept_focus (struct frame *f, Lisp_Object no_accept_focus);
extern void xg_set_override_redirect (struct frame *f, Lisp_Object override_redirect);
extern bool xg_prepare_tooltip (struct frame *f,
Lisp_Object string,
int *width,
int *height);
#ifndef HAVE_PGTK
extern void xg_show_tooltip (struct frame *f, int root_x, int root_y);
#else
extern void xg_show_tooltip (struct frame *f, Lisp_Object string);
#endif
extern bool xg_hide_tooltip (struct frame *f);
#ifdef USE_CAIRO
extern void xg_page_setup_dialog (void);
extern Lisp_Object xg_get_page_setup (void);
extern void xg_print_frames_dialog (Lisp_Object);
#endif
#if defined HAVE_GTK3 && defined HAVE_XINPUT2
extern bool xg_is_menu_window (Display *dpy, Window);
#endif
#ifndef HAVE_PGTK
extern bool xg_filter_key (struct frame *frame, XEvent *xkey);
#endif
/* Mark all callback data that are Lisp_Objects during GC. */
extern void xg_mark_data (void);
/* Initialize GTK specific parts. */
extern void xg_initialize (void);
/* Setting scrollbar values invokes the callback. Use this variable
to indicate that the callback should do nothing. */
extern bool xg_ignore_gtk_scrollbar;
extern bool xg_gtk_initialized;
#endif /* USE_GTK */
#endif /* GTKUTIL_H */
|