1 /* Definitions and headers for GTK widgets.
3 Copyright (C) 2003-2019 Free Software Foundation, Inc.
5 This file is part of GNU Emacs.
7 GNU Emacs is free software: you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation, either version 3 of the License, or (at
10 your option) any later version.
12 GNU Emacs is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. */
27 #include "../lwlib/lwlib-widget.h"
30 /* Minimum and maximum values used for GTK scroll bars */
33 #define XG_SB_MAX 10000000
34 #define XG_SB_RANGE (XG_SB_MAX-XG_SB_MIN)
36 #define YG_SB_MAX 10000000
37 #define YG_SB_RANGE (YG_SB_MAX-YG_SB_MIN)
39 /* Key for data that is valid for menus and scroll bars in a frame */
40 #define XG_FRAME_DATA "emacs_frame"
42 /* Key for data that menu items hold. */
43 #define XG_ITEM_DATA "emacs_menuitem"
45 /* This is a list node in a generic list implementation. */
46 typedef struct xg_list_node_
48 struct xg_list_node_
*prev
;
49 struct xg_list_node_
*next
;
52 /* This structure is the callback data that is shared for menu items.
53 We need to keep it separate from the frame structure due to
54 detachable menus. The data in the frame structure is only valid while
55 the menu is popped up. This structure is kept around as long as
57 typedef struct xg_menu_cb_data_
62 Lisp_Object menu_bar_vector
;
63 int menu_bar_items_used
;
64 GCallback highlight_cb
;
68 /* This structure holds callback information for each individual menu item. */
69 typedef struct xg_menu_item_cb_data_
76 xg_menu_cb_data
*cl_data
;
78 } xg_menu_item_cb_data
;
80 extern bool xg_uses_old_file_dialog (void);
82 extern char *xg_get_file_name (struct frame
*f
,
84 char *default_filename
,
88 extern Lisp_Object
xg_get_font (struct frame
*f
, const char *);
90 extern GtkWidget
*xg_create_widget (const char *type
,
93 struct _widget_value
*val
,
95 GCallback deactivate_cb
,
96 GCallback highlight_cb
);
98 extern void xg_modify_menubar_widgets (GtkWidget
*menubar
,
100 struct _widget_value
*val
,
103 GCallback deactivate_cb
,
104 GCallback highlight_cb
);
106 extern void xg_update_frame_menubar (struct frame
*f
);
108 extern bool xg_event_is_for_menubar (struct frame
*, const XEvent
*);
110 extern ptrdiff_t xg_get_scroll_id_for_window (Display
*dpy
, Window wid
);
112 extern void xg_create_scroll_bar (struct frame
*f
,
113 struct scroll_bar
*bar
,
114 GCallback scroll_callback
,
115 GCallback end_callback
,
116 const char *scroll_bar_name
);
117 extern void xg_create_horizontal_scroll_bar (struct frame
*f
,
118 struct scroll_bar
*bar
,
119 GCallback scroll_callback
,
120 GCallback end_callback
,
121 const char *scroll_bar_name
);
122 extern void xg_remove_scroll_bar (struct frame
*f
, ptrdiff_t scrollbar_id
);
124 extern void xg_update_scrollbar_pos (struct frame
*f
,
125 ptrdiff_t scrollbar_id
,
130 extern void xg_update_horizontal_scrollbar_pos (struct frame
*f
,
131 ptrdiff_t scrollbar_id
,
137 extern void xg_set_toolkit_scroll_bar_thumb (struct scroll_bar
*bar
,
141 extern void xg_set_toolkit_horizontal_scroll_bar_thumb (struct scroll_bar
*bar
,
145 extern bool xg_event_is_for_scrollbar (struct frame
*, const XEvent
*);
146 extern int xg_get_default_scrollbar_width (struct frame
*f
);
147 extern int xg_get_default_scrollbar_height (struct frame
*f
);
149 extern void update_frame_tool_bar (struct frame
*f
);
150 extern void free_frame_tool_bar (struct frame
*f
);
151 extern void xg_change_toolbar_position (struct frame
*f
, Lisp_Object pos
);
153 extern void xg_frame_resized (struct frame
*f
,
156 extern void xg_frame_set_char_size (struct frame
*f
, int width
, int height
);
157 extern GtkWidget
* xg_win_to_widget (Display
*dpy
, Window wdesc
);
159 extern int xg_get_scale (struct frame
*f
);
160 extern void xg_display_open (char *display_name
, Display
**dpy
);
161 extern void xg_display_close (Display
*dpy
);
162 extern GdkCursor
* xg_create_default_cursor (Display
*dpy
);
164 extern bool xg_create_frame_widgets (struct frame
*f
);
165 extern void xg_free_frame_widgets (struct frame
*f
);
166 extern void xg_set_background_color (struct frame
*f
, unsigned long bg
);
167 extern bool xg_check_special_colors (struct frame
*f
,
168 const char *color_name
,
171 extern void xg_set_frame_icon (struct frame
*f
,
175 extern void xg_set_undecorated (struct frame
*f
, Lisp_Object undecorated
);
176 extern void xg_frame_restack (struct frame
*f1
, struct frame
*f2
, bool above
);
177 extern void xg_set_skip_taskbar (struct frame
*f
, Lisp_Object skip_taskbar
);
178 extern void xg_set_no_focus_on_map (struct frame
*f
, Lisp_Object no_focus_on_map
);
179 extern void xg_set_no_accept_focus (struct frame
*f
, Lisp_Object no_accept_focus
);
180 extern void xg_set_override_redirect (struct frame
*f
, Lisp_Object override_redirect
);
182 extern bool xg_prepare_tooltip (struct frame
*f
,
186 extern void xg_show_tooltip (struct frame
*f
, int root_x
, int root_y
);
187 extern bool xg_hide_tooltip (struct frame
*f
);
190 extern void xg_page_setup_dialog (void);
191 extern Lisp_Object
xg_get_page_setup (void);
192 extern void xg_print_frames_dialog (Lisp_Object
);
195 /* Mark all callback data that are Lisp_object:s during GC. */
196 extern void xg_mark_data (void);
198 /* Initialize GTK specific parts. */
199 extern void xg_initialize (void);
201 /* Setting scrollbar values invokes the callback. Use this variable
202 to indicate that the callback should do nothing. */
203 extern bool xg_ignore_gtk_scrollbar
;
205 extern bool xg_gtk_initialized
;
207 #endif /* GTKUTIL_H */