Merge from emacs--devo--0
[emacs.git] / src / gtkutil.h
blob52731b0677afb090d24cc42a6f56d854ffa40afc
1 /* Definitions and headers for GTK widgets.
2 Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008
3 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, or (at your option)
10 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; see the file COPYING. If not, write to
19 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
20 Boston, MA 02110-1301, USA. */
22 #ifndef GTKUTIL_H
23 #define GTKUTIL_H
26 #ifdef USE_GTK
28 #include <gtk/gtk.h>
29 #include "frame.h"
31 /* Minimum and maximum values used for GTK scroll bars */
33 #define XG_SB_MIN 1
34 #define XG_SB_MAX 10000000
35 #define XG_SB_RANGE (XG_SB_MAX-XG_SB_MIN)
37 /* Key for data that is valid for menus in a frame */
38 #define XG_FRAME_DATA "emacs_frame"
40 /* Key for data that is the last scrollbar value */
41 #define XG_LAST_SB_DATA "emacs_last_sb_value"
43 /* Key for data that menu items hold. */
44 #define XG_ITEM_DATA "emacs_menuitem"
47 /* Button types in menus. */
48 enum button_type
50 BUTTON_TYPE_NONE,
51 BUTTON_TYPE_TOGGLE,
52 BUTTON_TYPE_RADIO
55 /* This is a list node in a generic list implementation. */
56 typedef struct xg_list_node_
58 struct xg_list_node_ *prev;
59 struct xg_list_node_ *next;
60 } xg_list_node;
62 /* This structure is the callback data that is shared for menu items.
63 We need to keep it separate from the frame structure due to
64 detachable menus. The data in the frame structure is only valid while
65 the menu is popped up. This structure is kept around as long as
66 the menu is. */
67 typedef struct xg_menu_cb_data_
69 xg_list_node ptrs;
71 FRAME_PTR f;
72 Lisp_Object menu_bar_vector;
73 int menu_bar_items_used;
74 GCallback highlight_cb;
75 int ref_count;
76 } xg_menu_cb_data;
78 /* This structure holds callback information for each individual menu item. */
79 typedef struct xg_menu_item_cb_data_
81 xg_list_node ptrs;
83 gulong select_id;
84 Lisp_Object help;
85 gpointer call_data;
86 xg_menu_cb_data *cl_data;
88 } xg_menu_item_cb_data;
91 /* Used to specify menus and dialogs.
92 This is an adaption from lwlib for Gtk so we can use more of the same
93 code as lwlib in xmenu.c. */
94 typedef struct _widget_value
96 /* name of widget */
97 Lisp_Object lname;
98 char *name;
99 /* value (meaning depend on widget type) */
100 char *value;
101 /* keyboard equivalent. no implications for XtTranslations */
102 Lisp_Object lkey;
103 char *key;
104 /* Help string or nil if none.
105 GC finds this string through the frame's menu_bar_vector
106 or through menu_items. */
107 Lisp_Object help;
108 /* true if enabled */
109 gint enabled;
110 /* true if selected */
111 gint selected;
112 /* The type of a button. */
113 enum button_type button_type;
114 /* Contents of the sub-widgets, also selected slot for checkbox */
115 struct _widget_value *contents;
116 /* data passed to callback */
117 gpointer call_data;
118 /* next one in the list */
119 struct _widget_value *next;
121 /* we resource the widget_value structures; this points to the next
122 one on the free list if this one has been deallocated.
124 struct _widget_value *free_list;
125 } widget_value;
127 #ifdef HAVE_GTK_FILE_BOTH
128 extern int use_old_gtk_file_dialog;
129 #endif
131 extern widget_value *malloc_widget_value P_ ((void));
132 extern void free_widget_value P_ ((widget_value *));
134 extern int xg_uses_old_file_dialog P_ ((void));
136 extern char *xg_get_file_name P_ ((FRAME_PTR f,
137 char *prompt,
138 char *default_filename,
139 int mustmatch_p,
140 int only_dir_p));
142 extern GtkWidget *xg_create_widget P_ ((char *type,
143 char *name,
144 FRAME_PTR f,
145 widget_value *val,
146 GCallback select_cb,
147 GCallback deactivate_cb,
148 GCallback hightlight_cb));
150 extern void xg_modify_menubar_widgets P_ ((GtkWidget *menubar,
151 FRAME_PTR f,
152 widget_value *val,
153 int deep_p,
154 GCallback select_cb,
155 GCallback deactivate_cb,
156 GCallback hightlight_cb));
158 extern int xg_update_frame_menubar P_ ((FRAME_PTR f));
160 extern int xg_have_tear_offs P_ ((void));
162 extern int xg_get_scroll_id_for_window P_ ((Display *dpy, Window wid));
164 extern void xg_create_scroll_bar P_ ((FRAME_PTR f,
165 struct scroll_bar *bar,
166 GCallback scroll_callback,
167 char *scroll_bar_name));
168 extern void xg_show_scroll_bar P_ ((int scrollbar_id));
169 extern void xg_remove_scroll_bar P_ ((FRAME_PTR f, int scrollbar_id));
171 extern void xg_update_scrollbar_pos P_ ((FRAME_PTR f,
172 int scrollbar_id,
173 int top,
174 int left,
175 int width,
176 int height));
178 extern void xg_set_toolkit_scroll_bar_thumb P_ ((struct scroll_bar *bar,
179 int portion,
180 int position,
181 int whole));
184 extern void update_frame_tool_bar P_ ((FRAME_PTR f));
185 extern void free_frame_tool_bar P_ ((FRAME_PTR f));
187 extern void xg_resize_widgets P_ ((FRAME_PTR f,
188 int pixelwidth,
189 int pixelheight));
190 extern void xg_frame_set_char_size P_ ((FRAME_PTR f, int cols, int rows));
191 extern GtkWidget * xg_win_to_widget P_ ((Display *dpy, Window wdesc));
193 extern int xg_display_open P_ ((char *display_name, Display **dpy));
194 extern void xg_display_close P_ ((Display *dpy));
195 extern GdkCursor * xg_create_default_cursor P_ ((Display *dpy));
197 extern int xg_create_frame_widgets P_ ((FRAME_PTR f));
198 extern void x_wm_set_size_hint P_ ((FRAME_PTR f,
199 long flags,
200 int user_position));
201 extern void xg_set_background_color P_ ((FRAME_PTR f, unsigned long bg));
203 extern void xg_set_frame_icon P_ ((FRAME_PTR f,
204 Pixmap icon_pixmap,
205 Pixmap icon_mask));
207 /* Mark all callback data that are Lisp_object:s during GC. */
208 extern void xg_mark_data P_ ((void));
210 /* Initialize GTK specific parts. */
211 extern void xg_initialize P_ ((void));
213 /* Setting scrollbar values invokes the callback. Use this variable
214 to indicate that the callback should do nothing. */
215 extern int xg_ignore_gtk_scrollbar;
217 #endif /* USE_GTK */
218 #endif /* GTKUTIL_H */
220 /* arch-tag: 0757f3dc-00c7-4cee-9e4c-282cf1d34c72
221 (do not change this comment) */