1 /* Functions for creating and updating GTK widgets.
3 Copyright (C) 2003-2017 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/>. */
29 #include "dispextern.h"
33 #include "blockinput.h"
36 #include "termhooks.h"
40 #include <gdk/gdkkeysyms.h>
43 #include <X11/Xft/Xft.h>
48 #include "emacsgtkfixed.h"
52 #include <X11/extensions/Xdbe.h>
55 #ifndef HAVE_GTK_WIDGET_SET_HAS_WINDOW
56 #define gtk_widget_set_has_window(w, b) \
57 (gtk_fixed_set_has_window (GTK_FIXED (w), b))
59 #ifndef HAVE_GTK_DIALOG_GET_ACTION_AREA
60 #define gtk_dialog_get_action_area(w) ((w)->action_area)
61 #define gtk_dialog_get_content_area(w) ((w)->vbox)
63 #ifndef HAVE_GTK_WIDGET_GET_SENSITIVE
64 #define gtk_widget_get_sensitive(w) (GTK_WIDGET_SENSITIVE (w))
66 #ifndef HAVE_GTK_ADJUSTMENT_GET_PAGE_SIZE
67 #define gtk_adjustment_set_page_size(w, s) ((w)->page_size = (s))
68 #define gtk_adjustment_set_page_increment(w, s) ((w)->page_increment = (s))
69 #define gtk_adjustment_get_step_increment(w) ((w)->step_increment)
70 #define gtk_adjustment_set_step_increment(w, s) ((w)->step_increment = (s))
72 #if GTK_CHECK_VERSION (2, 12, 0)
73 #define remove_submenu(w) gtk_menu_item_set_submenu ((w), NULL)
75 #define remove_submenu(w) gtk_menu_item_remove_submenu ((w))
78 #if ! GTK_CHECK_VERSION (2, 14, 0)
79 #define gtk_adjustment_configure(adj, xvalue, xlower, \
80 xupper, xstep_increment, \
81 xpage_increment, xpagesize) \
83 adj->lower = xlower; \
84 adj->upper = xupper; \
85 adj->page_size = xpagesize; \
86 gtk_adjustment_set_value (adj, xvalue); \
87 adj->page_increment = xpage_increment; \
88 adj->step_increment = xstep_increment; \
90 #endif /* < Gtk+ 2.14 */
93 #if GTK_CHECK_VERSION (3, 2, 0)
94 #define USE_NEW_GTK_FONT_CHOOSER 1
96 #define USE_NEW_GTK_FONT_CHOOSER 0
97 #define gtk_font_chooser_dialog_new(x, y) \
98 gtk_font_selection_dialog_new (x)
99 #undef GTK_FONT_CHOOSER
100 #define GTK_FONT_CHOOSER(x) GTK_FONT_SELECTION_DIALOG (x)
101 #define gtk_font_chooser_set_font(x, y) \
102 gtk_font_selection_dialog_set_font_name (x, y)
104 #endif /* HAVE_FREETYPE */
106 #if GTK_CHECK_VERSION (3, 10, 0)
107 #define XG_TEXT_CANCEL "Cancel"
108 #define XG_TEXT_OK "OK"
109 #define XG_TEXT_OPEN "Open"
111 #define XG_TEXT_CANCEL GTK_STOCK_CANCEL
112 #define XG_TEXT_OK GTK_STOCK_OK
113 #define XG_TEXT_OPEN GTK_STOCK_OPEN
117 #ifdef USE_GTK_TOOLTIP
118 #define gdk_window_get_screen(w) gdk_drawable_get_screen (w)
120 #define gdk_window_get_geometry(w, a, b, c, d) \
121 gdk_window_get_geometry (w, a, b, c, d, 0)
122 #define gdk_x11_window_lookup_for_display(d, w) \
123 gdk_xid_table_lookup_for_display (d, w)
124 #define gtk_box_new(ori, spacing) \
125 ((ori) == GTK_ORIENTATION_HORIZONTAL \
126 ? gtk_hbox_new (FALSE, (spacing)) : gtk_vbox_new (FALSE, (spacing)))
127 #define gtk_scrollbar_new(ori, spacing) \
128 ((ori) == GTK_ORIENTATION_HORIZONTAL \
129 ? gtk_hscrollbar_new ((spacing)) : gtk_vscrollbar_new ((spacing)))
131 #define GDK_KEY_g GDK_g
133 #endif /* HAVE_GTK3 */
135 #define XG_BIN_CHILD(x) gtk_bin_get_child (GTK_BIN (x))
137 static void update_theme_scrollbar_width (void);
138 static void update_theme_scrollbar_height (void);
140 #define TB_INFO_KEY "xg_frame_tb_info"
141 struct xg_frame_tb_info
143 Lisp_Object last_tool_bar
;
146 int hmargin
, vmargin
;
147 GtkTextDirection dir
;
150 static GtkWidget
* xg_get_widget_from_map (ptrdiff_t idx
);
153 /***********************************************************************
154 Display handling functions
155 ***********************************************************************/
157 /* Keep track of the default display, or NULL if there is none. Emacs
158 may close all its displays. */
160 static GdkDisplay
*gdpy_def
;
162 /* When the GTK widget W is to be created on a display for F that
163 is not the default display, set the display for W.
164 W can be a GtkMenu or a GtkWindow widget. */
167 xg_set_screen (GtkWidget
*w
, struct frame
*f
)
169 if (FRAME_X_DISPLAY (f
) != DEFAULT_GDK_DISPLAY ())
171 GdkDisplay
*gdpy
= gdk_x11_lookup_xdisplay (FRAME_X_DISPLAY (f
));
172 GdkScreen
*gscreen
= gdk_display_get_default_screen (gdpy
);
175 gtk_menu_set_screen (GTK_MENU (w
), gscreen
);
177 gtk_window_set_screen (GTK_WINDOW (w
), gscreen
);
182 /* Open a display named by DISPLAY_NAME. The display is returned in *DPY.
183 *DPY is set to NULL if the display can't be opened.
185 Returns non-zero if display could be opened, zero if display could not
186 be opened, and less than zero if the GTK version doesn't support
187 multiple displays. */
190 xg_display_open (char *display_name
, Display
**dpy
)
194 unrequest_sigio (); /* See comment in x_display_ok, xterm.c. */
195 gdpy
= gdk_display_open (display_name
);
197 if (!gdpy_def
&& gdpy
)
200 gdk_display_manager_set_default_display (gdk_display_manager_get (),
204 *dpy
= gdpy
? GDK_DISPLAY_XDISPLAY (gdpy
) : NULL
;
207 /* Scaling/HiDPI functions. */
209 xg_get_gdk_scale (void)
211 const char *sscale
= getenv ("GDK_SCALE");
215 long scale
= atol (sscale
);
217 return min (scale
, INT_MAX
);
224 xg_get_scale (struct frame
*f
)
226 #if GTK_CHECK_VERSION (3, 10, 0)
227 if (FRAME_GTK_WIDGET (f
))
228 return gtk_widget_get_scale_factor (FRAME_GTK_WIDGET (f
));
230 return xg_get_gdk_scale ();
233 /* Close display DPY. */
236 xg_display_close (Display
*dpy
)
238 GdkDisplay
*gdpy
= gdk_x11_lookup_xdisplay (dpy
);
240 /* If this is the default display, try to change it before closing.
241 If there is no other display to use, gdpy_def is set to NULL, and
242 the next call to xg_display_open resets the default display. */
243 if (gdk_display_get_default () == gdpy
)
245 struct x_display_info
*dpyinfo
;
246 GdkDisplay
*gdpy_new
= NULL
;
248 /* Find another display. */
249 for (dpyinfo
= x_display_list
; dpyinfo
; dpyinfo
= dpyinfo
->next
)
250 if (dpyinfo
->display
!= dpy
)
252 gdpy_new
= gdk_x11_lookup_xdisplay (dpyinfo
->display
);
253 gdk_display_manager_set_default_display (gdk_display_manager_get (),
260 #if GTK_CHECK_VERSION (2, 0, 0) && ! GTK_CHECK_VERSION (2, 10, 0)
261 /* GTK 2.2-2.8 has a bug that makes gdk_display_close crash (bug
262 http://bugzilla.gnome.org/show_bug.cgi?id=85715). This way we
263 can continue running, but there will be memory leaks. */
264 g_object_run_dispose (G_OBJECT (gdpy
));
266 /* This seems to be fixed in GTK 2.10. */
267 gdk_display_close (gdpy
);
272 /***********************************************************************
274 ***********************************************************************/
276 /* Create and return the cursor to be used for popup menus and
277 scroll bars on display DPY. */
280 xg_create_default_cursor (Display
*dpy
)
282 GdkDisplay
*gdpy
= gdk_x11_lookup_xdisplay (dpy
);
283 return gdk_cursor_new_for_display (gdpy
, GDK_LEFT_PTR
);
286 /* Apply GMASK to GPIX and return a GdkPixbuf with an alpha channel. */
289 xg_get_pixbuf_from_pix_and_mask (struct frame
*f
,
293 GdkPixbuf
*icon_buf
= 0;
296 unsigned int width
, height
, depth
, uunused
;
298 if (FRAME_DISPLAY_INFO (f
)->red_bits
!= 8)
300 XGetGeometry (FRAME_X_DISPLAY (f
), pix
, &wunused
, &iunused
, &iunused
,
301 &width
, &height
, &uunused
, &depth
);
304 XImage
*xim
= XGetImage (FRAME_X_DISPLAY (f
), pix
, 0, 0, width
, height
,
308 XImage
*xmm
= (! mask
? 0
309 : XGetImage (FRAME_X_DISPLAY (f
), mask
, 0, 0,
310 width
, height
, ~0, XYPixmap
));
311 icon_buf
= gdk_pixbuf_new (GDK_COLORSPACE_RGB
, TRUE
, 8, width
, height
);
314 guchar
*pixels
= gdk_pixbuf_get_pixels (icon_buf
);
315 int rowjunkwidth
= gdk_pixbuf_get_rowstride (icon_buf
) - width
* 4;
316 for (int y
= 0; y
< height
; y
++, pixels
+= rowjunkwidth
)
317 for (int x
= 0; x
< width
; x
++)
319 unsigned long rgb
= XGetPixel (xim
, x
, y
);
320 *pixels
++ = (rgb
>> 16) & 255;
321 *pixels
++ = (rgb
>> 8) & 255;
322 *pixels
++ = rgb
& 255;
323 *pixels
++ = xmm
&& !XGetPixel (xmm
, x
, y
) ? 0 : 255;
336 file_for_image (Lisp_Object image
)
338 Lisp_Object specified_file
= Qnil
;
341 for (tail
= XCDR (image
);
342 NILP (specified_file
) && CONSP (tail
) && CONSP (XCDR (tail
));
343 tail
= XCDR (XCDR (tail
)))
344 if (EQ (XCAR (tail
), QCfile
))
345 specified_file
= XCAR (XCDR (tail
));
347 return specified_file
;
350 /* For the image defined in IMG, make and return a GtkImage. For displays with
351 8 planes or less we must make a GdkPixbuf and apply the mask manually.
352 Otherwise the highlighting and dimming the tool bar code in GTK does
353 will look bad. For display with more than 8 planes we just use the
354 pixmap and mask directly. For monochrome displays, GTK doesn't seem
355 able to use external pixmaps, it looks bad whatever we do.
356 The image is defined on the display where frame F is.
357 WIDGET is used to find the GdkColormap to use for the GdkPixbuf.
358 If OLD_WIDGET is NULL, a new widget is constructed and returned.
359 If OLD_WIDGET is not NULL, that widget is modified. */
362 xg_get_image_for_pixmap (struct frame
*f
,
365 GtkImage
*old_widget
)
369 /* If we have a file, let GTK do all the image handling.
370 This seems to be the only way to make insensitive and activated icons
371 look good in all cases. */
372 Lisp_Object specified_file
= file_for_image (img
->spec
);
375 /* We already loaded the image once before calling this
376 function, so this only fails if the image file has been removed.
377 In that case, use the pixmap already loaded. */
379 if (STRINGP (specified_file
)
380 && STRINGP (file
= x_find_image_file (specified_file
)))
382 char *encoded_file
= SSDATA (ENCODE_FILE (file
));
384 old_widget
= GTK_IMAGE (gtk_image_new_from_file (encoded_file
));
386 gtk_image_set_from_file (old_widget
, encoded_file
);
388 return GTK_WIDGET (old_widget
);
391 /* No file, do the image handling ourselves. This will look very bad
392 on a monochrome display, and sometimes bad on all displays with
395 /* This is a workaround to make icons look good on pseudo color
396 displays. Apparently GTK expects the images to have an alpha
397 channel. If they don't, insensitive and activated icons will
398 look bad. This workaround does not work on monochrome displays,
399 and is strictly not needed on true color/static color displays (i.e.
400 16 bits and higher). But we do it anyway so we get a pixbuf that is
401 not associated with the img->pixmap. The img->pixmap may be removed
402 by clearing the image cache and then the tool bar redraw fails, since
403 Gtk+ assumes the pixmap is always there. */
404 icon_buf
= xg_get_pixbuf_from_pix_and_mask (f
, img
->pixmap
, img
->mask
);
409 old_widget
= GTK_IMAGE (gtk_image_new_from_pixbuf (icon_buf
));
411 gtk_image_set_from_pixbuf (old_widget
, icon_buf
);
413 g_object_unref (G_OBJECT (icon_buf
));
416 return GTK_WIDGET (old_widget
);
420 /* Set CURSOR on W and all widgets W contain. We must do like this
421 for scroll bars and menu because they create widgets internally,
422 and it is those widgets that are visible. */
425 xg_set_cursor (GtkWidget
*w
, GdkCursor
*cursor
)
427 GdkWindow
*window
= gtk_widget_get_window (w
);
428 GList
*children
= gdk_window_peek_children (window
);
430 gdk_window_set_cursor (window
, cursor
);
432 /* The scroll bar widget has more than one GDK window (had to look at
433 the source to figure this out), and there is no way to set cursor
434 on widgets in GTK. So we must set the cursor for all GDK windows.
437 for ( ; children
; children
= g_list_next (children
))
438 gdk_window_set_cursor (GDK_WINDOW (children
->data
), cursor
);
441 /* Insert NODE into linked LIST. */
444 xg_list_insert (xg_list_node
*list
, xg_list_node
*node
)
446 xg_list_node
*list_start
= list
->next
;
448 if (list_start
) list_start
->prev
= node
;
449 node
->next
= list_start
;
454 /* Remove NODE from linked LIST. */
457 xg_list_remove (xg_list_node
*list
, xg_list_node
*node
)
459 xg_list_node
*list_start
= list
->next
;
460 if (node
== list_start
)
462 list
->next
= node
->next
;
463 if (list
->next
) list
->next
->prev
= 0;
467 node
->prev
->next
= node
->next
;
468 if (node
->next
) node
->next
->prev
= node
->prev
;
472 /* Allocate and return a utf8 version of STR. If STR is already
473 utf8 or NULL, just return a copy of STR.
474 A new string is allocated and the caller must free the result
478 get_utf8_string (const char *str
)
482 if (!str
) return NULL
;
484 /* If not UTF-8, try current locale. */
485 if (!g_utf8_validate (str
, -1, NULL
))
486 utf8_str
= g_locale_to_utf8 (str
, -1, 0, 0, 0);
488 return g_strdup (str
);
492 /* Probably some control characters in str. Escape them. */
494 ptrdiff_t nr_bad
= 0;
497 unsigned char *p
= (unsigned char *)str
;
501 while (! (cp
= g_locale_to_utf8 ((char *)p
, -1, &bytes_read
,
502 &bytes_written
, &err
))
503 && err
->code
== G_CONVERT_ERROR_ILLEGAL_SEQUENCE
)
506 p
+= bytes_written
+1;
520 if (INT_MULTIPLY_WRAPV (nr_bad
, 4, &alloc
)
521 || INT_ADD_WRAPV (len
+ 1, alloc
, &alloc
)
523 memory_full (SIZE_MAX
);
524 up
= utf8_str
= xmalloc (alloc
);
525 p
= (unsigned char *)str
;
527 while (! (cp
= g_locale_to_utf8 ((char *)p
, -1, &bytes_read
,
528 &bytes_written
, &err
))
529 && err
->code
== G_CONVERT_ERROR_ILLEGAL_SEQUENCE
)
531 memcpy (up
, p
, bytes_written
);
533 up
+= sprintf (up
, "\\%03o", p
[bytes_written
]);
534 p
+= bytes_written
+ 1;
553 /* Check for special colors used in face spec for region face.
554 The colors are fetched from the Gtk+ theme.
555 Return true if color was found, false if not. */
558 xg_check_special_colors (struct frame
*f
,
559 const char *color_name
,
563 bool get_bg
= strcmp ("gtk_selection_bg_color", color_name
) == 0;
564 bool get_fg
= !get_bg
&& strcmp ("gtk_selection_fg_color", color_name
) == 0;
566 if (! FRAME_GTK_WIDGET (f
) || ! (get_bg
|| get_fg
))
572 GtkStyleContext
*gsty
573 = gtk_widget_get_style_context (FRAME_GTK_OUTER_WIDGET (f
));
575 char buf
[sizeof "rgb://rrrr/gggg/bbbb"];
576 int state
= GTK_STATE_FLAG_SELECTED
|GTK_STATE_FLAG_FOCUSED
;
578 gtk_style_context_get_color (gsty
, state
, &col
);
582 /* FIXME: Retrieving the background color is deprecated in
583 GTK+ 3.16. New versions of GTK+ don’t use the concept of a
584 single background color any more, so we shouldn’t query for
586 gtk_style_context_get (gsty
, state
,
587 GTK_STYLE_PROPERTY_BACKGROUND_COLOR
, &c
,
595 g
= col
.green
* 65535,
596 b
= col
.blue
* 65535;
597 sprintf (buf
, "rgb:%04x/%04x/%04x", r
, g
, b
);
598 success_p
= x_parse_color (f
, buf
, color
) != 0;
600 GtkStyle
*gsty
= gtk_widget_get_style (FRAME_GTK_WIDGET (f
));
601 GdkColor
*grgb
= get_bg
602 ? &gsty
->bg
[GTK_STATE_SELECTED
]
603 : &gsty
->fg
[GTK_STATE_SELECTED
];
605 color
->red
= grgb
->red
;
606 color
->green
= grgb
->green
;
607 color
->blue
= grgb
->blue
;
608 color
->pixel
= grgb
->pixel
;
619 /***********************************************************************
621 ***********************************************************************/
622 /* Gtk+ calls this callback when the parent of our tooltip dummy changes.
623 We use that to pop down the tooltip. This happens if Gtk+ for some
624 reason wants to change or hide the tooltip. */
626 #ifdef USE_GTK_TOOLTIP
629 hierarchy_ch_cb (GtkWidget
*widget
,
630 GtkWidget
*previous_toplevel
,
633 struct frame
*f
= user_data
;
634 struct x_output
*x
= f
->output_data
.x
;
635 GtkWidget
*top
= gtk_widget_get_toplevel (x
->ttip_lbl
);
637 if (! top
|| ! GTK_IS_WINDOW (top
))
638 gtk_widget_hide (previous_toplevel
);
641 /* Callback called when Gtk+ thinks a tooltip should be displayed.
642 We use it to get the tooltip window and the tooltip widget so
643 we can manipulate the ourselves.
645 Return FALSE ensures that the tooltip is not shown. */
648 qttip_cb (GtkWidget
*widget
,
651 gboolean keyboard_mode
,
655 struct frame
*f
= user_data
;
656 struct x_output
*x
= f
->output_data
.x
;
657 if (x
->ttip_widget
== NULL
)
662 g_object_set (G_OBJECT (widget
), "has-tooltip", FALSE
, NULL
);
663 x
->ttip_widget
= tooltip
;
664 g_object_ref (G_OBJECT (tooltip
));
665 x
->ttip_lbl
= gtk_label_new ("");
666 g_object_ref (G_OBJECT (x
->ttip_lbl
));
667 gtk_tooltip_set_custom (tooltip
, x
->ttip_lbl
);
668 x
->ttip_window
= GTK_WINDOW (gtk_widget_get_toplevel (x
->ttip_lbl
));
670 /* Change stupid Gtk+ default line wrapping. */
671 p
= gtk_widget_get_parent (x
->ttip_lbl
);
672 list
= gtk_container_get_children (GTK_CONTAINER (p
));
673 for (iter
= list
; iter
; iter
= g_list_next (iter
))
675 GtkWidget
*w
= GTK_WIDGET (iter
->data
);
676 if (GTK_IS_LABEL (w
))
677 gtk_label_set_line_wrap (GTK_LABEL (w
), FALSE
);
681 /* ATK needs an empty title for some reason. */
682 gtk_window_set_title (x
->ttip_window
, "");
683 /* Realize so we can safely get screen later on. */
684 gtk_widget_realize (GTK_WIDGET (x
->ttip_window
));
685 gtk_widget_realize (x
->ttip_lbl
);
687 g_signal_connect (x
->ttip_lbl
, "hierarchy-changed",
688 G_CALLBACK (hierarchy_ch_cb
), f
);
693 #endif /* USE_GTK_TOOLTIP */
695 /* Prepare a tooltip to be shown, i.e. calculate WIDTH and HEIGHT.
696 Return true if a system tooltip is available. */
699 xg_prepare_tooltip (struct frame
*f
,
704 #ifndef USE_GTK_TOOLTIP
707 struct x_output
*x
= f
->output_data
.x
;
711 GtkSettings
*settings
;
712 gboolean tt_enabled
= TRUE
;
714 Lisp_Object encoded_string
;
716 if (!x
->ttip_lbl
) return 0;
719 encoded_string
= ENCODE_UTF_8 (string
);
720 widget
= GTK_WIDGET (x
->ttip_lbl
);
721 gwin
= gtk_widget_get_window (GTK_WIDGET (x
->ttip_window
));
722 screen
= gdk_window_get_screen (gwin
);
723 settings
= gtk_settings_get_for_screen (screen
);
724 g_object_get (settings
, "gtk-enable-tooltips", &tt_enabled
, NULL
);
727 g_object_set (settings
, "gtk-enable-tooltips", FALSE
, NULL
);
728 /* Record that we disabled it so it can be enabled again. */
729 g_object_set_data (G_OBJECT (x
->ttip_window
), "restore-tt",
733 /* Prevent Gtk+ from hiding tooltip on mouse move and such. */
734 g_object_set_data (G_OBJECT
735 (gtk_widget_get_display (GTK_WIDGET (x
->ttip_window
))),
736 "gdk-display-current-tooltip", NULL
);
738 /* Put our dummy widget in so we can get callbacks for unrealize and
739 hierarchy-changed. */
740 gtk_tooltip_set_custom (x
->ttip_widget
, widget
);
741 gtk_tooltip_set_text (x
->ttip_widget
, SSDATA (encoded_string
));
742 gtk_widget_get_preferred_size (GTK_WIDGET (x
->ttip_window
), NULL
, &req
);
743 if (width
) *width
= req
.width
;
744 if (height
) *height
= req
.height
;
749 #endif /* USE_GTK_TOOLTIP */
752 /* Show the tooltip at ROOT_X and ROOT_Y.
753 xg_prepare_tooltip must have been called before this function. */
756 xg_show_tooltip (struct frame
*f
, int root_x
, int root_y
)
758 #ifdef USE_GTK_TOOLTIP
759 struct x_output
*x
= f
->output_data
.x
;
763 gtk_window_move (x
->ttip_window
, root_x
/ xg_get_scale (f
),
764 root_y
/ xg_get_scale (f
));
765 gtk_widget_show_all (GTK_WIDGET (x
->ttip_window
));
771 /* Hide tooltip if shown. Do nothing if not shown.
772 Return true if tip was hidden, false if not (i.e. not using
776 xg_hide_tooltip (struct frame
*f
)
779 #ifdef USE_GTK_TOOLTIP
780 if (f
->output_data
.x
->ttip_window
)
782 GtkWindow
*win
= f
->output_data
.x
->ttip_window
;
784 gtk_widget_hide (GTK_WIDGET (win
));
786 if (g_object_get_data (G_OBJECT (win
), "restore-tt"))
788 GdkWindow
*gwin
= gtk_widget_get_window (GTK_WIDGET (win
));
789 GdkScreen
*screen
= gdk_window_get_screen (gwin
);
790 GtkSettings
*settings
= gtk_settings_get_for_screen (screen
);
791 g_object_set (settings
, "gtk-enable-tooltips", TRUE
, NULL
);
802 /***********************************************************************
803 General functions for creating widgets, resizing, events, e.t.c.
804 ***********************************************************************/
806 #if ! GTK_CHECK_VERSION (3, 22, 0)
808 my_log_handler (const gchar
*log_domain
, GLogLevelFlags log_level
,
809 const gchar
*msg
, gpointer user_data
)
811 if (!strstr (msg
, "visible children"))
812 fprintf (stderr
, "XX %s-WARNING **: %s\n", log_domain
, msg
);
816 /* Make a geometry string and pass that to GTK. It seems this is the
817 only way to get geometry position right if the user explicitly
818 asked for a position when starting Emacs.
819 F is the frame we shall set geometry for. */
822 xg_set_geometry (struct frame
*f
)
824 if (f
->size_hint_flags
& (USPosition
| PPosition
))
826 #if ! GTK_CHECK_VERSION (3, 22, 0)
827 if (x_gtk_use_window_move
)
830 /* Handle negative positions without consulting
831 gtk_window_parse_geometry (Bug#25851). The position will
832 be off by scrollbar width + window manager decorations. */
833 if (f
->size_hint_flags
& XNegative
)
834 f
->left_pos
= (x_display_pixel_width (FRAME_DISPLAY_INFO (f
))
835 - FRAME_PIXEL_WIDTH (f
) + f
->left_pos
);
837 if (f
->size_hint_flags
& YNegative
)
838 f
->top_pos
= (x_display_pixel_height (FRAME_DISPLAY_INFO (f
))
839 - FRAME_PIXEL_HEIGHT (f
) + f
->top_pos
);
841 gtk_window_move (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
842 f
->left_pos
, f
->top_pos
);
844 /* Reset size hint flags. */
845 f
->size_hint_flags
&= ~ (XNegative
| YNegative
);
846 # if ! GTK_CHECK_VERSION (3, 22, 0)
850 int left
= f
->left_pos
;
851 int xneg
= f
->size_hint_flags
& XNegative
;
852 int top
= f
->top_pos
;
853 int yneg
= f
->size_hint_flags
& YNegative
;
854 char geom_str
[sizeof "=x--" + 4 * INT_STRLEN_BOUND (int)];
862 sprintf (geom_str
, "=%dx%d%c%d%c%d",
863 FRAME_PIXEL_WIDTH (f
),
864 FRAME_PIXEL_HEIGHT (f
),
865 (xneg
? '-' : '+'), left
,
866 (yneg
? '-' : '+'), top
);
868 /* Silence warning about visible children. */
869 id
= g_log_set_handler ("Gtk", G_LOG_LEVEL_WARNING
| G_LOG_FLAG_FATAL
870 | G_LOG_FLAG_RECURSION
, my_log_handler
, NULL
);
872 if (!gtk_window_parse_geometry (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
874 fprintf (stderr
, "Failed to parse: '%s'\n", geom_str
);
876 g_log_remove_handler ("Gtk", id
);
882 /* Function to handle resize of our frame. As we have a Gtk+ tool bar
883 and a Gtk+ menu bar, we get resize events for the edit part of the
884 frame only. We let Gtk+ deal with the Gtk+ parts.
885 F is the frame to resize.
886 PIXELWIDTH, PIXELHEIGHT is the new size in pixels. */
889 xg_frame_resized (struct frame
*f
, int pixelwidth
, int pixelheight
)
893 if (pixelwidth
== -1 && pixelheight
== -1)
895 if (FRAME_GTK_WIDGET (f
) && gtk_widget_get_mapped (FRAME_GTK_WIDGET (f
)))
896 gdk_window_get_geometry (gtk_widget_get_window (FRAME_GTK_WIDGET (f
)),
897 0, 0, &pixelwidth
, &pixelheight
);
902 width
= FRAME_PIXEL_TO_TEXT_WIDTH (f
, pixelwidth
);
903 height
= FRAME_PIXEL_TO_TEXT_HEIGHT (f
, pixelheight
);
905 frame_size_history_add
906 (f
, Qxg_frame_resized
, width
, height
, Qnil
);
908 if (width
!= FRAME_TEXT_WIDTH (f
)
909 || height
!= FRAME_TEXT_HEIGHT (f
)
910 || pixelwidth
!= FRAME_PIXEL_WIDTH (f
)
911 || pixelheight
!= FRAME_PIXEL_HEIGHT (f
))
913 x_clear_under_internal_border (f
);
914 change_frame_size (f
, width
, height
, 0, 1, 0, 1);
915 SET_FRAME_GARBAGED (f
);
916 cancel_mouse_face (f
);
920 /* Resize the outer window of frame F after changing the height.
921 COLUMNS/ROWS is the size the edit area shall have after the resize. */
924 xg_frame_set_char_size (struct frame
*f
, int width
, int height
)
926 int pixelwidth
= FRAME_TEXT_TO_PIXEL_WIDTH (f
, width
);
927 int pixelheight
= FRAME_TEXT_TO_PIXEL_HEIGHT (f
, height
);
928 Lisp_Object fullscreen
= get_frame_param (f
, Qfullscreen
);
929 gint gwidth
, gheight
;
931 = pixelheight
+ FRAME_TOOLBAR_HEIGHT (f
) + FRAME_MENUBAR_HEIGHT (f
);
932 int totalwidth
= pixelwidth
+ FRAME_TOOLBAR_WIDTH (f
);
934 if (FRAME_PIXEL_HEIGHT (f
) == 0)
937 gtk_window_get_size (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
940 /* Do this before resize, as we don't know yet if we will be resized. */
941 x_clear_under_internal_border (f
);
943 totalheight
/= xg_get_scale (f
);
944 totalwidth
/= xg_get_scale (f
);
946 x_wm_set_size_hint (f
, 0, 0);
948 /* Resize the top level widget so rows and columns remain constant.
950 When the frame is fullheight and we only want to change the width
951 or it is fullwidth and we only want to change the height we should
952 be able to preserve the fullscreen property. However, due to the
953 fact that we have to send a resize request anyway, the window
954 manager will abolish it. At least the respective size should
955 remain unchanged but giving the frame back its normal size will
957 if (EQ (fullscreen
, Qfullwidth
) && width
== FRAME_TEXT_WIDTH (f
))
959 frame_size_history_add
960 (f
, Qxg_frame_set_char_size_1
, width
, height
,
961 list2 (make_number (gheight
), make_number (totalheight
)));
963 gtk_window_resize (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
964 gwidth
, totalheight
);
966 else if (EQ (fullscreen
, Qfullheight
) && height
== FRAME_TEXT_HEIGHT (f
))
968 frame_size_history_add
969 (f
, Qxg_frame_set_char_size_2
, width
, height
,
970 list2 (make_number (gwidth
), make_number (totalwidth
)));
972 gtk_window_resize (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
973 totalwidth
, gheight
);
977 frame_size_history_add
978 (f
, Qxg_frame_set_char_size_3
, width
, height
,
979 list2 (make_number (totalwidth
), make_number (totalheight
)));
981 gtk_window_resize (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
982 totalwidth
, totalheight
);
986 SET_FRAME_GARBAGED (f
);
987 cancel_mouse_face (f
);
989 /* We can not call change_frame_size for a mapped frame,
990 we can not set pixel width/height either. The window manager may
991 override our resize request, XMonad does this all the time.
992 The best we can do is try to sync, so lisp code sees the updated
993 size as fast as possible.
994 For unmapped windows, we can set rows/cols. When
995 the frame is mapped again we will (hopefully) get the correct size. */
996 if (FRAME_VISIBLE_P (f
))
998 /* Must call this to flush out events */
999 (void)gtk_events_pending ();
1001 x_wait_for_event (f
, ConfigureNotify
);
1003 if (!NILP (fullscreen
))
1004 /* Try to restore fullscreen state. */
1006 store_frame_param (f
, Qfullscreen
, fullscreen
);
1007 x_set_fullscreen (f
, fullscreen
, fullscreen
);
1011 adjust_frame_size (f
, width
, height
, 5, 0, Qxg_frame_set_char_size
);
1015 /* Handle height/width changes (i.e. add/remove/move menu/toolbar).
1016 The policy is to keep the number of editable lines. */
1020 xg_height_or_width_changed (struct frame
*f
)
1022 gtk_window_resize (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1023 FRAME_TOTAL_PIXEL_WIDTH (f
),
1024 FRAME_TOTAL_PIXEL_HEIGHT (f
));
1025 f
->output_data
.x
->hint_flags
= 0;
1026 x_wm_set_size_hint (f
, 0, 0);
1030 /* Convert an X Window WSESC on display DPY to its corresponding GtkWidget.
1031 Must be done like this, because GtkWidget:s can have "hidden"
1032 X Window that aren't accessible.
1034 Return 0 if no widget match WDESC. */
1037 xg_win_to_widget (Display
*dpy
, Window wdesc
)
1040 GtkWidget
*gwdesc
= 0;
1044 gdkwin
= gdk_x11_window_lookup_for_display (gdk_x11_lookup_xdisplay (dpy
),
1049 event
.any
.window
= gdkwin
;
1050 event
.any
.type
= GDK_NOTHING
;
1051 gwdesc
= gtk_get_event_widget (&event
);
1058 /* Set the background of widget W to PIXEL. */
1061 xg_set_widget_bg (struct frame
*f
, GtkWidget
*w
, unsigned long pixel
)
1066 if (XQueryColor (FRAME_X_DISPLAY (f
), FRAME_X_COLORMAP (f
), &xbg
))
1068 const char format
[] = "* { background-color: #%02x%02x%02x; }";
1069 /* The format is always longer than the resulting string. */
1070 char buffer
[sizeof format
];
1071 int n
= snprintf(buffer
, sizeof buffer
, format
,
1072 xbg
.red
>> 8, xbg
.green
>> 8, xbg
.blue
>> 8);
1074 eassert (n
< sizeof buffer
);
1075 GtkCssProvider
*provider
= gtk_css_provider_new ();
1076 gtk_css_provider_load_from_data (provider
, buffer
, -1, NULL
);
1077 gtk_style_context_add_provider (gtk_widget_get_style_context(w
),
1078 GTK_STYLE_PROVIDER (provider
),
1079 GTK_STYLE_PROVIDER_PRIORITY_APPLICATION
);
1080 g_clear_object (&provider
);
1084 GdkColormap
*map
= gtk_widget_get_colormap (w
);
1085 gdk_colormap_query_color (map
, pixel
, &bg
);
1086 gtk_widget_modify_bg (FRAME_GTK_WIDGET (f
), GTK_STATE_NORMAL
, &bg
);
1090 /* Callback called when the gtk theme changes.
1091 We notify lisp code so it can fix faces used for region for example. */
1094 style_changed_cb (GObject
*go
,
1098 struct input_event event
;
1099 GdkDisplay
*gdpy
= user_data
;
1100 const char *display_name
= gdk_display_get_name (gdpy
);
1101 Display
*dpy
= GDK_DISPLAY_XDISPLAY (gdpy
);
1104 event
.kind
= CONFIG_CHANGED_EVENT
;
1105 event
.frame_or_window
= build_string (display_name
);
1106 /* Theme doesn't change often, so intern is called seldom. */
1107 event
.arg
= intern ("theme-name");
1108 kbd_buffer_store_event (&event
);
1110 update_theme_scrollbar_width ();
1111 update_theme_scrollbar_height ();
1113 /* If scroll bar width changed, we need set the new size on all frames
1117 Lisp_Object rest
, frame
;
1118 FOR_EACH_FRAME (rest
, frame
)
1120 struct frame
*f
= XFRAME (frame
);
1121 if (FRAME_LIVE_P (f
)
1123 && FRAME_X_DISPLAY (f
) == dpy
)
1125 x_set_scroll_bar_default_width (f
);
1126 x_set_scroll_bar_default_height (f
);
1127 xg_frame_set_char_size (f
, FRAME_TEXT_WIDTH (f
), FRAME_TEXT_HEIGHT (f
));
1133 /* Called when a delete-event occurs on WIDGET. */
1136 delete_cb (GtkWidget
*widget
,
1143 /* Create and set up the GTK widgets for frame F.
1144 Return true if creation succeeded. */
1147 xg_create_frame_widgets (struct frame
*f
)
1150 GtkWidget
*wvbox
, *whbox
;
1159 if (FRAME_X_EMBEDDED_P (f
))
1161 GdkDisplay
*gdpy
= gdk_x11_lookup_xdisplay (FRAME_X_DISPLAY (f
));
1162 wtop
= gtk_plug_new_for_display (gdpy
, f
->output_data
.x
->parent_desc
);
1165 wtop
= gtk_window_new (GTK_WINDOW_TOPLEVEL
);
1167 /* gtk_window_set_has_resize_grip is a Gtk+ 3.0 function but Ubuntu
1168 has backported it to Gtk+ 2.0 and they add the resize grip for
1169 Gtk+ 2.0 applications also. But it has a bug that makes Emacs loop
1170 forever, so disable the grip. */
1171 #if (! GTK_CHECK_VERSION (3, 0, 0) \
1172 && defined HAVE_GTK_WINDOW_SET_HAS_RESIZE_GRIP)
1173 gtk_window_set_has_resize_grip (GTK_WINDOW (wtop
), FALSE
);
1176 xg_set_screen (wtop
, f
);
1178 wvbox
= gtk_box_new (GTK_ORIENTATION_VERTICAL
, 0);
1179 whbox
= gtk_box_new (GTK_ORIENTATION_HORIZONTAL
, 0);
1180 gtk_box_set_homogeneous (GTK_BOX (wvbox
), FALSE
);
1181 gtk_box_set_homogeneous (GTK_BOX (whbox
), FALSE
);
1184 wfixed
= emacs_fixed_new (f
);
1186 wfixed
= gtk_fixed_new ();
1189 if (! wtop
|| ! wvbox
|| ! whbox
|| ! wfixed
)
1191 if (wtop
) gtk_widget_destroy (wtop
);
1192 if (wvbox
) gtk_widget_destroy (wvbox
);
1193 if (whbox
) gtk_widget_destroy (whbox
);
1194 if (wfixed
) gtk_widget_destroy (wfixed
);
1200 /* Use same names as the Xt port does. I.e. Emacs.pane.emacs by default */
1201 gtk_widget_set_name (wtop
, EMACS_CLASS
);
1202 gtk_widget_set_name (wvbox
, "pane");
1203 gtk_widget_set_name (wfixed
, SSDATA (Vx_resource_name
));
1205 /* If this frame has a title or name, set it in the title bar. */
1206 if (! NILP (f
->title
))
1207 title
= SSDATA (ENCODE_UTF_8 (f
->title
));
1208 else if (! NILP (f
->name
))
1209 title
= SSDATA (ENCODE_UTF_8 (f
->name
));
1212 gtk_window_set_title (GTK_WINDOW (wtop
), title
);
1214 if (FRAME_UNDECORATED (f
))
1216 gtk_window_set_decorated (GTK_WINDOW (wtop
), FALSE
);
1217 store_frame_param (f
, Qundecorated
, Qt
);
1220 FRAME_GTK_OUTER_WIDGET (f
) = wtop
;
1221 FRAME_GTK_WIDGET (f
) = wfixed
;
1222 f
->output_data
.x
->vbox_widget
= wvbox
;
1223 f
->output_data
.x
->hbox_widget
= whbox
;
1225 gtk_widget_set_has_window (wfixed
, TRUE
);
1227 gtk_container_add (GTK_CONTAINER (wtop
), wvbox
);
1228 gtk_box_pack_start (GTK_BOX (wvbox
), whbox
, TRUE
, TRUE
, 0);
1229 gtk_box_pack_start (GTK_BOX (whbox
), wfixed
, TRUE
, TRUE
, 0);
1231 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1232 update_frame_tool_bar (f
);
1234 /* We don't want this widget double buffered, because we draw on it
1235 with regular X drawing primitives, so from a GTK/GDK point of
1236 view, the widget is totally blank. When an expose comes, this
1237 will make the widget blank, and then Emacs redraws it. This flickers
1238 a lot, so we turn off double buffering.
1239 FIXME: gtk_widget_set_double_buffered is deprecated and might stop
1240 working in the future. We need to migrate away from combining
1241 X and GTK+ drawing to a pure GTK+ build. */
1242 gtk_widget_set_double_buffered (wfixed
, FALSE
);
1244 #if ! GTK_CHECK_VERSION (3, 22, 0)
1245 gtk_window_set_wmclass (GTK_WINDOW (wtop
),
1246 SSDATA (Vx_resource_name
),
1247 SSDATA (Vx_resource_class
));
1250 /* Add callback to do nothing on WM_DELETE_WINDOW. The default in
1251 GTK is to destroy the widget. We want Emacs to do that instead. */
1252 g_signal_connect (G_OBJECT (wtop
), "delete-event",
1253 G_CALLBACK (delete_cb
), f
);
1255 /* Convert our geometry parameters into a geometry string
1257 GTK will itself handle calculating the real position this way. */
1258 xg_set_geometry (f
);
1260 = gtk_window_get_gravity (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)));
1262 gtk_widget_add_events (wfixed
,
1263 GDK_POINTER_MOTION_MASK
1265 | GDK_BUTTON_PRESS_MASK
1266 | GDK_BUTTON_RELEASE_MASK
1267 | GDK_KEY_PRESS_MASK
1268 | GDK_ENTER_NOTIFY_MASK
1269 | GDK_LEAVE_NOTIFY_MASK
1270 | GDK_FOCUS_CHANGE_MASK
1271 | GDK_STRUCTURE_MASK
1272 | GDK_VISIBILITY_NOTIFY_MASK
);
1274 /* Must realize the windows so the X window gets created. It is used
1275 by callers of this function. */
1276 gtk_widget_realize (wfixed
);
1277 FRAME_X_WINDOW (f
) = GTK_WIDGET_TO_X_WIN (wfixed
);
1278 initial_set_up_x_back_buffer (f
);
1280 /* Since GTK clears its window by filling with the background color,
1281 we must keep X and GTK background in sync. */
1282 xg_set_widget_bg (f
, wfixed
, FRAME_BACKGROUND_PIXEL (f
));
1285 /* Also, do not let any background pixmap to be set, this looks very
1286 bad as Emacs overwrites the background pixmap with its own idea
1287 of background color. */
1288 style
= gtk_widget_get_modifier_style (wfixed
);
1290 /* Must use g_strdup because gtk_widget_modify_style does g_free. */
1291 style
->bg_pixmap_name
[GTK_STATE_NORMAL
] = g_strdup ("<none>");
1292 gtk_widget_modify_style (wfixed
, style
);
1294 gtk_widget_set_can_focus (wfixed
, TRUE
);
1295 gtk_window_set_resizable (GTK_WINDOW (wtop
), TRUE
);
1298 if (FRAME_OVERRIDE_REDIRECT (f
))
1300 GdkWindow
*gwin
= gtk_widget_get_window (wtop
);
1303 gdk_window_set_override_redirect (gwin
, TRUE
);
1306 #ifdef USE_GTK_TOOLTIP
1307 /* Steal a tool tip window we can move ourselves. */
1308 f
->output_data
.x
->ttip_widget
= 0;
1309 f
->output_data
.x
->ttip_lbl
= 0;
1310 f
->output_data
.x
->ttip_window
= 0;
1311 gtk_widget_set_tooltip_text (wtop
, "Dummy text");
1312 g_signal_connect (wtop
, "query-tooltip", G_CALLBACK (qttip_cb
), f
);
1316 GdkScreen
*screen
= gtk_widget_get_screen (wtop
);
1317 GtkSettings
*gs
= gtk_settings_get_for_screen (screen
);
1318 /* Only connect this signal once per screen. */
1319 if (! g_signal_handler_find (G_OBJECT (gs
),
1320 G_SIGNAL_MATCH_FUNC
,
1322 (gpointer
) G_CALLBACK (style_changed_cb
),
1325 g_signal_connect (G_OBJECT (gs
), "notify::gtk-theme-name",
1326 G_CALLBACK (style_changed_cb
),
1327 gdk_screen_get_display (screen
));
1337 xg_free_frame_widgets (struct frame
*f
)
1339 if (FRAME_GTK_OUTER_WIDGET (f
))
1341 #ifdef USE_GTK_TOOLTIP
1342 struct x_output
*x
= f
->output_data
.x
;
1344 struct xg_frame_tb_info
*tbinfo
1345 = g_object_get_data (G_OBJECT (FRAME_GTK_OUTER_WIDGET (f
)),
1350 /* x_free_frame_resources should have taken care of it */
1351 eassert (!FRAME_X_DOUBLE_BUFFERED_P (f
));
1352 gtk_widget_destroy (FRAME_GTK_OUTER_WIDGET (f
));
1353 FRAME_X_WINDOW (f
) = 0; /* Set to avoid XDestroyWindow in xterm.c */
1354 FRAME_X_RAW_DRAWABLE (f
) = 0;
1355 FRAME_GTK_OUTER_WIDGET (f
) = 0;
1356 #ifdef USE_GTK_TOOLTIP
1358 gtk_widget_destroy (x
->ttip_lbl
);
1360 g_object_unref (G_OBJECT (x
->ttip_widget
));
1365 /* Set the normal size hints for the window manager, for frame F.
1366 FLAGS is the flags word to use--or 0 meaning preserve the flags
1367 that the window now has.
1368 If USER_POSITION, set the User Position
1369 flag (this is useful when FLAGS is 0). */
1372 x_wm_set_size_hint (struct frame
*f
, long int flags
, bool user_position
)
1374 /* Must use GTK routines here, otherwise GTK resets the size hints
1375 to its own defaults. */
1376 GdkGeometry size_hints
;
1377 gint hint_flags
= 0;
1378 int base_width
, base_height
;
1379 int min_rows
= 0, min_cols
= 0;
1380 int win_gravity
= f
->win_gravity
;
1381 Lisp_Object fs_state
, frame
;
1382 int scale
= xg_get_scale (f
);
1384 /* Don't set size hints during initialization; that apparently leads
1385 to a race condition. See the thread at
1386 https://lists.gnu.org/r/emacs-devel/2008-10/msg00033.html */
1387 if (NILP (Vafter_init_time
)
1388 || !FRAME_GTK_OUTER_WIDGET (f
)
1389 || FRAME_PARENT_FRAME (f
))
1392 XSETFRAME (frame
, f
);
1393 fs_state
= Fframe_parameter (frame
, Qfullscreen
);
1394 if ((EQ (fs_state
, Qmaximized
) || EQ (fs_state
, Qfullboth
)) &&
1395 (x_wm_supports (f
, FRAME_DISPLAY_INFO (f
)->Xatom_net_wm_state
) ||
1396 x_wm_supports (f
, FRAME_DISPLAY_INFO (f
)->Xatom_net_wm_state_fullscreen
)))
1398 /* Don't set hints when maximized or fullscreen. Apparently KWin and
1399 Gtk3 don't get along and the frame shrinks (!).
1406 memset (&size_hints
, 0, sizeof (size_hints
));
1407 f
->output_data
.x
->size_hints
= size_hints
;
1408 f
->output_data
.x
->hint_flags
= hint_flags
;
1411 flags
= f
->size_hint_flags
;
1413 size_hints
= f
->output_data
.x
->size_hints
;
1414 hint_flags
= f
->output_data
.x
->hint_flags
;
1416 hint_flags
|= GDK_HINT_RESIZE_INC
| GDK_HINT_MIN_SIZE
;
1417 size_hints
.width_inc
= frame_resize_pixelwise
? 1 : FRAME_COLUMN_WIDTH (f
);
1418 size_hints
.height_inc
= frame_resize_pixelwise
? 1 : FRAME_LINE_HEIGHT (f
);
1420 hint_flags
|= GDK_HINT_BASE_SIZE
;
1421 /* Use one row/col here so base_height/width does not become zero.
1422 Gtk+ and/or Unity on Ubuntu 12.04 can't handle it.
1423 Obviously this makes the row/col value displayed off by 1. */
1424 base_width
= FRAME_TEXT_COLS_TO_PIXEL_WIDTH (f
, 1) + FRAME_TOOLBAR_WIDTH (f
);
1425 base_height
= FRAME_TEXT_LINES_TO_PIXEL_HEIGHT (f
, 1)
1426 + FRAME_MENUBAR_HEIGHT (f
) + FRAME_TOOLBAR_HEIGHT (f
);
1428 if (min_cols
> 0) --min_cols
; /* We used one col in base_width = ... 1); */
1429 if (min_rows
> 0) --min_rows
; /* We used one row in base_height = ... 1); */
1431 size_hints
.base_width
= base_width
;
1432 size_hints
.base_height
= base_height
;
1433 size_hints
.min_width
= base_width
+ min_cols
* FRAME_COLUMN_WIDTH (f
);
1434 size_hints
.min_height
= base_height
+ min_rows
* FRAME_LINE_HEIGHT (f
);
1436 /* These currently have a one to one mapping with the X values, but I
1437 don't think we should rely on that. */
1438 hint_flags
|= GDK_HINT_WIN_GRAVITY
;
1439 size_hints
.win_gravity
= 0;
1440 if (win_gravity
== NorthWestGravity
)
1441 size_hints
.win_gravity
= GDK_GRAVITY_NORTH_WEST
;
1442 else if (win_gravity
== NorthGravity
)
1443 size_hints
.win_gravity
= GDK_GRAVITY_NORTH
;
1444 else if (win_gravity
== NorthEastGravity
)
1445 size_hints
.win_gravity
= GDK_GRAVITY_NORTH_EAST
;
1446 else if (win_gravity
== WestGravity
)
1447 size_hints
.win_gravity
= GDK_GRAVITY_WEST
;
1448 else if (win_gravity
== CenterGravity
)
1449 size_hints
.win_gravity
= GDK_GRAVITY_CENTER
;
1450 else if (win_gravity
== EastGravity
)
1451 size_hints
.win_gravity
= GDK_GRAVITY_EAST
;
1452 else if (win_gravity
== SouthWestGravity
)
1453 size_hints
.win_gravity
= GDK_GRAVITY_SOUTH_WEST
;
1454 else if (win_gravity
== SouthGravity
)
1455 size_hints
.win_gravity
= GDK_GRAVITY_SOUTH
;
1456 else if (win_gravity
== SouthEastGravity
)
1457 size_hints
.win_gravity
= GDK_GRAVITY_SOUTH_EAST
;
1458 else if (win_gravity
== StaticGravity
)
1459 size_hints
.win_gravity
= GDK_GRAVITY_STATIC
;
1461 if (x_gtk_use_window_move
)
1463 if (flags
& PPosition
) hint_flags
|= GDK_HINT_POS
;
1464 if (flags
& USPosition
) hint_flags
|= GDK_HINT_USER_POS
;
1465 if (flags
& USSize
) hint_flags
|= GDK_HINT_USER_SIZE
;
1470 hint_flags
&= ~GDK_HINT_POS
;
1471 hint_flags
|= GDK_HINT_USER_POS
;
1474 size_hints
.base_width
/= scale
;
1475 size_hints
.base_height
/= scale
;
1476 size_hints
.width_inc
/= scale
;
1477 size_hints
.height_inc
/= scale
;
1479 if (hint_flags
!= f
->output_data
.x
->hint_flags
1480 || memcmp (&size_hints
,
1481 &f
->output_data
.x
->size_hints
,
1482 sizeof (size_hints
)) != 0)
1485 gtk_window_set_geometry_hints (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1486 NULL
, &size_hints
, hint_flags
);
1487 f
->output_data
.x
->size_hints
= size_hints
;
1488 f
->output_data
.x
->hint_flags
= hint_flags
;
1493 /* Change background color of a frame.
1494 Since GTK uses the background color to clear the window, we must
1495 keep the GTK and X colors in sync.
1496 F is the frame to change,
1497 BG is the pixel value to change to. */
1500 xg_set_background_color (struct frame
*f
, unsigned long bg
)
1502 if (FRAME_GTK_WIDGET (f
))
1505 xg_set_widget_bg (f
, FRAME_GTK_WIDGET (f
), FRAME_BACKGROUND_PIXEL (f
));
1508 for (bar
= FRAME_SCROLL_BARS (f
);
1510 bar
= XSCROLL_BAR (bar
)->next
)
1512 GtkWidget
*scrollbar
=
1513 xg_get_widget_from_map (XSCROLL_BAR (bar
)->x_window
);
1514 GtkWidget
*webox
= gtk_widget_get_parent (scrollbar
);
1515 xg_set_widget_bg (f
, webox
, FRAME_BACKGROUND_PIXEL (f
));
1522 /* Change the frame's decoration (title bar + resize borders). This
1523 might not work with all window managers. */
1525 xg_set_undecorated (struct frame
*f
, Lisp_Object undecorated
)
1527 if (FRAME_GTK_WIDGET (f
))
1530 gtk_window_set_decorated (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1531 NILP (undecorated
) ? TRUE
: FALSE
);
1537 /* Restack F1 below F2, above if ABOVE_FLAG is true. This might not
1538 work with all window managers. */
1540 xg_frame_restack (struct frame
*f1
, struct frame
*f2
, bool above_flag
)
1542 #if GTK_CHECK_VERSION (2, 18, 0)
1544 if (FRAME_GTK_OUTER_WIDGET (f1
) && FRAME_GTK_OUTER_WIDGET (f2
))
1546 GdkWindow
*gwin1
= gtk_widget_get_window (FRAME_GTK_OUTER_WIDGET (f1
));
1547 GdkWindow
*gwin2
= gtk_widget_get_window (FRAME_GTK_OUTER_WIDGET (f2
));
1548 Lisp_Object frame1
, frame2
;
1550 XSETFRAME (frame1
, f1
);
1551 XSETFRAME (frame2
, f2
);
1553 gdk_window_restack (gwin1
, gwin2
, above_flag
);
1561 /* Don't show frame in taskbar, don't ALT-TAB to it. */
1563 xg_set_skip_taskbar (struct frame
*f
, Lisp_Object skip_taskbar
)
1566 if (FRAME_GTK_WIDGET (f
))
1567 gdk_window_set_skip_taskbar_hint
1568 (gtk_widget_get_window (FRAME_GTK_OUTER_WIDGET (f
)),
1569 NILP (skip_taskbar
) ? FALSE
: TRUE
);
1574 /* Don't give frame focus. */
1576 xg_set_no_focus_on_map (struct frame
*f
, Lisp_Object no_focus_on_map
)
1579 if (FRAME_GTK_WIDGET (f
))
1581 GtkWindow
*gwin
= GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
));
1582 gboolean g_no_focus_on_map
= NILP (no_focus_on_map
) ? TRUE
: FALSE
;
1584 gtk_window_set_focus_on_map (gwin
, g_no_focus_on_map
);
1591 xg_set_no_accept_focus (struct frame
*f
, Lisp_Object no_accept_focus
)
1594 if (FRAME_GTK_WIDGET (f
))
1596 GtkWindow
*gwin
= GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
));
1597 gboolean g_no_accept_focus
= NILP (no_accept_focus
) ? TRUE
: FALSE
;
1599 gtk_window_set_accept_focus (gwin
, g_no_accept_focus
);
1605 xg_set_override_redirect (struct frame
*f
, Lisp_Object override_redirect
)
1609 if (FRAME_GTK_OUTER_WIDGET (f
))
1611 GdkWindow
*gwin
= gtk_widget_get_window (FRAME_GTK_OUTER_WIDGET (f
));
1613 gdk_window_set_override_redirect (gwin
, NILP (override_redirect
) ? FALSE
: TRUE
);
1619 /* Set the frame icon to ICON_PIXMAP/MASK. This must be done with GTK
1620 functions so GTK does not overwrite the icon. */
1623 xg_set_frame_icon (struct frame
*f
, Pixmap icon_pixmap
, Pixmap icon_mask
)
1625 GdkPixbuf
*gp
= xg_get_pixbuf_from_pix_and_mask (f
,
1629 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)), gp
);
1634 /***********************************************************************
1636 ***********************************************************************/
1637 /* Return the dialog title to use for a dialog of type KEY.
1638 This is the encoding used by lwlib. We use the same for GTK. */
1641 get_dialog_title (char key
)
1643 const char *title
= "";
1651 title
= "Information";
1670 /* Callback for dialogs that get WM_DELETE_WINDOW. We pop down
1671 the dialog, but return TRUE so the event does not propagate further
1672 in GTK. This prevents GTK from destroying the dialog widget automatically
1673 and we can always destroy the widget manually, regardless of how
1674 it was popped down (button press or WM_DELETE_WINDOW).
1675 W is the dialog widget.
1676 EVENT is the GdkEvent that represents WM_DELETE_WINDOW (not used).
1677 user_data is NULL (not used).
1679 Returns TRUE to end propagation of event. */
1682 dialog_delete_callback (GtkWidget
*w
, GdkEvent
*event
, gpointer user_data
)
1684 gtk_widget_unmap (w
);
1688 /* Create a popup dialog window. See also xg_create_widget below.
1689 WV is a widget_value describing the dialog.
1690 SELECT_CB is the callback to use when a button has been pressed.
1691 DEACTIVATE_CB is the callback to use when the dialog pops down.
1693 Returns the GTK dialog widget. */
1696 create_dialog (widget_value
*wv
,
1697 GCallback select_cb
,
1698 GCallback deactivate_cb
)
1700 const char *title
= get_dialog_title (wv
->name
[0]);
1701 int total_buttons
= wv
->name
[1] - '0';
1702 int right_buttons
= wv
->name
[4] - '0';
1705 int button_spacing
= 10;
1706 GtkWidget
*wdialog
= gtk_dialog_new ();
1707 GtkDialog
*wd
= GTK_DIALOG (wdialog
);
1709 GtkWidget
*whbox_down
;
1711 /* If the number of buttons is greater than 4, make two rows of buttons
1712 instead. This looks better. */
1713 bool make_two_rows
= total_buttons
> 4;
1715 #if GTK_CHECK_VERSION (3, 12, 0)
1716 GtkBuilder
*gbld
= gtk_builder_new ();
1717 GObject
*go
= gtk_buildable_get_internal_child (GTK_BUILDABLE (wd
),
1720 GtkBox
*cur_box
= GTK_BOX (go
);
1721 g_object_unref (G_OBJECT (gbld
));
1723 GtkBox
*cur_box
= GTK_BOX (gtk_dialog_get_action_area (wd
));
1726 if (right_buttons
== 0) right_buttons
= total_buttons
/2;
1727 left_buttons
= total_buttons
- right_buttons
;
1729 gtk_window_set_title (GTK_WINDOW (wdialog
), title
);
1730 gtk_widget_set_name (wdialog
, "emacs-dialog");
1735 GtkWidget
*wvbox
= gtk_box_new (GTK_ORIENTATION_VERTICAL
, button_spacing
);
1736 GtkWidget
*whbox_up
= gtk_box_new (GTK_ORIENTATION_HORIZONTAL
, 0);
1737 gtk_box_set_homogeneous (GTK_BOX (wvbox
), TRUE
);
1738 gtk_box_set_homogeneous (GTK_BOX (whbox_up
), FALSE
);
1739 whbox_down
= gtk_box_new (GTK_ORIENTATION_HORIZONTAL
, 0);
1740 gtk_box_set_homogeneous (GTK_BOX (whbox_down
), FALSE
);
1742 gtk_box_pack_start (cur_box
, wvbox
, FALSE
, FALSE
, 0);
1743 gtk_box_pack_start (GTK_BOX (wvbox
), whbox_up
, FALSE
, FALSE
, 0);
1744 gtk_box_pack_start (GTK_BOX (wvbox
), whbox_down
, FALSE
, FALSE
, 0);
1746 cur_box
= GTK_BOX (whbox_up
);
1749 g_signal_connect (G_OBJECT (wdialog
), "delete-event",
1750 G_CALLBACK (dialog_delete_callback
), 0);
1754 g_signal_connect (G_OBJECT (wdialog
), "close", deactivate_cb
, 0);
1755 g_signal_connect (G_OBJECT (wdialog
), "response", deactivate_cb
, 0);
1758 for (item
= wv
->contents
; item
; item
= item
->next
)
1760 char *utf8_label
= get_utf8_string (item
->value
);
1764 if (item
->name
&& strcmp (item
->name
, "message") == 0)
1766 GtkBox
*wvbox
= GTK_BOX (gtk_dialog_get_content_area (wd
));
1767 /* This is the text part of the dialog. */
1768 w
= gtk_label_new (utf8_label
);
1769 gtk_box_pack_start (wvbox
, gtk_label_new (""), FALSE
, FALSE
, 0);
1770 gtk_box_pack_start (wvbox
, w
, TRUE
, TRUE
, 0);
1771 #if GTK_CHECK_VERSION (3, 14, 0)
1772 gtk_widget_set_halign (w
, GTK_ALIGN_START
);
1773 gtk_widget_set_valign (w
, GTK_ALIGN_CENTER
);
1775 gtk_misc_set_alignment (GTK_MISC (w
), 0.1, 0.5);
1777 /* Try to make dialog look better. Must realize first so
1778 the widget can calculate the size it needs. */
1779 gtk_widget_realize (w
);
1780 gtk_widget_get_preferred_size (w
, NULL
, &req
);
1781 gtk_box_set_spacing (wvbox
, req
.height
);
1782 if (item
->value
&& strlen (item
->value
) > 0)
1783 button_spacing
= 2*req
.width
/strlen (item
->value
);
1784 if (button_spacing
< 10) button_spacing
= 10;
1788 /* This is one button to add to the dialog. */
1789 w
= gtk_button_new_with_label (utf8_label
);
1790 if (! item
->enabled
)
1791 gtk_widget_set_sensitive (w
, FALSE
);
1793 g_signal_connect (G_OBJECT (w
), "clicked",
1794 select_cb
, item
->call_data
);
1796 gtk_box_pack_start (cur_box
, w
, TRUE
, TRUE
, button_spacing
);
1797 if (++button_nr
== left_buttons
)
1800 cur_box
= GTK_BOX (whbox_down
);
1805 g_free (utf8_label
);
1811 struct xg_dialog_data
1819 /* Function that is called when the file or font dialogs pop down.
1820 W is the dialog widget, RESPONSE is the response code.
1821 USER_DATA is what we passed in to g_signal_connect. */
1824 xg_dialog_response_cb (GtkDialog
*w
,
1828 struct xg_dialog_data
*dd
= user_data
;
1829 dd
->response
= response
;
1830 g_main_loop_quit (dd
->loop
);
1834 /* Destroy the dialog. This makes it pop down. */
1837 pop_down_dialog (void *arg
)
1839 struct xg_dialog_data
*dd
= arg
;
1842 if (dd
->w
) gtk_widget_destroy (dd
->w
);
1843 if (dd
->timerid
!= 0) g_source_remove (dd
->timerid
);
1845 g_main_loop_quit (dd
->loop
);
1846 g_main_loop_unref (dd
->loop
);
1851 /* If there are any emacs timers pending, add a timeout to main loop in DATA.
1852 Pass DATA as gpointer so we can use this as a callback. */
1855 xg_maybe_add_timer (gpointer data
)
1857 struct xg_dialog_data
*dd
= data
;
1858 struct timespec next_time
= timer_check ();
1862 if (timespec_valid_p (next_time
))
1864 time_t s
= next_time
.tv_sec
;
1865 int per_ms
= TIMESPEC_RESOLUTION
/ 1000;
1866 int ms
= (next_time
.tv_nsec
+ per_ms
- 1) / per_ms
;
1867 if (s
<= ((guint
) -1 - ms
) / 1000)
1868 dd
->timerid
= g_timeout_add (s
* 1000 + ms
, xg_maybe_add_timer
, dd
);
1874 /* Pops up a modal dialog W and waits for response.
1875 We don't use gtk_dialog_run because we want to process emacs timers.
1876 The dialog W is not destroyed when this function returns. */
1879 xg_dialog_run (struct frame
*f
, GtkWidget
*w
)
1881 ptrdiff_t count
= SPECPDL_INDEX ();
1882 struct xg_dialog_data dd
;
1884 xg_set_screen (w
, f
);
1885 gtk_window_set_transient_for (GTK_WINDOW (w
),
1886 GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)));
1887 gtk_window_set_destroy_with_parent (GTK_WINDOW (w
), TRUE
);
1888 gtk_window_set_modal (GTK_WINDOW (w
), TRUE
);
1890 dd
.loop
= g_main_loop_new (NULL
, FALSE
);
1891 dd
.response
= GTK_RESPONSE_CANCEL
;
1895 g_signal_connect (G_OBJECT (w
),
1897 G_CALLBACK (xg_dialog_response_cb
),
1899 /* Don't destroy the widget if closed by the window manager close button. */
1900 g_signal_connect (G_OBJECT (w
), "delete-event", G_CALLBACK (gtk_true
), NULL
);
1901 gtk_widget_show (w
);
1903 record_unwind_protect_ptr (pop_down_dialog
, &dd
);
1905 (void) xg_maybe_add_timer (&dd
);
1906 g_main_loop_run (dd
.loop
);
1909 unbind_to (count
, Qnil
);
1915 /***********************************************************************
1916 File dialog functions
1917 ***********************************************************************/
1918 /* Return true if the old file selection dialog is being used. */
1921 xg_uses_old_file_dialog (void)
1923 #ifdef HAVE_GTK_FILE_SELECTION_NEW
1924 return x_gtk_use_old_file_dialog
;
1931 typedef char * (*xg_get_file_func
) (GtkWidget
*);
1933 /* Return the selected file for file chooser dialog W.
1934 The returned string must be free:d. */
1937 xg_get_file_name_from_chooser (GtkWidget
*w
)
1939 return gtk_file_chooser_get_filename (GTK_FILE_CHOOSER (w
));
1942 /* Callback called when the "Show hidden files" toggle is pressed.
1943 WIDGET is the toggle widget, DATA is the file chooser dialog. */
1946 xg_toggle_visibility_cb (GtkWidget
*widget
, gpointer data
)
1948 GtkFileChooser
*dialog
= GTK_FILE_CHOOSER (data
);
1950 g_object_get (G_OBJECT (dialog
), "show-hidden", &visible
, NULL
);
1951 g_object_set (G_OBJECT (dialog
), "show-hidden", !visible
, NULL
);
1955 /* Callback called when a property changes in a file chooser.
1956 GOBJECT is the file chooser dialog, ARG1 describes the property.
1957 USER_DATA is the toggle widget in the file chooser dialog.
1958 We use this to update the "Show hidden files" toggle when the user
1959 changes that property by right clicking in the file list. */
1962 xg_toggle_notify_cb (GObject
*gobject
, GParamSpec
*arg1
, gpointer user_data
)
1964 if (strcmp (arg1
->name
, "show-hidden") == 0)
1966 GtkWidget
*wtoggle
= GTK_WIDGET (user_data
);
1967 gboolean visible
, toggle_on
;
1969 g_object_get (G_OBJECT (gobject
), "show-hidden", &visible
, NULL
);
1970 toggle_on
= gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (wtoggle
));
1972 if (!!visible
!= !!toggle_on
)
1974 gpointer cb
= (gpointer
) G_CALLBACK (xg_toggle_visibility_cb
);
1975 g_signal_handlers_block_by_func (G_OBJECT (wtoggle
), cb
, gobject
);
1976 gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (wtoggle
), visible
);
1977 g_signal_handlers_unblock_by_func (G_OBJECT (wtoggle
), cb
, gobject
);
1979 x_gtk_show_hidden_files
= visible
;
1983 /* Read a file name from the user using a file chooser dialog.
1984 F is the current frame.
1985 PROMPT is a prompt to show to the user. May not be NULL.
1986 DEFAULT_FILENAME is a default selection to be displayed. May be NULL.
1987 If MUSTMATCH_P, the returned file name must be an existing
1988 file. (Actually, this only has cosmetic effects, the user can
1989 still enter a non-existing file.) *FUNC is set to a function that
1990 can be used to retrieve the selected file name from the returned widget.
1992 Returns the created widget. */
1995 xg_get_file_with_chooser (struct frame
*f
,
1997 char *default_filename
,
1998 bool mustmatch_p
, bool only_dir_p
,
1999 xg_get_file_func
*func
)
2003 GtkWidget
*filewin
, *wtoggle
, *wbox
;
2004 GtkWidget
*wmessage UNINIT
;
2005 GtkWindow
*gwin
= GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
));
2006 GtkFileChooserAction action
= (mustmatch_p
?
2007 GTK_FILE_CHOOSER_ACTION_OPEN
:
2008 GTK_FILE_CHOOSER_ACTION_SAVE
);
2011 action
= GTK_FILE_CHOOSER_ACTION_SELECT_FOLDER
;
2013 filewin
= gtk_file_chooser_dialog_new (prompt
, gwin
, action
,
2014 XG_TEXT_CANCEL
, GTK_RESPONSE_CANCEL
,
2015 (mustmatch_p
|| only_dir_p
?
2016 XG_TEXT_OPEN
: XG_TEXT_OK
),
2019 gtk_file_chooser_set_local_only (GTK_FILE_CHOOSER (filewin
), TRUE
);
2021 wbox
= gtk_box_new (GTK_ORIENTATION_VERTICAL
, 0);
2022 gtk_box_set_homogeneous (GTK_BOX (wbox
), FALSE
);
2023 gtk_widget_show (wbox
);
2024 wtoggle
= gtk_check_button_new_with_label ("Show hidden files.");
2026 if (x_gtk_show_hidden_files
)
2028 g_object_set (G_OBJECT (filewin
), "show-hidden", TRUE
, NULL
);
2029 gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (wtoggle
), TRUE
);
2031 gtk_widget_show (wtoggle
);
2032 g_signal_connect (G_OBJECT (wtoggle
), "clicked",
2033 G_CALLBACK (xg_toggle_visibility_cb
), filewin
);
2034 g_signal_connect (G_OBJECT (filewin
), "notify",
2035 G_CALLBACK (xg_toggle_notify_cb
), wtoggle
);
2037 if (x_gtk_file_dialog_help_text
)
2040 /* Gtk+ 2.10 has the file name text entry box integrated in the dialog.
2041 Show the C-l help text only for versions < 2.10. */
2042 if (gtk_check_version (2, 10, 0) && action
!= GTK_FILE_CHOOSER_ACTION_SAVE
)
2043 z
= stpcpy (z
, "\nType C-l to display a file name text entry box.\n");
2044 strcpy (z
, "\nIf you don't like this file selector, use the "
2045 "corresponding\nkey binding or customize "
2046 "use-file-dialog to turn it off.");
2048 wmessage
= gtk_label_new (msgbuf
);
2049 gtk_widget_show (wmessage
);
2052 gtk_box_pack_start (GTK_BOX (wbox
), wtoggle
, FALSE
, FALSE
, 0);
2053 if (x_gtk_file_dialog_help_text
)
2054 gtk_box_pack_start (GTK_BOX (wbox
), wmessage
, FALSE
, FALSE
, 0);
2055 gtk_file_chooser_set_extra_widget (GTK_FILE_CHOOSER (filewin
), wbox
);
2057 if (default_filename
)
2060 char *utf8_filename
;
2062 file
= build_string (default_filename
);
2064 /* File chooser does not understand ~/... in the file name. It must be
2065 an absolute name starting with /. */
2066 if (default_filename
[0] != '/')
2067 file
= Fexpand_file_name (file
, Qnil
);
2069 utf8_filename
= SSDATA (ENCODE_UTF_8 (file
));
2070 if (! NILP (Ffile_directory_p (file
)))
2071 gtk_file_chooser_set_current_folder (GTK_FILE_CHOOSER (filewin
),
2075 gtk_file_chooser_set_filename (GTK_FILE_CHOOSER (filewin
),
2077 if (action
== GTK_FILE_CHOOSER_ACTION_SAVE
)
2079 char *cp
= strrchr (utf8_filename
, '/');
2081 else cp
= utf8_filename
;
2082 gtk_file_chooser_set_current_name (GTK_FILE_CHOOSER (filewin
), cp
);
2087 *func
= xg_get_file_name_from_chooser
;
2091 #ifdef HAVE_GTK_FILE_SELECTION_NEW
2093 /* Return the selected file for file selector dialog W.
2094 The returned string must be free:d. */
2097 xg_get_file_name_from_selector (GtkWidget
*w
)
2099 GtkFileSelection
*filesel
= GTK_FILE_SELECTION (w
);
2100 return xstrdup (gtk_file_selection_get_filename (filesel
));
2103 /* Create a file selection dialog.
2104 F is the current frame.
2105 PROMPT is a prompt to show to the user. May not be NULL.
2106 DEFAULT_FILENAME is a default selection to be displayed. May be NULL.
2107 If MUSTMATCH_P, the returned file name must be an existing
2108 file. *FUNC is set to a function that can be used to retrieve the
2109 selected file name from the returned widget.
2111 Returns the created widget. */
2114 xg_get_file_with_selection (struct frame
*f
,
2116 char *default_filename
,
2117 bool mustmatch_p
, bool only_dir_p
,
2118 xg_get_file_func
*func
)
2121 GtkFileSelection
*filesel
;
2123 filewin
= gtk_file_selection_new (prompt
);
2124 filesel
= GTK_FILE_SELECTION (filewin
);
2126 if (default_filename
)
2127 gtk_file_selection_set_filename (filesel
, default_filename
);
2131 /* The selection_entry part of filesel is not documented. */
2132 gtk_widget_set_sensitive (filesel
->selection_entry
, FALSE
);
2133 gtk_file_selection_hide_fileop_buttons (filesel
);
2136 *func
= xg_get_file_name_from_selector
;
2140 #endif /* HAVE_GTK_FILE_SELECTION_NEW */
2142 /* Read a file name from the user using a file dialog, either the old
2143 file selection dialog, or the new file chooser dialog. Which to use
2144 depends on what the GTK version used has, and what the value of
2145 gtk-use-old-file-dialog.
2146 F is the current frame.
2147 PROMPT is a prompt to show to the user. May not be NULL.
2148 DEFAULT_FILENAME is a default selection to be displayed. May be NULL.
2149 If MUSTMATCH_P, the returned file name must be an existing
2152 Returns a file name or NULL if no file was selected.
2153 The returned string must be freed by the caller. */
2156 xg_get_file_name (struct frame
*f
,
2158 char *default_filename
,
2164 int filesel_done
= 0;
2165 xg_get_file_func func
;
2167 #ifdef HAVE_GTK_FILE_SELECTION_NEW
2169 if (xg_uses_old_file_dialog ())
2170 w
= xg_get_file_with_selection (f
, prompt
, default_filename
,
2171 mustmatch_p
, only_dir_p
, &func
);
2173 w
= xg_get_file_with_chooser (f
, prompt
, default_filename
,
2174 mustmatch_p
, only_dir_p
, &func
);
2176 #else /* not HAVE_GTK_FILE_SELECTION_NEW */
2177 w
= xg_get_file_with_chooser (f
, prompt
, default_filename
,
2178 mustmatch_p
, only_dir_p
, &func
);
2179 #endif /* not HAVE_GTK_FILE_SELECTION_NEW */
2181 gtk_widget_set_name (w
, "emacs-filedialog");
2183 filesel_done
= xg_dialog_run (f
, w
);
2184 if (filesel_done
== GTK_RESPONSE_OK
)
2187 gtk_widget_destroy (w
);
2191 /***********************************************************************
2193 ***********************************************************************/
2195 #ifdef HAVE_FREETYPE
2197 #if USE_NEW_GTK_FONT_CHOOSER
2199 #define XG_WEIGHT_TO_SYMBOL(w) \
2200 (w <= PANGO_WEIGHT_THIN ? Qextra_light \
2201 : w <= PANGO_WEIGHT_ULTRALIGHT ? Qlight \
2202 : w <= PANGO_WEIGHT_LIGHT ? Qsemi_light \
2203 : w < PANGO_WEIGHT_MEDIUM ? Qnormal \
2204 : w <= PANGO_WEIGHT_SEMIBOLD ? Qsemi_bold \
2205 : w <= PANGO_WEIGHT_BOLD ? Qbold \
2206 : w <= PANGO_WEIGHT_HEAVY ? Qextra_bold \
2209 #define XG_STYLE_TO_SYMBOL(s) \
2210 (s == PANGO_STYLE_OBLIQUE ? Qoblique \
2211 : s == PANGO_STYLE_ITALIC ? Qitalic \
2214 #endif /* USE_NEW_GTK_FONT_CHOOSER */
2217 static char *x_last_font_name
;
2219 /* Pop up a GTK font selector and return the name of the font the user
2220 selects, as a C string. The returned font name follows GTK's own
2223 `FAMILY [VALUE1 VALUE2] SIZE'
2225 This can be parsed using font_parse_fcname in font.c.
2226 DEFAULT_NAME, if non-zero, is the default font name. */
2229 xg_get_font (struct frame
*f
, const char *default_name
)
2233 Lisp_Object font
= Qnil
;
2235 w
= gtk_font_chooser_dialog_new
2236 ("Pick a font", GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)));
2240 /* Convert fontconfig names to Gtk names, i.e. remove - before
2242 char *p
= strrchr (default_name
, '-');
2246 while (c_isdigit (*ep
))
2248 if (*ep
== '\0') *p
= ' ';
2251 else if (x_last_font_name
)
2252 default_name
= x_last_font_name
;
2255 gtk_font_chooser_set_font (GTK_FONT_CHOOSER (w
), default_name
);
2257 gtk_widget_set_name (w
, "emacs-fontdialog");
2258 done
= xg_dialog_run (f
, w
);
2259 if (done
== GTK_RESPONSE_OK
)
2261 #if USE_NEW_GTK_FONT_CHOOSER
2262 /* Use the GTK3 font chooser. */
2263 PangoFontDescription
*desc
2264 = gtk_font_chooser_get_font_desc (GTK_FONT_CHOOSER (w
));
2268 const char *name
= pango_font_description_get_family (desc
);
2269 gint size
= pango_font_description_get_size (desc
);
2270 PangoWeight weight
= pango_font_description_get_weight (desc
);
2271 PangoStyle style
= pango_font_description_get_style (desc
);
2274 #define FONT_TYPE_WANTED (Qftcr)
2276 #define FONT_TYPE_WANTED (Qxft)
2278 font
= CALLN (Ffont_spec
,
2279 QCname
, build_string (name
),
2280 QCsize
, make_float (pango_units_to_double (size
)),
2281 QCweight
, XG_WEIGHT_TO_SYMBOL (weight
),
2282 QCslant
, XG_STYLE_TO_SYMBOL (style
),
2286 pango_font_description_free (desc
);
2287 dupstring (&x_last_font_name
, name
);
2290 #else /* Use old font selector, which just returns the font name. */
2293 = gtk_font_selection_dialog_get_font_name (GTK_FONT_CHOOSER (w
));
2297 font
= build_string (font_name
);
2298 g_free (x_last_font_name
);
2299 x_last_font_name
= font_name
;
2301 #endif /* USE_NEW_GTK_FONT_CHOOSER */
2304 gtk_widget_destroy (w
);
2307 #endif /* HAVE_FREETYPE */
2311 /***********************************************************************
2313 ***********************************************************************/
2315 /* The name of menu items that can be used for customization. Since GTK
2316 RC files are very crude and primitive, we have to set this on all
2317 menu item names so a user can easily customize menu items. */
2319 #define MENU_ITEM_NAME "emacs-menuitem"
2322 /* Linked list of all allocated struct xg_menu_cb_data. Used for marking
2323 during GC. The next member points to the items. */
2324 static xg_list_node xg_menu_cb_list
;
2326 /* Linked list of all allocated struct xg_menu_item_cb_data. Used for marking
2327 during GC. The next member points to the items. */
2328 static xg_list_node xg_menu_item_cb_list
;
2330 /* Allocate and initialize CL_DATA if NULL, otherwise increase ref_count.
2331 F is the frame CL_DATA will be initialized for.
2332 HIGHLIGHT_CB is the callback to call when entering/leaving menu items.
2334 The menu bar and all sub menus under the menu bar in a frame
2335 share the same structure, hence the reference count.
2337 Returns CL_DATA if CL_DATA is not NULL, or a pointer to a newly
2338 allocated xg_menu_cb_data if CL_DATA is NULL. */
2340 static xg_menu_cb_data
*
2341 make_cl_data (xg_menu_cb_data
*cl_data
, struct frame
*f
, GCallback highlight_cb
)
2345 cl_data
= xmalloc (sizeof *cl_data
);
2347 cl_data
->menu_bar_vector
= f
->menu_bar_vector
;
2348 cl_data
->menu_bar_items_used
= f
->menu_bar_items_used
;
2349 cl_data
->highlight_cb
= highlight_cb
;
2350 cl_data
->ref_count
= 0;
2352 xg_list_insert (&xg_menu_cb_list
, &cl_data
->ptrs
);
2355 cl_data
->ref_count
++;
2360 /* Update CL_DATA with values from frame F and with HIGHLIGHT_CB.
2361 HIGHLIGHT_CB is the callback to call when entering/leaving menu items.
2363 When the menu bar is updated, menu items may have been added and/or
2364 removed, so menu_bar_vector and menu_bar_items_used change. We must
2365 then update CL_DATA since it is used to determine which menu
2366 item that is invoked in the menu.
2367 HIGHLIGHT_CB could change, there is no check that the same
2368 function is given when modifying a menu bar as was given when
2369 creating the menu bar. */
2372 update_cl_data (xg_menu_cb_data
*cl_data
,
2374 GCallback highlight_cb
)
2379 cl_data
->menu_bar_vector
= f
->menu_bar_vector
;
2380 cl_data
->menu_bar_items_used
= f
->menu_bar_items_used
;
2381 cl_data
->highlight_cb
= highlight_cb
;
2385 /* Decrease reference count for CL_DATA.
2386 If reference count is zero, free CL_DATA. */
2389 unref_cl_data (xg_menu_cb_data
*cl_data
)
2391 if (cl_data
&& cl_data
->ref_count
> 0)
2393 cl_data
->ref_count
--;
2394 if (cl_data
->ref_count
== 0)
2396 xg_list_remove (&xg_menu_cb_list
, &cl_data
->ptrs
);
2402 /* Function that marks all lisp data during GC. */
2408 Lisp_Object rest
, frame
;
2410 for (iter
= xg_menu_cb_list
.next
; iter
; iter
= iter
->next
)
2411 mark_object (((xg_menu_cb_data
*) iter
)->menu_bar_vector
);
2413 for (iter
= xg_menu_item_cb_list
.next
; iter
; iter
= iter
->next
)
2415 xg_menu_item_cb_data
*cb_data
= (xg_menu_item_cb_data
*) iter
;
2417 if (! NILP (cb_data
->help
))
2418 mark_object (cb_data
->help
);
2421 FOR_EACH_FRAME (rest
, frame
)
2423 struct frame
*f
= XFRAME (frame
);
2425 if (FRAME_X_P (f
) && FRAME_GTK_OUTER_WIDGET (f
))
2427 struct xg_frame_tb_info
*tbinfo
2428 = g_object_get_data (G_OBJECT (FRAME_GTK_OUTER_WIDGET (f
)),
2432 mark_object (tbinfo
->last_tool_bar
);
2433 mark_object (tbinfo
->style
);
2439 /* Callback called when a menu item is destroyed. Used to free data.
2440 W is the widget that is being destroyed (not used).
2441 CLIENT_DATA points to the xg_menu_item_cb_data associated with the W. */
2444 menuitem_destroy_callback (GtkWidget
*w
, gpointer client_data
)
2448 xg_menu_item_cb_data
*data
= client_data
;
2449 xg_list_remove (&xg_menu_item_cb_list
, &data
->ptrs
);
2454 /* Callback called when the pointer enters/leaves a menu item.
2455 W is the parent of the menu item.
2456 EVENT is either an enter event or leave event.
2457 CLIENT_DATA is not used.
2459 Returns FALSE to tell GTK to keep processing this event. */
2462 menuitem_highlight_callback (GtkWidget
*w
,
2463 GdkEventCrossing
*event
,
2464 gpointer client_data
)
2467 GtkWidget
*subwidget
;
2468 xg_menu_item_cb_data
*data
;
2470 ev
.crossing
= *event
;
2471 subwidget
= gtk_get_event_widget (&ev
);
2472 data
= g_object_get_data (G_OBJECT (subwidget
), XG_ITEM_DATA
);
2475 if (! NILP (data
->help
) && data
->cl_data
->highlight_cb
)
2477 gpointer call_data
= event
->type
== GDK_LEAVE_NOTIFY
? 0 : data
;
2478 GtkCallback func
= (GtkCallback
) data
->cl_data
->highlight_cb
;
2479 (*func
) (subwidget
, call_data
);
2486 /* Callback called when a menu is destroyed. Used to free data.
2487 W is the widget that is being destroyed (not used).
2488 CLIENT_DATA points to the xg_menu_cb_data associated with W. */
2491 menu_destroy_callback (GtkWidget
*w
, gpointer client_data
)
2493 unref_cl_data (client_data
);
2496 /* Make a GTK widget that contains both UTF8_LABEL and UTF8_KEY (both
2497 must be non-NULL) and can be inserted into a menu item.
2499 Returns the GtkHBox. */
2502 make_widget_for_menu_item (const char *utf8_label
, const char *utf8_key
)
2508 wbox
= gtk_box_new (GTK_ORIENTATION_HORIZONTAL
, 0);
2509 gtk_box_set_homogeneous (GTK_BOX (wbox
), FALSE
);
2510 wlbl
= gtk_label_new (utf8_label
);
2511 wkey
= gtk_label_new (utf8_key
);
2513 #if GTK_CHECK_VERSION (3, 14, 0)
2514 gtk_widget_set_halign (wlbl
, GTK_ALIGN_START
);
2515 gtk_widget_set_valign (wlbl
, GTK_ALIGN_CENTER
);
2516 gtk_widget_set_halign (wkey
, GTK_ALIGN_START
);
2517 gtk_widget_set_valign (wkey
, GTK_ALIGN_CENTER
);
2519 gtk_misc_set_alignment (GTK_MISC (wlbl
), 0.0, 0.5);
2520 gtk_misc_set_alignment (GTK_MISC (wkey
), 0.0, 0.5);
2522 gtk_box_pack_start (GTK_BOX (wbox
), wlbl
, TRUE
, TRUE
, 0);
2523 gtk_box_pack_start (GTK_BOX (wbox
), wkey
, FALSE
, FALSE
, 0);
2525 gtk_widget_set_name (wlbl
, MENU_ITEM_NAME
);
2526 gtk_widget_set_name (wkey
, MENU_ITEM_NAME
);
2527 gtk_widget_set_name (wbox
, MENU_ITEM_NAME
);
2532 /* Make and return a menu item widget with the key to the right.
2533 UTF8_LABEL is the text for the menu item (GTK uses UTF8 internally).
2534 UTF8_KEY is the text representing the key binding.
2535 ITEM is the widget_value describing the menu item.
2537 GROUP is an in/out parameter. If the menu item to be created is not
2538 part of any radio menu group, *GROUP contains NULL on entry and exit.
2539 If the menu item to be created is part of a radio menu group, on entry
2540 *GROUP contains the group to use, or NULL if this is the first item
2541 in the group. On exit, *GROUP contains the radio item group.
2543 Unfortunately, keys don't line up as nicely as in Motif,
2544 but the macOS version doesn't either, so I guess that is OK. */
2547 make_menu_item (const char *utf8_label
,
2548 const char *utf8_key
,
2553 GtkWidget
*wtoadd
= 0;
2555 /* It has been observed that some menu items have a NULL name field.
2556 This will lead to this function being called with a NULL utf8_label.
2557 GTK crashes on that so we set a blank label. Why there is a NULL
2558 name remains to be investigated. */
2559 if (! utf8_label
) utf8_label
= " ";
2562 wtoadd
= make_widget_for_menu_item (utf8_label
, utf8_key
);
2564 if (item
->button_type
== BUTTON_TYPE_TOGGLE
)
2567 if (utf8_key
) w
= gtk_check_menu_item_new ();
2568 else w
= gtk_check_menu_item_new_with_label (utf8_label
);
2569 gtk_check_menu_item_set_active (GTK_CHECK_MENU_ITEM (w
), item
->selected
);
2571 else if (item
->button_type
== BUTTON_TYPE_RADIO
)
2573 if (utf8_key
) w
= gtk_radio_menu_item_new (*group
);
2574 else w
= gtk_radio_menu_item_new_with_label (*group
, utf8_label
);
2575 *group
= gtk_radio_menu_item_get_group (GTK_RADIO_MENU_ITEM (w
));
2577 gtk_check_menu_item_set_active (GTK_CHECK_MENU_ITEM (w
), TRUE
);
2582 if (utf8_key
) w
= gtk_menu_item_new ();
2583 else w
= gtk_menu_item_new_with_label (utf8_label
);
2586 if (wtoadd
) gtk_container_add (GTK_CONTAINER (w
), wtoadd
);
2587 if (! item
->enabled
) gtk_widget_set_sensitive (w
, FALSE
);
2592 /* Create a menu item widget, and connect the callbacks.
2593 ITEM describes the menu item.
2594 F is the frame the created menu belongs to.
2595 SELECT_CB is the callback to use when a menu item is selected.
2596 HIGHLIGHT_CB is the callback to call when entering/leaving menu items.
2597 CL_DATA points to the callback data to be used for this menu.
2598 GROUP is an in/out parameter. If the menu item to be created is not
2599 part of any radio menu group, *GROUP contains NULL on entry and exit.
2600 If the menu item to be created is part of a radio menu group, on entry
2601 *GROUP contains the group to use, or NULL if this is the first item
2602 in the group. On exit, *GROUP contains the radio item group.
2604 Returns the created GtkWidget. */
2607 xg_create_one_menuitem (widget_value
*item
,
2609 GCallback select_cb
,
2610 GCallback highlight_cb
,
2611 xg_menu_cb_data
*cl_data
,
2617 xg_menu_item_cb_data
*cb_data
;
2619 utf8_label
= get_utf8_string (item
->name
);
2620 utf8_key
= get_utf8_string (item
->key
);
2622 w
= make_menu_item (utf8_label
, utf8_key
, item
, group
);
2624 if (utf8_label
) g_free (utf8_label
);
2625 if (utf8_key
) g_free (utf8_key
);
2627 cb_data
= xmalloc (sizeof *cb_data
);
2629 xg_list_insert (&xg_menu_item_cb_list
, &cb_data
->ptrs
);
2631 cb_data
->select_id
= 0;
2632 cb_data
->help
= item
->help
;
2633 cb_data
->cl_data
= cl_data
;
2634 cb_data
->call_data
= item
->call_data
;
2636 g_signal_connect (G_OBJECT (w
),
2638 G_CALLBACK (menuitem_destroy_callback
),
2641 /* Put cb_data in widget, so we can get at it when modifying menubar */
2642 g_object_set_data (G_OBJECT (w
), XG_ITEM_DATA
, cb_data
);
2644 /* final item, not a submenu */
2645 if (item
->call_data
&& ! item
->contents
)
2649 = g_signal_connect (G_OBJECT (w
), "activate", select_cb
, cb_data
);
2655 /* Create a full menu tree specified by DATA.
2656 F is the frame the created menu belongs to.
2657 SELECT_CB is the callback to use when a menu item is selected.
2658 DEACTIVATE_CB is the callback to use when a sub menu is not shown anymore.
2659 HIGHLIGHT_CB is the callback to call when entering/leaving menu items.
2660 If POP_UP_P, create a popup menu.
2661 If MENU_BAR_P, create a menu bar.
2662 TOPMENU is the topmost GtkWidget that others shall be placed under.
2663 It may be NULL, in that case we create the appropriate widget
2664 (menu bar or menu item depending on POP_UP_P and MENU_BAR_P)
2665 CL_DATA is the callback data we shall use for this menu, or NULL
2666 if we haven't set the first callback yet.
2667 NAME is the name to give to the top level menu if this function
2668 creates it. May be NULL to not set any name.
2670 Returns the top level GtkWidget. This is TOPLEVEL if TOPLEVEL is
2673 This function calls itself to create submenus. */
2676 create_menus (widget_value
*data
,
2678 GCallback select_cb
,
2679 GCallback deactivate_cb
,
2680 GCallback highlight_cb
,
2684 xg_menu_cb_data
*cl_data
,
2688 GtkWidget
*wmenu
= topmenu
;
2689 GSList
*group
= NULL
;
2695 wmenu
= gtk_menu_new ();
2696 xg_set_screen (wmenu
, f
);
2697 /* Connect this to the menu instead of items so we get enter/leave for
2698 disabled items also. TODO: Still does not get enter/leave for
2699 disabled items in detached menus. */
2700 g_signal_connect (G_OBJECT (wmenu
),
2701 "enter-notify-event",
2702 G_CALLBACK (menuitem_highlight_callback
),
2704 g_signal_connect (G_OBJECT (wmenu
),
2705 "leave-notify-event",
2706 G_CALLBACK (menuitem_highlight_callback
),
2711 wmenu
= gtk_menu_bar_new ();
2712 /* Set width of menu bar to a small value so it doesn't enlarge
2713 a small initial frame size. The width will be set to the
2714 width of the frame later on when it is added to a container.
2715 height -1: Natural height. */
2716 gtk_widget_set_size_request (wmenu
, 1, -1);
2719 /* Put cl_data on the top menu for easier access. */
2720 cl_data
= make_cl_data (cl_data
, f
, highlight_cb
);
2721 g_object_set_data (G_OBJECT (wmenu
), XG_FRAME_DATA
, (gpointer
)cl_data
);
2722 g_signal_connect (G_OBJECT (wmenu
), "destroy",
2723 G_CALLBACK (menu_destroy_callback
), cl_data
);
2726 gtk_widget_set_name (wmenu
, name
);
2729 g_signal_connect (G_OBJECT (wmenu
),
2730 "selection-done", deactivate_cb
, 0);
2733 for (item
= data
; item
; item
= item
->next
)
2737 if (pop_up_p
&& !item
->contents
&& !item
->call_data
2738 && !menu_separator_name_p (item
->name
))
2741 /* A title for a popup. We do the same as GTK does when
2742 creating titles, but it does not look good. */
2744 utf8_label
= get_utf8_string (item
->name
);
2746 w
= gtk_menu_item_new_with_label (utf8_label
);
2747 gtk_widget_set_sensitive (w
, FALSE
);
2748 if (utf8_label
) g_free (utf8_label
);
2750 else if (menu_separator_name_p (item
->name
))
2753 /* GTK only have one separator type. */
2754 w
= gtk_separator_menu_item_new ();
2758 w
= xg_create_one_menuitem (item
,
2760 item
->contents
? 0 : select_cb
,
2765 /* Create a possibly empty submenu for menu bar items, since some
2766 themes don't highlight items correctly without it. */
2767 if (item
->contents
|| menu_bar_p
)
2769 GtkWidget
*submenu
= create_menus (item
->contents
,
2779 gtk_menu_item_set_submenu (GTK_MENU_ITEM (w
), submenu
);
2783 gtk_menu_shell_append (GTK_MENU_SHELL (wmenu
), w
);
2784 gtk_widget_set_name (w
, MENU_ITEM_NAME
);
2790 /* Create a menubar, popup menu or dialog, depending on the TYPE argument.
2791 TYPE can be "menubar", "popup" for popup menu, or "dialog" for a dialog
2792 with some text and buttons.
2793 F is the frame the created item belongs to.
2794 NAME is the name to use for the top widget.
2795 VAL is a widget_value structure describing items to be created.
2796 SELECT_CB is the callback to use when a menu item is selected or
2797 a dialog button is pressed.
2798 DEACTIVATE_CB is the callback to use when an item is deactivated.
2799 For a menu, when a sub menu is not shown anymore, for a dialog it is
2800 called when the dialog is popped down.
2801 HIGHLIGHT_CB is the callback to call when entering/leaving menu items.
2803 Returns the widget created. */
2806 xg_create_widget (const char *type
, const char *name
, struct frame
*f
,
2807 widget_value
*val
, GCallback select_cb
,
2808 GCallback deactivate_cb
, GCallback highlight_cb
)
2811 bool menu_bar_p
= strcmp (type
, "menubar") == 0;
2812 bool pop_up_p
= strcmp (type
, "popup") == 0;
2814 if (strcmp (type
, "dialog") == 0)
2816 w
= create_dialog (val
, select_cb
, deactivate_cb
);
2817 xg_set_screen (w
, f
);
2818 gtk_window_set_transient_for (GTK_WINDOW (w
),
2819 GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)));
2820 gtk_window_set_destroy_with_parent (GTK_WINDOW (w
), TRUE
);
2821 gtk_widget_set_name (w
, "emacs-dialog");
2822 gtk_window_set_modal (GTK_WINDOW (w
), TRUE
);
2824 else if (menu_bar_p
|| pop_up_p
)
2826 w
= create_menus (val
->contents
,
2837 /* Set the cursor to an arrow for popup menus when they are mapped.
2838 This is done by default for menu bar menus. */
2841 /* Must realize so the GdkWindow inside the widget is created. */
2842 gtk_widget_realize (w
);
2843 xg_set_cursor (w
, FRAME_DISPLAY_INFO (f
)->xg_cursor
);
2848 fprintf (stderr
, "bad type in xg_create_widget: %s, doing nothing\n",
2855 /* Return the label for menu item WITEM. */
2858 xg_get_menu_item_label (GtkMenuItem
*witem
)
2860 GtkLabel
*wlabel
= GTK_LABEL (XG_BIN_CHILD (witem
));
2861 return gtk_label_get_label (wlabel
);
2864 /* Return true if the menu item WITEM has the text LABEL. */
2867 xg_item_label_same_p (GtkMenuItem
*witem
, const char *label
)
2870 char *utf8_label
= get_utf8_string (label
);
2871 const char *old_label
= witem
? xg_get_menu_item_label (witem
) : 0;
2873 if (! old_label
&& ! utf8_label
)
2875 else if (old_label
&& utf8_label
)
2876 is_same
= strcmp (utf8_label
, old_label
) == 0;
2878 if (utf8_label
) g_free (utf8_label
);
2883 /* Destroy widgets in LIST. */
2886 xg_destroy_widgets (GList
*list
)
2890 for (iter
= list
; iter
; iter
= g_list_next (iter
))
2892 GtkWidget
*w
= GTK_WIDGET (iter
->data
);
2894 /* Destroying the widget will remove it from the container it is in. */
2895 gtk_widget_destroy (w
);
2899 /* Update the top level names in MENUBAR (i.e. not submenus).
2900 F is the frame the menu bar belongs to.
2901 *LIST is a list with the current menu bar names (menu item widgets).
2902 ITER is the item within *LIST that shall be updated.
2903 POS is the numerical position, starting at 0, of ITER in *LIST.
2904 VAL describes what the menu bar shall look like after the update.
2905 SELECT_CB is the callback to use when a menu item is selected.
2906 HIGHLIGHT_CB is the callback to call when entering/leaving menu items.
2907 CL_DATA points to the callback data to be used for this menu bar.
2909 This function calls itself to walk through the menu bar names. */
2912 xg_update_menubar (GtkWidget
*menubar
,
2918 GCallback select_cb
,
2919 GCallback deactivate_cb
,
2920 GCallback highlight_cb
,
2921 xg_menu_cb_data
*cl_data
)
2923 if (! iter
&& ! val
)
2925 else if (iter
&& ! val
)
2927 /* Item(s) have been removed. Remove all remaining items. */
2928 xg_destroy_widgets (iter
);
2930 /* Add a blank entry so the menubar doesn't collapse to nothing. */
2931 gtk_menu_shell_insert (GTK_MENU_SHELL (menubar
),
2932 gtk_menu_item_new_with_label (""),
2938 else if (! iter
&& val
)
2940 /* Item(s) added. Add all new items in one call. */
2941 create_menus (val
, f
, select_cb
, deactivate_cb
, highlight_cb
,
2942 0, 1, menubar
, cl_data
, 0);
2948 /* Below this neither iter or val is NULL */
2949 else if (xg_item_label_same_p (GTK_MENU_ITEM (iter
->data
), val
->name
))
2951 /* This item is still the same, check next item. */
2953 iter
= g_list_next (iter
);
2956 else /* This item is changed. */
2958 GtkMenuItem
*witem
= GTK_MENU_ITEM (iter
->data
);
2959 GtkMenuItem
*witem2
= 0;
2960 bool val_in_menubar
= 0;
2961 bool iter_in_new_menubar
= 0;
2965 /* See if the changed entry (val) is present later in the menu bar */
2967 iter2
&& ! val_in_menubar
;
2968 iter2
= g_list_next (iter2
))
2970 witem2
= GTK_MENU_ITEM (iter2
->data
);
2971 val_in_menubar
= xg_item_label_same_p (witem2
, val
->name
);
2974 /* See if the current entry (iter) is present later in the
2975 specification for the new menu bar. */
2976 for (cur
= val
; cur
&& ! iter_in_new_menubar
; cur
= cur
->next
)
2977 iter_in_new_menubar
= xg_item_label_same_p (witem
, cur
->name
);
2979 if (val_in_menubar
&& ! iter_in_new_menubar
)
2983 /* This corresponds to:
2988 g_object_ref (G_OBJECT (witem
));
2989 gtk_container_remove (GTK_CONTAINER (menubar
), GTK_WIDGET (witem
));
2990 gtk_widget_destroy (GTK_WIDGET (witem
));
2992 /* Must get new list since the old changed. */
2993 g_list_free (*list
);
2994 *list
= iter
= gtk_container_get_children (GTK_CONTAINER (menubar
));
2995 while (nr
-- > 0) iter
= g_list_next (iter
);
2997 else if (! val_in_menubar
&& ! iter_in_new_menubar
)
2999 /* This corresponds to:
3002 Rename B to X. This might seem to be a strange thing to do,
3003 since if there is a menu under B it will be totally wrong for X.
3004 But consider editing a C file. Then there is a C-mode menu
3005 (corresponds to B above).
3006 If then doing C-x C-f the minibuf menu (X above) replaces the
3007 C-mode menu. When returning from the minibuffer, we get
3008 back the C-mode menu. Thus we do:
3009 Rename B to X (C-mode to minibuf menu)
3010 Rename X to B (minibuf to C-mode menu).
3011 If the X menu hasn't been invoked, the menu under B
3012 is up to date when leaving the minibuffer. */
3013 GtkLabel
*wlabel
= GTK_LABEL (XG_BIN_CHILD (witem
));
3014 char *utf8_label
= get_utf8_string (val
->name
);
3016 /* GTK menu items don't notice when their labels have been
3017 changed from underneath them, so we have to explicitly
3018 use g_object_notify to tell listeners (e.g., a GMenuModel
3019 bridge that might be loaded) that the item's label has
3021 gtk_label_set_text (wlabel
, utf8_label
);
3022 #if GTK_CHECK_VERSION (2, 16, 0)
3023 g_object_notify (G_OBJECT (witem
), "label");
3025 if (utf8_label
) g_free (utf8_label
);
3026 iter
= g_list_next (iter
);
3030 else if (! val_in_menubar
&& iter_in_new_menubar
)
3032 /* This corresponds to:
3039 GtkWidget
*w
= xg_create_one_menuitem (val
,
3046 /* Create a possibly empty submenu for menu bar items, since some
3047 themes don't highlight items correctly without it. */
3048 GtkWidget
*submenu
= create_menus (NULL
, f
,
3049 select_cb
, deactivate_cb
,
3051 0, 0, 0, cl_data
, 0);
3053 gtk_widget_set_name (w
, MENU_ITEM_NAME
);
3054 gtk_menu_shell_insert (GTK_MENU_SHELL (menubar
), w
, pos
);
3055 gtk_menu_item_set_submenu (GTK_MENU_ITEM (w
), submenu
);
3057 g_list_free (*list
);
3058 *list
= iter
= gtk_container_get_children (GTK_CONTAINER (menubar
));
3059 while (nr
-- > 0) iter
= g_list_next (iter
);
3060 iter
= g_list_next (iter
);
3064 else /* if (val_in_menubar && iter_in_new_menubar) */
3067 /* This corresponds to:
3072 g_object_ref (G_OBJECT (witem2
));
3073 gtk_container_remove (GTK_CONTAINER (menubar
), GTK_WIDGET (witem2
));
3074 gtk_menu_shell_insert (GTK_MENU_SHELL (menubar
),
3075 GTK_WIDGET (witem2
), pos
);
3076 g_object_unref (G_OBJECT (witem2
));
3078 g_list_free (*list
);
3079 *list
= iter
= gtk_container_get_children (GTK_CONTAINER (menubar
));
3080 while (nr
-- > 0) iter
= g_list_next (iter
);
3081 if (iter
) iter
= g_list_next (iter
);
3087 /* Update the rest of the menu bar. */
3088 xg_update_menubar (menubar
, f
, list
, iter
, pos
, val
,
3089 select_cb
, deactivate_cb
, highlight_cb
, cl_data
);
3092 /* Update the menu item W so it corresponds to VAL.
3093 SELECT_CB is the callback to use when a menu item is selected.
3094 HIGHLIGHT_CB is the callback to call when entering/leaving menu items.
3095 CL_DATA is the data to set in the widget for menu invocation. */
3098 xg_update_menu_item (widget_value
*val
,
3100 GCallback select_cb
,
3101 GCallback highlight_cb
,
3102 xg_menu_cb_data
*cl_data
)
3109 const char *old_label
= 0;
3110 const char *old_key
= 0;
3111 xg_menu_item_cb_data
*cb_data
;
3112 bool label_changed
= false;
3114 wchild
= XG_BIN_CHILD (w
);
3115 utf8_label
= get_utf8_string (val
->name
);
3116 utf8_key
= get_utf8_string (val
->key
);
3118 /* See if W is a menu item with a key. See make_menu_item above. */
3119 if (GTK_IS_BOX (wchild
))
3121 GList
*list
= gtk_container_get_children (GTK_CONTAINER (wchild
));
3123 wlbl
= GTK_LABEL (list
->data
);
3124 wkey
= GTK_LABEL (list
->next
->data
);
3129 /* Remove the key and keep just the label. */
3130 g_object_ref (G_OBJECT (wlbl
));
3131 gtk_container_remove (GTK_CONTAINER (w
), wchild
);
3132 gtk_container_add (GTK_CONTAINER (w
), GTK_WIDGET (wlbl
));
3133 g_object_unref (G_OBJECT (wlbl
));
3138 else /* Just a label. */
3140 wlbl
= GTK_LABEL (wchild
);
3142 /* Check if there is now a key. */
3145 GtkWidget
*wtoadd
= make_widget_for_menu_item (utf8_label
, utf8_key
);
3146 GList
*list
= gtk_container_get_children (GTK_CONTAINER (wtoadd
));
3148 wlbl
= GTK_LABEL (list
->data
);
3149 wkey
= GTK_LABEL (list
->next
->data
);
3152 gtk_container_remove (GTK_CONTAINER (w
), wchild
);
3153 gtk_container_add (GTK_CONTAINER (w
), wtoadd
);
3157 if (wkey
) old_key
= gtk_label_get_label (wkey
);
3158 if (wlbl
) old_label
= gtk_label_get_label (wlbl
);
3160 if (wkey
&& utf8_key
&& (! old_key
|| strcmp (utf8_key
, old_key
) != 0))
3162 label_changed
= true;
3163 gtk_label_set_text (wkey
, utf8_key
);
3166 if (! old_label
|| strcmp (utf8_label
, old_label
) != 0)
3168 label_changed
= true;
3169 gtk_label_set_text (wlbl
, utf8_label
);
3172 if (utf8_key
) g_free (utf8_key
);
3173 if (utf8_label
) g_free (utf8_label
);
3175 if (! val
->enabled
&& gtk_widget_get_sensitive (w
))
3176 gtk_widget_set_sensitive (w
, FALSE
);
3177 else if (val
->enabled
&& ! gtk_widget_get_sensitive (w
))
3178 gtk_widget_set_sensitive (w
, TRUE
);
3180 cb_data
= g_object_get_data (G_OBJECT (w
), XG_ITEM_DATA
);
3183 cb_data
->call_data
= val
->call_data
;
3184 cb_data
->help
= val
->help
;
3185 cb_data
->cl_data
= cl_data
;
3187 /* We assume the callback functions don't change. */
3188 if (val
->call_data
&& ! val
->contents
)
3190 /* This item shall have a select callback. */
3191 if (! cb_data
->select_id
)
3193 = g_signal_connect (G_OBJECT (w
), "activate",
3194 select_cb
, cb_data
);
3196 else if (cb_data
->select_id
)
3198 g_signal_handler_disconnect (w
, cb_data
->select_id
);
3199 cb_data
->select_id
= 0;
3203 #if GTK_CHECK_VERSION (2, 16, 0)
3204 if (label_changed
) /* See comment in xg_update_menubar. */
3205 g_object_notify (G_OBJECT (w
), "label");
3209 /* Update the toggle menu item W so it corresponds to VAL. */
3212 xg_update_toggle_item (widget_value
*val
, GtkWidget
*w
)
3214 gtk_check_menu_item_set_active (GTK_CHECK_MENU_ITEM (w
), val
->selected
);
3217 /* Update the radio menu item W so it corresponds to VAL. */
3220 xg_update_radio_item (widget_value
*val
, GtkWidget
*w
)
3222 gtk_check_menu_item_set_active (GTK_CHECK_MENU_ITEM (w
), val
->selected
);
3225 /* Update the sub menu SUBMENU and all its children so it corresponds to VAL.
3226 SUBMENU may be NULL, in that case a new menu is created.
3227 F is the frame the menu bar belongs to.
3228 VAL describes the contents of the menu bar.
3229 SELECT_CB is the callback to use when a menu item is selected.
3230 DEACTIVATE_CB is the callback to use when a sub menu is not shown anymore.
3231 HIGHLIGHT_CB is the callback to call when entering/leaving menu items.
3232 CL_DATA is the call back data to use for any newly created items.
3234 Returns the updated submenu widget, that is SUBMENU unless SUBMENU
3238 xg_update_submenu (GtkWidget
*submenu
,
3241 GCallback select_cb
,
3242 GCallback deactivate_cb
,
3243 GCallback highlight_cb
,
3244 xg_menu_cb_data
*cl_data
)
3246 GtkWidget
*newsub
= submenu
;
3250 GList
*first_radio
= 0;
3253 list
= gtk_container_get_children (GTK_CONTAINER (submenu
));
3255 for (cur
= val
, iter
= list
;
3257 iter
= g_list_next (iter
), cur
= cur
->next
)
3259 GtkWidget
*w
= GTK_WIDGET (iter
->data
);
3261 /* Remember first radio button in a group. If we get a mismatch in
3262 a radio group we must rebuild the whole group so that the connections
3263 in GTK becomes correct. */
3264 if (cur
->button_type
== BUTTON_TYPE_RADIO
&& ! first_radio
)
3266 else if (cur
->button_type
!= BUTTON_TYPE_RADIO
3267 && ! GTK_IS_RADIO_MENU_ITEM (w
))
3270 if (GTK_IS_SEPARATOR_MENU_ITEM (w
))
3272 if (! menu_separator_name_p (cur
->name
))
3275 else if (GTK_IS_CHECK_MENU_ITEM (w
))
3277 if (cur
->button_type
!= BUTTON_TYPE_TOGGLE
)
3279 xg_update_toggle_item (cur
, w
);
3280 xg_update_menu_item (cur
, w
, select_cb
, highlight_cb
, cl_data
);
3282 else if (GTK_IS_RADIO_MENU_ITEM (w
))
3284 if (cur
->button_type
!= BUTTON_TYPE_RADIO
)
3286 xg_update_radio_item (cur
, w
);
3287 xg_update_menu_item (cur
, w
, select_cb
, highlight_cb
, cl_data
);
3289 else if (GTK_IS_MENU_ITEM (w
))
3291 GtkMenuItem
*witem
= GTK_MENU_ITEM (w
);
3294 if (cur
->button_type
!= BUTTON_TYPE_NONE
||
3295 menu_separator_name_p (cur
->name
))
3298 xg_update_menu_item (cur
, w
, select_cb
, highlight_cb
, cl_data
);
3300 sub
= gtk_menu_item_get_submenu (witem
);
3301 if (sub
&& ! cur
->contents
)
3303 /* Not a submenu anymore. */
3304 g_object_ref (G_OBJECT (sub
));
3305 remove_submenu (witem
);
3306 gtk_widget_destroy (sub
);
3308 else if (cur
->contents
)
3312 nsub
= xg_update_submenu (sub
, f
, cur
->contents
,
3313 select_cb
, deactivate_cb
,
3314 highlight_cb
, cl_data
);
3316 /* If this item just became a submenu, we must set it. */
3318 gtk_menu_item_set_submenu (witem
, nsub
);
3323 /* Structural difference. Remove everything from here and down
3329 /* Remove widgets from first structural change. */
3332 /* If we are adding new menu items below, we must remove from
3333 first radio button so that radio groups become correct. */
3334 if (cur
&& first_radio
) xg_destroy_widgets (first_radio
);
3335 else xg_destroy_widgets (iter
);
3340 /* More items added. Create them. */
3341 newsub
= create_menus (cur
,
3353 if (list
) g_list_free (list
);
3358 /* Update the MENUBAR.
3359 F is the frame the menu bar belongs to.
3360 VAL describes the contents of the menu bar.
3361 If DEEP_P, rebuild all but the top level menu names in
3362 the MENUBAR. If DEEP_P is zero, just rebuild the names in the menubar.
3363 SELECT_CB is the callback to use when a menu item is selected.
3364 DEACTIVATE_CB is the callback to use when a sub menu is not shown anymore.
3365 HIGHLIGHT_CB is the callback to call when entering/leaving menu items. */
3368 xg_modify_menubar_widgets (GtkWidget
*menubar
, struct frame
*f
,
3369 widget_value
*val
, bool deep_p
,
3370 GCallback select_cb
, GCallback deactivate_cb
,
3371 GCallback highlight_cb
)
3373 xg_menu_cb_data
*cl_data
;
3374 GList
*list
= gtk_container_get_children (GTK_CONTAINER (menubar
));
3378 cl_data
= g_object_get_data (G_OBJECT (menubar
), XG_FRAME_DATA
);
3380 xg_update_menubar (menubar
, f
, &list
, list
, 0, val
->contents
,
3381 select_cb
, deactivate_cb
, highlight_cb
, cl_data
);
3387 /* Update all sub menus.
3388 We must keep the submenus (GTK menu item widgets) since the
3389 X Window in the XEvent that activates the menu are those widgets. */
3391 /* Update cl_data, menu_item things in F may have changed. */
3392 update_cl_data (cl_data
, f
, highlight_cb
);
3394 for (cur
= val
->contents
; cur
; cur
= cur
->next
)
3399 GtkMenuItem
*witem
= 0;
3401 /* Find sub menu that corresponds to val and update it. */
3402 for (iter
= list
; iter
; iter
= g_list_next (iter
))
3404 witem
= GTK_MENU_ITEM (iter
->data
);
3405 if (xg_item_label_same_p (witem
, cur
->name
))
3407 sub
= gtk_menu_item_get_submenu (witem
);
3412 newsub
= xg_update_submenu (sub
,
3419 /* sub may still be NULL. If we just updated non deep and added
3420 a new menu bar item, it has no sub menu yet. So we set the
3421 newly created sub menu under witem. */
3422 if (newsub
!= sub
&& witem
!= 0)
3424 xg_set_screen (newsub
, f
);
3425 gtk_menu_item_set_submenu (witem
, newsub
);
3431 gtk_widget_show_all (menubar
);
3434 /* Callback called when the menu bar W is mapped.
3435 Used to find the height of the menu bar if we didn't get it
3436 after showing the widget. */
3439 menubar_map_cb (GtkWidget
*w
, gpointer user_data
)
3442 struct frame
*f
= user_data
;
3443 gtk_widget_get_preferred_size (w
, NULL
, &req
);
3444 if (FRAME_MENUBAR_HEIGHT (f
) != req
.height
)
3446 FRAME_MENUBAR_HEIGHT (f
) = req
.height
;
3447 adjust_frame_size (f
, -1, -1, 2, 0, Qmenu_bar_lines
);
3451 /* Recompute all the widgets of frame F, when the menu bar has been
3455 xg_update_frame_menubar (struct frame
*f
)
3457 struct x_output
*x
= f
->output_data
.x
;
3460 if (!x
->menubar_widget
|| gtk_widget_get_mapped (x
->menubar_widget
))
3463 if (x
->menubar_widget
&& gtk_widget_get_parent (x
->menubar_widget
))
3464 return; /* Already done this, happens for frames created invisible. */
3468 gtk_box_pack_start (GTK_BOX (x
->vbox_widget
), x
->menubar_widget
,
3470 gtk_box_reorder_child (GTK_BOX (x
->vbox_widget
), x
->menubar_widget
, 0);
3472 g_signal_connect (x
->menubar_widget
, "map", G_CALLBACK (menubar_map_cb
), f
);
3473 gtk_widget_show_all (x
->menubar_widget
);
3474 gtk_widget_get_preferred_size (x
->menubar_widget
, NULL
, &req
);
3476 if (FRAME_MENUBAR_HEIGHT (f
) != req
.height
)
3478 FRAME_MENUBAR_HEIGHT (f
) = req
.height
;
3479 adjust_frame_size (f
, -1, -1, 2, 0, Qmenu_bar_lines
);
3484 /* Get rid of the menu bar of frame F, and free its storage.
3485 This is used when deleting a frame, and when turning off the menu bar. */
3488 free_frame_menubar (struct frame
*f
)
3490 struct x_output
*x
= f
->output_data
.x
;
3492 if (x
->menubar_widget
)
3496 gtk_container_remove (GTK_CONTAINER (x
->vbox_widget
), x
->menubar_widget
);
3497 /* The menubar and its children shall be deleted when removed from
3499 x
->menubar_widget
= 0;
3500 FRAME_MENUBAR_HEIGHT (f
) = 0;
3501 adjust_frame_size (f
, -1, -1, 2, 0, Qmenu_bar_lines
);
3507 xg_event_is_for_menubar (struct frame
*f
, const XEvent
*event
)
3509 struct x_output
*x
= f
->output_data
.x
;
3518 if (! x
->menubar_widget
) return 0;
3520 if (! (event
->xbutton
.x
>= 0
3521 && event
->xbutton
.x
< FRAME_PIXEL_WIDTH (f
)
3522 && event
->xbutton
.y
>= 0
3523 && event
->xbutton
.y
< FRAME_MENUBAR_HEIGHT (f
)
3524 && event
->xbutton
.same_screen
))
3527 gdpy
= gdk_x11_lookup_xdisplay (FRAME_X_DISPLAY (f
));
3528 gw
= gdk_x11_window_lookup_for_display (gdpy
, event
->xbutton
.window
);
3530 gevent
.any
.window
= gw
;
3531 gevent
.any
.type
= GDK_NOTHING
;
3532 gwdesc
= gtk_get_event_widget (&gevent
);
3533 if (! gwdesc
) return 0;
3534 if (! GTK_IS_MENU_BAR (gwdesc
)
3535 && ! GTK_IS_MENU_ITEM (gwdesc
)
3536 && ! gtk_widget_is_ancestor (x
->menubar_widget
, gwdesc
))
3539 list
= gtk_container_get_children (GTK_CONTAINER (x
->menubar_widget
));
3540 if (! list
) return 0;
3541 rec
.x
= event
->xbutton
.x
;
3542 rec
.y
= event
->xbutton
.y
;
3546 for (iter
= list
; iter
; iter
= g_list_next (iter
))
3548 GtkWidget
*w
= GTK_WIDGET (iter
->data
);
3549 if (gtk_widget_get_mapped (w
) && gtk_widget_intersect (w
, &rec
, NULL
))
3558 /***********************************************************************
3559 Scroll bar functions
3560 ***********************************************************************/
3563 /* Setting scroll bar values invokes the callback. Use this variable
3564 to indicate that callback should do nothing. */
3566 bool xg_ignore_gtk_scrollbar
;
3568 /* Width and height of scroll bars for the current theme. */
3569 static int scroll_bar_width_for_theme
;
3570 static int scroll_bar_height_for_theme
;
3572 /* Xlib's `Window' fits in 32 bits. But we want to store pointers, and they
3573 may be larger than 32 bits. Keep a mapping from integer index to widget
3574 pointers to get around the 32 bit limitation. */
3578 GtkWidget
**widgets
;
3583 /* Grow this much every time we need to allocate more */
3585 #define ID_TO_WIDGET_INCR 32
3587 /* Store the widget pointer W in id_to_widget and return the integer index. */
3590 xg_store_widget_in_map (GtkWidget
*w
)
3594 if (id_to_widget
.max_size
== id_to_widget
.used
)
3597 if (TYPE_MAXIMUM (Window
) - ID_TO_WIDGET_INCR
< id_to_widget
.max_size
)
3598 memory_full (SIZE_MAX
);
3600 new_size
= id_to_widget
.max_size
+ ID_TO_WIDGET_INCR
;
3601 id_to_widget
.widgets
= xnrealloc (id_to_widget
.widgets
,
3602 new_size
, sizeof (GtkWidget
*));
3604 for (i
= id_to_widget
.max_size
; i
< new_size
; ++i
)
3605 id_to_widget
.widgets
[i
] = 0;
3606 id_to_widget
.max_size
= new_size
;
3609 /* Just loop over the array and find a free place. After all,
3610 how many scroll bars are we creating? Should be a small number.
3611 The check above guarantees we will find a free place. */
3612 for (i
= 0; i
< id_to_widget
.max_size
; ++i
)
3614 if (! id_to_widget
.widgets
[i
])
3616 id_to_widget
.widgets
[i
] = w
;
3617 ++id_to_widget
.used
;
3623 /* Should never end up here */
3627 /* Remove pointer at IDX from id_to_widget.
3628 Called when scroll bar is destroyed. */
3631 xg_remove_widget_from_map (ptrdiff_t idx
)
3633 if (idx
< id_to_widget
.max_size
&& id_to_widget
.widgets
[idx
] != 0)
3635 id_to_widget
.widgets
[idx
] = 0;
3636 --id_to_widget
.used
;
3640 /* Get the widget pointer at IDX from id_to_widget. */
3643 xg_get_widget_from_map (ptrdiff_t idx
)
3645 if (idx
< id_to_widget
.max_size
&& id_to_widget
.widgets
[idx
] != 0)
3646 return id_to_widget
.widgets
[idx
];
3652 update_theme_scrollbar_width (void)
3655 GtkAdjustment
*vadj
;
3662 vadj
= gtk_adjustment_new (XG_SB_MIN
, XG_SB_MIN
, XG_SB_MAX
, 0.1, 0.1, 0.1);
3663 wscroll
= gtk_scrollbar_new (GTK_ORIENTATION_VERTICAL
, GTK_ADJUSTMENT (vadj
));
3664 g_object_ref_sink (G_OBJECT (wscroll
));
3665 gtk_widget_style_get (wscroll
, "slider-width", &w
, "trough-border", &b
, NULL
);
3666 gtk_widget_destroy (wscroll
);
3667 g_object_unref (G_OBJECT (wscroll
));
3672 scroll_bar_width_for_theme
= w
;
3676 update_theme_scrollbar_height (void)
3679 GtkAdjustment
*hadj
;
3686 hadj
= gtk_adjustment_new (YG_SB_MIN
, YG_SB_MIN
, YG_SB_MAX
, 0.1, 0.1, 0.1);
3687 wscroll
= gtk_scrollbar_new (GTK_ORIENTATION_HORIZONTAL
, GTK_ADJUSTMENT (hadj
));
3688 g_object_ref_sink (G_OBJECT (wscroll
));
3689 gtk_widget_style_get (wscroll
, "slider-width", &w
, "trough-border", &b
, NULL
);
3690 gtk_widget_destroy (wscroll
);
3691 g_object_unref (G_OBJECT (wscroll
));
3694 scroll_bar_height_for_theme
= w
;
3698 xg_get_default_scrollbar_width (struct frame
*f
)
3700 return scroll_bar_width_for_theme
* xg_get_scale (f
);
3704 xg_get_default_scrollbar_height (struct frame
*f
)
3706 /* Apparently there's no default height for themes. */
3707 return scroll_bar_width_for_theme
* xg_get_scale (f
);
3710 /* Return the scrollbar id for X Window WID on display DPY.
3711 Return -1 if WID not in id_to_widget. */
3714 xg_get_scroll_id_for_window (Display
*dpy
, Window wid
)
3719 w
= xg_win_to_widget (dpy
, wid
);
3723 for (idx
= 0; idx
< id_to_widget
.max_size
; ++idx
)
3724 if (id_to_widget
.widgets
[idx
] == w
)
3731 /* Callback invoked when scroll bar WIDGET is destroyed.
3732 DATA is the index into id_to_widget for WIDGET.
3733 We free pointer to last scroll bar values here and remove the index. */
3736 xg_gtk_scroll_destroy (GtkWidget
*widget
, gpointer data
)
3738 intptr_t id
= (intptr_t) data
;
3739 xg_remove_widget_from_map (id
);
3743 xg_finish_scroll_bar_creation (struct frame
*f
,
3745 struct scroll_bar
*bar
,
3746 GCallback scroll_callback
,
3747 GCallback end_callback
,
3748 const char *scroll_bar_name
)
3750 GtkWidget
*webox
= gtk_event_box_new ();
3752 gtk_widget_set_name (wscroll
, scroll_bar_name
);
3754 gtk_range_set_update_policy (GTK_RANGE (wscroll
), GTK_UPDATE_CONTINUOUS
);
3756 g_object_set_data (G_OBJECT (wscroll
), XG_FRAME_DATA
, (gpointer
)f
);
3758 ptrdiff_t scroll_id
= xg_store_widget_in_map (wscroll
);
3760 g_signal_connect (G_OBJECT (wscroll
),
3762 G_CALLBACK (xg_gtk_scroll_destroy
),
3763 (gpointer
) scroll_id
);
3764 g_signal_connect (G_OBJECT (wscroll
),
3768 g_signal_connect (G_OBJECT (wscroll
),
3769 "button-release-event",
3773 /* The scroll bar widget does not draw on a window of its own. Instead
3774 it draws on the parent window, in this case the edit widget. So
3775 whenever the edit widget is cleared, the scroll bar needs to redraw
3776 also, which causes flicker. Put an event box between the edit widget
3777 and the scroll bar, so the scroll bar instead draws itself on the
3778 event box window. */
3779 gtk_fixed_put (GTK_FIXED (f
->output_data
.x
->edit_widget
), webox
, -1, -1);
3780 gtk_container_add (GTK_CONTAINER (webox
), wscroll
);
3782 xg_set_widget_bg (f
, webox
, FRAME_BACKGROUND_PIXEL (f
));
3784 /* N.B. The event box doesn't become a real X11 window until we ask
3785 for its XID via GTK_WIDGET_TO_X_WIN. If the event box is not a
3786 real X window, it and its scroll-bar child try to draw on the
3787 Emacs main window, which we draw over using Xlib. */
3788 gtk_widget_realize (webox
);
3789 GTK_WIDGET_TO_X_WIN (webox
);
3791 /* Set the cursor to an arrow. */
3792 xg_set_cursor (webox
, FRAME_DISPLAY_INFO (f
)->xg_cursor
);
3794 bar
->x_window
= scroll_id
;
3797 /* Create a scroll bar widget for frame F. Store the scroll bar
3799 SCROLL_CALLBACK is the callback to invoke when the value of the
3801 END_CALLBACK is the callback to invoke when scrolling ends.
3802 SCROLL_BAR_NAME is the name we use for the scroll bar. Can be used
3803 to set resources for the widget. */
3806 xg_create_scroll_bar (struct frame
*f
,
3807 struct scroll_bar
*bar
,
3808 GCallback scroll_callback
,
3809 GCallback end_callback
,
3810 const char *scroll_bar_name
)
3814 GtkAdjustment
*vadj
;
3819 /* Page, step increment values are not so important here, they
3820 will be corrected in x_set_toolkit_scroll_bar_thumb. */
3821 vadj
= gtk_adjustment_new (XG_SB_MIN
, XG_SB_MIN
, XG_SB_MAX
,
3824 wscroll
= gtk_scrollbar_new (GTK_ORIENTATION_VERTICAL
, GTK_ADJUSTMENT (vadj
));
3826 xg_finish_scroll_bar_creation (f
, wscroll
, bar
, scroll_callback
,
3827 end_callback
, scroll_bar_name
);
3828 bar
->horizontal
= 0;
3831 /* Create a horizontal scroll bar widget for frame F. Store the scroll
3832 bar in BAR. SCROLL_CALLBACK is the callback to invoke when the value
3833 of the bar changes. END_CALLBACK is the callback to invoke when
3834 scrolling ends. SCROLL_BAR_NAME is the name we use for the scroll
3835 bar. Can be used to set resources for the widget. */
3838 xg_create_horizontal_scroll_bar (struct frame
*f
,
3839 struct scroll_bar
*bar
,
3840 GCallback scroll_callback
,
3841 GCallback end_callback
,
3842 const char *scroll_bar_name
)
3846 GtkAdjustment
*hadj
;
3851 /* Page, step increment values are not so important here, they
3852 will be corrected in x_set_toolkit_scroll_bar_thumb. */
3853 hadj
= gtk_adjustment_new (YG_SB_MIN
, YG_SB_MIN
, YG_SB_MAX
,
3856 wscroll
= gtk_scrollbar_new (GTK_ORIENTATION_HORIZONTAL
, GTK_ADJUSTMENT (hadj
));
3858 xg_finish_scroll_bar_creation (f
, wscroll
, bar
, scroll_callback
,
3859 end_callback
, scroll_bar_name
);
3860 bar
->horizontal
= 1;
3863 /* Remove the scroll bar represented by SCROLLBAR_ID from the frame F. */
3866 xg_remove_scroll_bar (struct frame
*f
, ptrdiff_t scrollbar_id
)
3868 GtkWidget
*w
= xg_get_widget_from_map (scrollbar_id
);
3871 GtkWidget
*wparent
= gtk_widget_get_parent (w
);
3872 gtk_widget_destroy (w
);
3873 gtk_widget_destroy (wparent
);
3874 SET_FRAME_GARBAGED (f
);
3878 /* Update the position of the vertical scroll bar represented by SCROLLBAR_ID
3880 TOP/LEFT are the new pixel positions where the bar shall appear.
3881 WIDTH, HEIGHT is the size in pixels the bar shall have. */
3884 xg_update_scrollbar_pos (struct frame
*f
,
3885 ptrdiff_t scrollbar_id
,
3891 GtkWidget
*wscroll
= xg_get_widget_from_map (scrollbar_id
);
3894 GtkWidget
*wfixed
= f
->output_data
.x
->edit_widget
;
3895 GtkWidget
*wparent
= gtk_widget_get_parent (wscroll
);
3897 int scale
= xg_get_scale (f
);
3902 left
-= (scale
- 1) * ((width
/ scale
) >> 1);
3904 /* Clear out old position. */
3905 int oldx
= -1, oldy
= -1, oldw
, oldh
;
3906 if (gtk_widget_get_parent (wparent
) == wfixed
)
3908 gtk_container_child_get (GTK_CONTAINER (wfixed
), wparent
,
3909 "x", &oldx
, "y", &oldy
, NULL
);
3910 gtk_widget_get_size_request (wscroll
, &oldw
, &oldh
);
3913 /* Move and resize to new values. */
3914 gtk_fixed_move (GTK_FIXED (wfixed
), wparent
, left
, top
);
3915 gtk_widget_style_get (wscroll
, "min-slider-length", &msl
, NULL
);
3916 bool hidden
= height
< msl
;
3919 /* No room. Hide scroll bar as some themes output a warning if
3920 the height is less than the min size. */
3921 gtk_widget_hide (wparent
);
3922 gtk_widget_hide (wscroll
);
3926 gtk_widget_show_all (wparent
);
3927 gtk_widget_set_size_request (wscroll
, width
, height
);
3929 if (oldx
!= -1 && oldw
> 0 && oldh
> 0)
3931 /* Clear under old scroll bar position. */
3932 oldw
+= (scale
- 1) * oldw
;
3933 oldx
-= (scale
- 1) * oldw
;
3934 x_clear_area (f
, oldx
, oldy
, oldw
, oldh
);
3939 GtkWidget
*scrollbar
= xg_get_widget_from_map (scrollbar_id
);
3940 GtkWidget
*webox
= gtk_widget_get_parent (scrollbar
);
3942 /* Don't obscure any child frames. */
3943 XLowerWindow (FRAME_X_DISPLAY (f
), GTK_WIDGET_TO_X_WIN (webox
));
3946 /* GTK does not redraw until the main loop is entered again, but
3947 if there are no X events pending we will not enter it. So we sync
3948 here to get some events. */
3951 SET_FRAME_GARBAGED (f
);
3952 cancel_mouse_face (f
);
3957 /* Update the position of the horizontal scroll bar represented by SCROLLBAR_ID
3959 TOP/LEFT are the new pixel positions where the bar shall appear.
3960 WIDTH, HEIGHT is the size in pixels the bar shall have. */
3963 xg_update_horizontal_scrollbar_pos (struct frame
*f
,
3964 ptrdiff_t scrollbar_id
,
3971 GtkWidget
*wscroll
= xg_get_widget_from_map (scrollbar_id
);
3975 GtkWidget
*wfixed
= f
->output_data
.x
->edit_widget
;
3976 GtkWidget
*wparent
= gtk_widget_get_parent (wscroll
);
3979 /* Clear out old position. */
3980 int oldx
= -1, oldy
= -1, oldw
, oldh
;
3981 if (gtk_widget_get_parent (wparent
) == wfixed
)
3983 gtk_container_child_get (GTK_CONTAINER (wfixed
), wparent
,
3984 "x", &oldx
, "y", &oldy
, NULL
);
3985 gtk_widget_get_size_request (wscroll
, &oldw
, &oldh
);
3988 /* Move and resize to new values. */
3989 gtk_fixed_move (GTK_FIXED (wfixed
), wparent
, left
, top
);
3990 gtk_widget_style_get (wscroll
, "min-slider-length", &msl
, NULL
);
3993 /* No room. Hide scroll bar as some themes output a warning if
3994 the width is less than the min size. */
3995 gtk_widget_hide (wparent
);
3996 gtk_widget_hide (wscroll
);
4000 gtk_widget_show_all (wparent
);
4001 gtk_widget_set_size_request (wscroll
, width
, height
);
4003 if (oldx
!= -1 && oldw
> 0 && oldh
> 0)
4004 /* Clear under old scroll bar position. */
4005 x_clear_area (f
, oldx
, oldy
, oldw
, oldh
);
4007 /* GTK does not redraw until the main loop is entered again, but
4008 if there are no X events pending we will not enter it. So we sync
4009 here to get some events. */
4012 GtkWidget
*scrollbar
=
4013 xg_get_widget_from_map (scrollbar_id
);
4014 GtkWidget
*webox
= gtk_widget_get_parent (scrollbar
);
4016 /* Don't obscure any child frames. */
4017 XLowerWindow (FRAME_X_DISPLAY (f
), GTK_WIDGET_TO_X_WIN (webox
));
4021 SET_FRAME_GARBAGED (f
);
4022 cancel_mouse_face (f
);
4027 /* Get the current value of the range, truncated to an integer. */
4030 int_gtk_range_get_value (GtkRange
*range
)
4032 return gtk_range_get_value (range
);
4036 /* Set the thumb size and position of scroll bar BAR. We are currently
4037 displaying PORTION out of a whole WHOLE, and our position POSITION. */
4040 xg_set_toolkit_scroll_bar_thumb (struct scroll_bar
*bar
,
4045 GtkWidget
*wscroll
= xg_get_widget_from_map (bar
->x_window
);
4047 struct frame
*f
= XFRAME (WINDOW_FRAME (XWINDOW (bar
->window
)));
4049 if (wscroll
&& bar
->dragging
== -1)
4059 adj
= gtk_range_get_adjustment (GTK_RANGE (wscroll
));
4061 if (scroll_bar_adjust_thumb_portion_p
)
4063 /* We do the same as for MOTIF in xterm.c, use 30 chars per
4064 line rather than the real portion value. This makes the
4065 thumb less likely to resize and that looks better. */
4066 portion
= WINDOW_TOTAL_LINES (XWINDOW (bar
->window
)) * 30;
4068 /* When the thumb is at the bottom, position == whole.
4069 So we need to increase `whole' to make space for the thumb. */
4077 top
= (gdouble
) position
/ whole
;
4078 shown
= (gdouble
) portion
/ whole
;
4081 size
= clip_to_bounds (1, shown
* XG_SB_RANGE
, XG_SB_RANGE
);
4082 value
= clip_to_bounds (XG_SB_MIN
, top
* XG_SB_RANGE
, XG_SB_MAX
- size
);
4084 /* Assume all lines are of equal size. */
4085 new_step
= size
/ max (1, FRAME_LINES (f
));
4087 old_size
= gtk_adjustment_get_page_size (adj
);
4088 if (old_size
!= size
)
4090 int old_step
= gtk_adjustment_get_step_increment (adj
);
4091 if (old_step
!= new_step
)
4093 gtk_adjustment_set_page_size (adj
, size
);
4094 gtk_adjustment_set_step_increment (adj
, new_step
);
4095 /* Assume a page increment is about 95% of the page size */
4096 gtk_adjustment_set_page_increment (adj
, size
- size
/ 20);
4101 if (changed
|| int_gtk_range_get_value (GTK_RANGE (wscroll
)) != value
)
4105 /* gtk_range_set_value invokes the callback. Set
4106 ignore_gtk_scrollbar to make the callback do nothing */
4107 xg_ignore_gtk_scrollbar
= 1;
4109 if (int_gtk_range_get_value (GTK_RANGE (wscroll
)) != value
)
4110 gtk_range_set_value (GTK_RANGE (wscroll
), (gdouble
)value
);
4111 #if ! GTK_CHECK_VERSION (3, 18, 0)
4113 gtk_adjustment_changed (adj
);
4116 xg_ignore_gtk_scrollbar
= 0;
4123 /* Set the thumb size and position of horizontal scroll bar BAR. We are
4124 currently displaying PORTION out of a whole WHOLE, and our position
4127 xg_set_toolkit_horizontal_scroll_bar_thumb (struct scroll_bar
*bar
,
4132 GtkWidget
*wscroll
= xg_get_widget_from_map (bar
->x_window
);
4134 if (wscroll
&& bar
->dragging
== -1)
4138 int upper
= max (whole
- 1, 0);
4139 int pagesize
= min (upper
, max (portion
, 0));
4140 int value
= max (0, min (position
, upper
- pagesize
));
4141 /* These should be set to something more <portion, whole>
4143 int page_increment
= 4;
4144 int step_increment
= 1;
4147 adj
= gtk_range_get_adjustment (GTK_RANGE (wscroll
));
4148 gtk_adjustment_configure (adj
, (gdouble
) value
, (gdouble
) lower
,
4149 (gdouble
) upper
, (gdouble
) step_increment
,
4150 (gdouble
) page_increment
, (gdouble
) pagesize
);
4151 #if ! GTK_CHECK_VERSION (3, 18, 0)
4152 gtk_adjustment_changed (adj
);
4158 /* Return true if EVENT is for a scroll bar in frame F.
4159 When the same X window is used for several Gtk+ widgets, we cannot
4160 say for sure based on the X window alone if an event is for the
4161 frame. This function does additional checks. */
4164 xg_event_is_for_scrollbar (struct frame
*f
, const XEvent
*event
)
4168 if (f
&& event
->type
== ButtonPress
&& event
->xbutton
.button
< 4)
4170 /* Check if press occurred outside the edit widget. */
4171 GdkDisplay
*gdpy
= gdk_x11_lookup_xdisplay (FRAME_X_DISPLAY (f
));
4174 #if GTK_CHECK_VERSION (3, 20, 0)
4176 = gdk_seat_get_pointer (gdk_display_get_default_seat (gdpy
));
4178 GdkDevice
*gdev
= gdk_device_manager_get_client_pointer
4179 (gdk_display_get_device_manager (gdpy
));
4181 gwin
= gdk_device_get_window_at_position (gdev
, NULL
, NULL
);
4183 gwin
= gdk_display_get_window_at_pointer (gdpy
, NULL
, NULL
);
4185 retval
= gwin
!= gtk_widget_get_window (f
->output_data
.x
->edit_widget
);
4188 && ((event
->type
== ButtonRelease
&& event
->xbutton
.button
< 4)
4189 || event
->type
== MotionNotify
))
4191 /* If we are releasing or moving the scroll bar, it has the grab. */
4192 GtkWidget
*w
= gtk_grab_get_current ();
4193 retval
= w
!= 0 && GTK_IS_SCROLLBAR (w
);
4200 /***********************************************************************
4202 ***********************************************************************/
4204 static GtkPrintSettings
*print_settings
= NULL
;
4205 static GtkPageSetup
*page_setup
= NULL
;
4208 xg_page_setup_dialog (void)
4210 GtkPageSetup
*new_page_setup
= NULL
;
4212 if (print_settings
== NULL
)
4213 print_settings
= gtk_print_settings_new ();
4214 new_page_setup
= gtk_print_run_page_setup_dialog (NULL
, page_setup
,
4217 g_object_unref (page_setup
);
4218 page_setup
= new_page_setup
;
4222 xg_get_page_setup (void)
4224 Lisp_Object orientation_symbol
;
4226 if (page_setup
== NULL
)
4227 page_setup
= gtk_page_setup_new ();
4229 switch (gtk_page_setup_get_orientation (page_setup
))
4231 case GTK_PAGE_ORIENTATION_PORTRAIT
:
4232 orientation_symbol
= Qportrait
;
4234 case GTK_PAGE_ORIENTATION_LANDSCAPE
:
4235 orientation_symbol
= Qlandscape
;
4237 case GTK_PAGE_ORIENTATION_REVERSE_PORTRAIT
:
4238 orientation_symbol
= Qreverse_portrait
;
4240 case GTK_PAGE_ORIENTATION_REVERSE_LANDSCAPE
:
4241 orientation_symbol
= Qreverse_landscape
;
4247 return listn (CONSTYPE_HEAP
, 7,
4248 Fcons (Qorientation
, orientation_symbol
),
4249 #define MAKE_FLOAT_PAGE_SETUP(f) make_float (f (page_setup, GTK_UNIT_POINTS))
4251 MAKE_FLOAT_PAGE_SETUP (gtk_page_setup_get_page_width
)),
4253 MAKE_FLOAT_PAGE_SETUP (gtk_page_setup_get_page_height
)),
4254 Fcons (Qleft_margin
,
4255 MAKE_FLOAT_PAGE_SETUP (gtk_page_setup_get_left_margin
)),
4256 Fcons (Qright_margin
,
4257 MAKE_FLOAT_PAGE_SETUP (gtk_page_setup_get_right_margin
)),
4259 MAKE_FLOAT_PAGE_SETUP (gtk_page_setup_get_top_margin
)),
4260 Fcons (Qbottom_margin
,
4261 MAKE_FLOAT_PAGE_SETUP (gtk_page_setup_get_bottom_margin
))
4262 #undef MAKE_FLOAT_PAGE_SETUP
4267 draw_page (GtkPrintOperation
*operation
, GtkPrintContext
*context
,
4268 gint page_nr
, gpointer user_data
)
4270 Lisp_Object frames
= *((Lisp_Object
*) user_data
);
4271 struct frame
*f
= XFRAME (Fnth (make_number (page_nr
), frames
));
4272 cairo_t
*cr
= gtk_print_context_get_cairo_context (context
);
4274 x_cr_draw_frame (cr
, f
);
4278 xg_print_frames_dialog (Lisp_Object frames
)
4280 GtkPrintOperation
*print
;
4281 GtkPrintOperationResult res
;
4283 print
= gtk_print_operation_new ();
4284 if (print_settings
!= NULL
)
4285 gtk_print_operation_set_print_settings (print
, print_settings
);
4286 if (page_setup
!= NULL
)
4287 gtk_print_operation_set_default_page_setup (print
, page_setup
);
4288 gtk_print_operation_set_n_pages (print
, XINT (Flength (frames
)));
4289 g_signal_connect (print
, "draw-page", G_CALLBACK (draw_page
), &frames
);
4290 res
= gtk_print_operation_run (print
, GTK_PRINT_OPERATION_ACTION_PRINT_DIALOG
,
4292 if (res
== GTK_PRINT_OPERATION_RESULT_APPLY
)
4294 if (print_settings
!= NULL
)
4295 g_object_unref (print_settings
);
4297 g_object_ref (gtk_print_operation_get_print_settings (print
));
4299 g_object_unref (print
);
4302 #endif /* USE_CAIRO */
4306 /***********************************************************************
4308 ***********************************************************************/
4309 /* The key for the data we put in the GtkImage widgets. The data is
4310 the image used by Emacs. We use this to see if we need to update
4311 the GtkImage with a new image. */
4312 #define XG_TOOL_BAR_IMAGE_DATA "emacs-tool-bar-image"
4314 /* The key for storing the latest modifiers so the activate callback can
4316 #define XG_TOOL_BAR_LAST_MODIFIER "emacs-tool-bar-modifier"
4318 /* The key for the data we put in the GtkImage widgets. The data is
4319 the stock name used by Emacs. We use this to see if we need to update
4320 the GtkImage with a new image. */
4321 #define XG_TOOL_BAR_STOCK_NAME "emacs-tool-bar-stock-name"
4323 /* As above, but this is used for named theme widgets, as opposed to
4325 #define XG_TOOL_BAR_ICON_NAME "emacs-tool-bar-icon-name"
4327 /* Callback function invoked when a tool bar item is pressed.
4328 W is the button widget in the tool bar that got pressed,
4329 CLIENT_DATA is an integer that is the index of the button in the
4330 tool bar. 0 is the first button. */
4333 xg_tool_bar_button_cb (GtkWidget
*widget
,
4334 GdkEventButton
*event
,
4337 intptr_t state
= event
->state
;
4338 gpointer ptr
= (gpointer
) state
;
4339 g_object_set_data (G_OBJECT (widget
), XG_TOOL_BAR_LAST_MODIFIER
, ptr
);
4344 /* Callback function invoked when a tool bar item is pressed.
4345 W is the button widget in the tool bar that got pressed,
4346 CLIENT_DATA is an integer that is the index of the button in the
4347 tool bar. 0 is the first button. */
4350 xg_tool_bar_callback (GtkWidget
*w
, gpointer client_data
)
4352 intptr_t idx
= (intptr_t) client_data
;
4353 gpointer gmod
= g_object_get_data (G_OBJECT (w
), XG_TOOL_BAR_LAST_MODIFIER
);
4354 intptr_t mod
= (intptr_t) gmod
;
4356 struct frame
*f
= g_object_get_data (G_OBJECT (w
), XG_FRAME_DATA
);
4357 Lisp_Object key
, frame
;
4358 struct input_event event
;
4361 if (! f
|| ! f
->n_tool_bar_items
|| NILP (f
->tool_bar_items
))
4364 idx
*= TOOL_BAR_ITEM_NSLOTS
;
4366 key
= AREF (f
->tool_bar_items
, idx
+ TOOL_BAR_ITEM_KEY
);
4367 XSETFRAME (frame
, f
);
4369 /* We generate two events here. The first one is to set the prefix
4370 to `(tool_bar)', see keyboard.c. */
4371 event
.kind
= TOOL_BAR_EVENT
;
4372 event
.frame_or_window
= frame
;
4374 kbd_buffer_store_event (&event
);
4376 event
.kind
= TOOL_BAR_EVENT
;
4377 event
.frame_or_window
= frame
;
4379 /* Convert between the modifier bits GDK uses and the modifier bits
4380 Emacs uses. This assumes GDK and X masks are the same, which they are when
4382 event
.modifiers
= x_x_to_emacs_modifiers (FRAME_DISPLAY_INFO (f
), mod
);
4383 kbd_buffer_store_event (&event
);
4385 /* Return focus to the frame after we have clicked on a detached
4387 x_focus_frame (f
, false);
4391 xg_get_tool_bar_widgets (GtkWidget
*vb
, GtkWidget
**wimage
)
4393 GList
*clist
= gtk_container_get_children (GTK_CONTAINER (vb
));
4394 GtkWidget
*c1
= clist
->data
;
4395 GtkWidget
*c2
= clist
->next
? clist
->next
->data
: NULL
;
4397 *wimage
= GTK_IS_IMAGE (c1
) ? c1
: c2
;
4398 g_list_free (clist
);
4399 return GTK_IS_LABEL (c1
) ? c1
: c2
;
4403 /* This callback is called when the mouse enters or leaves a tool bar item.
4404 It is used for displaying and hiding the help text.
4405 W is the tool bar item, a button.
4406 EVENT is either an enter event or leave event.
4407 CLIENT_DATA is an integer that is the index of the button in the
4408 tool bar. 0 is the first button.
4410 Returns FALSE to tell GTK to keep processing this event. */
4413 xg_tool_bar_help_callback (GtkWidget
*w
,
4414 GdkEventCrossing
*event
,
4415 gpointer client_data
)
4417 intptr_t idx
= (intptr_t) client_data
;
4418 struct frame
*f
= g_object_get_data (G_OBJECT (w
), XG_FRAME_DATA
);
4419 Lisp_Object help
, frame
;
4421 if (! f
|| ! f
->n_tool_bar_items
|| NILP (f
->tool_bar_items
))
4424 if (event
->type
== GDK_ENTER_NOTIFY
)
4426 idx
*= TOOL_BAR_ITEM_NSLOTS
;
4427 help
= AREF (f
->tool_bar_items
, idx
+ TOOL_BAR_ITEM_HELP
);
4430 help
= AREF (f
->tool_bar_items
, idx
+ TOOL_BAR_ITEM_CAPTION
);
4435 XSETFRAME (frame
, f
);
4436 kbd_buffer_store_help_event (frame
, help
);
4442 /* This callback is called when a tool bar item shall be redrawn.
4443 It modifies the expose event so that the GtkImage widget redraws the
4444 whole image. This to overcome a bug that makes GtkImage draw the image
4445 in the wrong place when it tries to redraw just a part of the image.
4446 W is the GtkImage to be redrawn.
4447 EVENT is the expose event for W.
4448 CLIENT_DATA is unused.
4450 Returns FALSE to tell GTK to keep processing this event. */
4454 xg_tool_bar_item_expose_callback (GtkWidget
*w
,
4455 GdkEventExpose
*event
,
4456 gpointer client_data
)
4460 gdk_drawable_get_size (event
->window
, &width
, &height
);
4461 event
->area
.x
-= width
> event
->area
.width
? width
-event
->area
.width
: 0;
4462 event
->area
.y
-= height
> event
->area
.height
? height
-event
->area
.height
: 0;
4464 event
->area
.x
= max (0, event
->area
.x
);
4465 event
->area
.y
= max (0, event
->area
.y
);
4467 event
->area
.width
= max (width
, event
->area
.width
);
4468 event
->area
.height
= max (height
, event
->area
.height
);
4474 #ifdef HAVE_GTK_ORIENTABLE_SET_ORIENTATION
4475 #define toolbar_set_orientation(w, o) \
4476 gtk_orientable_set_orientation (GTK_ORIENTABLE (w), o)
4478 #define toolbar_set_orientation(w, o) \
4479 gtk_toolbar_set_orientation (GTK_TOOLBAR (w), o)
4482 /* Attach a tool bar to frame F. */
4485 xg_pack_tool_bar (struct frame
*f
, Lisp_Object pos
)
4487 struct x_output
*x
= f
->output_data
.x
;
4488 bool into_hbox
= EQ (pos
, Qleft
) || EQ (pos
, Qright
);
4489 GtkWidget
*top_widget
= x
->toolbar_widget
;
4491 toolbar_set_orientation (x
->toolbar_widget
,
4493 ? GTK_ORIENTATION_VERTICAL
4494 : GTK_ORIENTATION_HORIZONTAL
);
4498 gtk_box_pack_start (GTK_BOX (x
->hbox_widget
), top_widget
,
4501 if (EQ (pos
, Qleft
))
4502 gtk_box_reorder_child (GTK_BOX (x
->hbox_widget
),
4505 x
->toolbar_in_hbox
= true;
4509 bool vbox_pos
= x
->menubar_widget
!= 0;
4510 gtk_box_pack_start (GTK_BOX (x
->vbox_widget
), top_widget
,
4514 gtk_box_reorder_child (GTK_BOX (x
->vbox_widget
),
4517 x
->toolbar_in_hbox
= false;
4519 x
->toolbar_is_packed
= true;
4522 static bool xg_update_tool_bar_sizes (struct frame
*f
);
4525 tb_size_cb (GtkWidget
*widget
,
4526 GdkRectangle
*allocation
,
4529 /* When tool bar is created it has one preferred size. But when size is
4530 allocated between widgets, it may get another. So we must update
4531 size hints if tool bar size changes. Seen on Fedora 18 at least. */
4532 struct frame
*f
= user_data
;
4534 if (xg_update_tool_bar_sizes (f
))
4536 frame_size_history_add (f
, Qtb_size_cb
, 0, 0, Qnil
);
4537 adjust_frame_size (f
, -1, -1, 5, 0, Qtool_bar_lines
);
4541 /* Create a tool bar for frame F. */
4544 xg_create_tool_bar (struct frame
*f
)
4546 struct x_output
*x
= f
->output_data
.x
;
4547 #if GTK_CHECK_VERSION (3, 3, 6)
4548 GtkStyleContext
*gsty
;
4550 struct xg_frame_tb_info
*tbinfo
4551 = g_object_get_data (G_OBJECT (FRAME_GTK_OUTER_WIDGET (f
)),
4555 tbinfo
= xmalloc (sizeof (*tbinfo
));
4556 tbinfo
->last_tool_bar
= Qnil
;
4557 tbinfo
->style
= Qnil
;
4558 tbinfo
->hmargin
= tbinfo
->vmargin
= 0;
4559 tbinfo
->dir
= GTK_TEXT_DIR_NONE
;
4560 tbinfo
->n_last_items
= 0;
4561 g_object_set_data (G_OBJECT (FRAME_GTK_OUTER_WIDGET (f
)),
4566 x
->toolbar_widget
= gtk_toolbar_new ();
4568 gtk_widget_set_name (x
->toolbar_widget
, "emacs-toolbar");
4570 gtk_toolbar_set_style (GTK_TOOLBAR (x
->toolbar_widget
), GTK_TOOLBAR_ICONS
);
4571 toolbar_set_orientation (x
->toolbar_widget
, GTK_ORIENTATION_HORIZONTAL
);
4572 g_signal_connect (x
->toolbar_widget
, "size-allocate",
4573 G_CALLBACK (tb_size_cb
), f
);
4574 #if GTK_CHECK_VERSION (3, 3, 6)
4575 gsty
= gtk_widget_get_style_context (x
->toolbar_widget
);
4576 gtk_style_context_add_class (gsty
, "primary-toolbar");
4581 #define PROP(IDX) AREF (f->tool_bar_items, i * TOOL_BAR_ITEM_NSLOTS + (IDX))
4583 /* Find the right-to-left image named by RTL in the tool bar images for F.
4584 Returns IMAGE if RTL is not found. */
4587 find_rtl_image (struct frame
*f
, Lisp_Object image
, Lisp_Object rtl
)
4590 Lisp_Object file
, rtl_name
;
4592 rtl_name
= Ffile_name_nondirectory (rtl
);
4594 for (i
= 0; i
< f
->n_tool_bar_items
; ++i
)
4596 Lisp_Object rtl_image
= PROP (TOOL_BAR_ITEM_IMAGES
);
4597 if (!NILP (file
= file_for_image (rtl_image
)))
4599 file
= call1 (intern ("file-name-sans-extension"),
4600 Ffile_name_nondirectory (file
));
4601 if (! NILP (Fequal (file
, rtl_name
)))
4612 static GtkToolItem
*
4613 xg_make_tool_item (struct frame
*f
,
4615 GtkWidget
**wbutton
,
4617 int i
, bool horiz
, bool text_image
)
4619 GtkToolItem
*ti
= gtk_tool_item_new ();
4620 GtkWidget
*vb
= gtk_box_new (horiz
4621 ? GTK_ORIENTATION_HORIZONTAL
4622 : GTK_ORIENTATION_VERTICAL
,
4624 GtkWidget
*wb
= gtk_button_new ();
4625 /* The eventbox is here so we can have tooltips on disabled items. */
4626 GtkWidget
*weventbox
= gtk_event_box_new ();
4627 #if GTK_CHECK_VERSION (3, 3, 6)
4628 GtkCssProvider
*css_prov
= gtk_css_provider_new ();
4629 GtkStyleContext
*gsty
;
4631 gtk_css_provider_load_from_data (css_prov
,
4633 " background-color: transparent;"
4637 gsty
= gtk_widget_get_style_context (weventbox
);
4638 gtk_style_context_add_provider (gsty
,
4639 GTK_STYLE_PROVIDER (css_prov
),
4640 GTK_STYLE_PROVIDER_PRIORITY_USER
);
4641 g_object_unref (css_prov
);
4644 gtk_box_set_homogeneous (GTK_BOX (vb
), FALSE
);
4646 if (wimage
&& !text_image
)
4647 gtk_box_pack_start (GTK_BOX (vb
), wimage
, TRUE
, TRUE
, 0);
4649 gtk_box_pack_start (GTK_BOX (vb
), gtk_label_new (label
), TRUE
, TRUE
, 0);
4650 if (wimage
&& text_image
)
4651 gtk_box_pack_start (GTK_BOX (vb
), wimage
, TRUE
, TRUE
, 0);
4653 #if GTK_CHECK_VERSION (3, 20, 0)
4654 gtk_widget_set_focus_on_click (wb
, FALSE
);
4656 gtk_button_set_focus_on_click (GTK_BUTTON (wb
), FALSE
);
4658 gtk_button_set_relief (GTK_BUTTON (wb
), GTK_RELIEF_NONE
);
4659 gtk_container_add (GTK_CONTAINER (wb
), vb
);
4660 gtk_container_add (GTK_CONTAINER (weventbox
), wb
);
4661 gtk_container_add (GTK_CONTAINER (ti
), weventbox
);
4663 if (wimage
|| label
)
4666 gpointer gi
= (gpointer
) ii
;
4668 g_signal_connect (G_OBJECT (wb
), "clicked",
4669 G_CALLBACK (xg_tool_bar_callback
),
4672 g_object_set_data (G_OBJECT (weventbox
), XG_FRAME_DATA
, (gpointer
)f
);
4675 /* Catch expose events to overcome an annoying redraw bug, see
4676 comment for xg_tool_bar_item_expose_callback. */
4677 g_signal_connect (G_OBJECT (ti
),
4679 G_CALLBACK (xg_tool_bar_item_expose_callback
),
4682 gtk_tool_item_set_homogeneous (ti
, FALSE
);
4684 /* Callback to save modifier mask (Shift/Control, etc). GTK makes
4685 no distinction based on modifiers in the activate callback,
4686 so we have to do it ourselves. */
4687 g_signal_connect (wb
, "button-release-event",
4688 G_CALLBACK (xg_tool_bar_button_cb
),
4691 g_object_set_data (G_OBJECT (wb
), XG_FRAME_DATA
, (gpointer
)f
);
4693 /* Use enter/leave notify to show help. We use the events
4694 rather than the GtkButton specific signals "enter" and
4695 "leave", so we can have only one callback. The event
4696 will tell us what kind of event it is. */
4697 g_signal_connect (G_OBJECT (weventbox
),
4698 "enter-notify-event",
4699 G_CALLBACK (xg_tool_bar_help_callback
),
4701 g_signal_connect (G_OBJECT (weventbox
),
4702 "leave-notify-event",
4703 G_CALLBACK (xg_tool_bar_help_callback
),
4707 if (wbutton
) *wbutton
= wb
;
4713 is_box_type (GtkWidget
*vb
, bool is_horizontal
)
4717 if (GTK_IS_BOX (vb
))
4719 GtkOrientation ori
= gtk_orientable_get_orientation (GTK_ORIENTABLE (vb
));
4720 ret
= (ori
== GTK_ORIENTATION_HORIZONTAL
&& is_horizontal
)
4721 || (ori
== GTK_ORIENTATION_VERTICAL
&& ! is_horizontal
);
4725 return is_horizontal
? GTK_IS_VBOX (vb
) : GTK_IS_HBOX (vb
);
4731 xg_tool_item_stale_p (GtkWidget
*wbutton
, const char *stock_name
,
4732 const char *icon_name
, const struct image
*img
,
4733 const char *label
, bool horiz
)
4737 GtkWidget
*vb
= XG_BIN_CHILD (wbutton
);
4738 GtkWidget
*wlbl
= xg_get_tool_bar_widgets (vb
, &wimage
);
4740 /* Check if the tool icon matches. */
4741 if (stock_name
&& wimage
)
4743 old
= g_object_get_data (G_OBJECT (wimage
),
4744 XG_TOOL_BAR_STOCK_NAME
);
4745 if (!old
|| strcmp (old
, stock_name
))
4748 else if (icon_name
&& wimage
)
4750 old
= g_object_get_data (G_OBJECT (wimage
),
4751 XG_TOOL_BAR_ICON_NAME
);
4752 if (!old
|| strcmp (old
, icon_name
))
4757 gpointer gold_img
= g_object_get_data (G_OBJECT (wimage
),
4758 XG_TOOL_BAR_IMAGE_DATA
);
4759 Pixmap old_img
= (Pixmap
) gold_img
;
4760 if (old_img
!= img
->pixmap
)
4764 /* Check button configuration and label. */
4765 if (is_box_type (vb
, horiz
)
4766 || (label
? (wlbl
== NULL
) : (wlbl
!= NULL
)))
4769 /* Ensure label is correct. */
4771 gtk_label_set_text (GTK_LABEL (wlbl
), label
);
4776 xg_update_tool_bar_sizes (struct frame
*f
)
4778 struct x_output
*x
= f
->output_data
.x
;
4780 int nl
= 0, nr
= 0, nt
= 0, nb
= 0;
4781 GtkWidget
*top_widget
= x
->toolbar_widget
;
4783 gtk_widget_get_preferred_size (GTK_WIDGET (top_widget
), NULL
, &req
);
4784 if (x
->toolbar_in_hbox
)
4787 gtk_container_child_get (GTK_CONTAINER (x
->hbox_widget
),
4789 "position", &pos
, NULL
);
4790 if (pos
== 0) nl
= req
.width
;
4791 else nr
= req
.width
;
4796 gtk_container_child_get (GTK_CONTAINER (x
->vbox_widget
),
4798 "position", &pos
, NULL
);
4799 if (pos
== 0 || (pos
== 1 && x
->menubar_widget
)) nt
= req
.height
;
4800 else nb
= req
.height
;
4803 if (nl
!= FRAME_TOOLBAR_LEFT_WIDTH (f
)
4804 || nr
!= FRAME_TOOLBAR_RIGHT_WIDTH (f
)
4805 || nt
!= FRAME_TOOLBAR_TOP_HEIGHT (f
)
4806 || nb
!= FRAME_TOOLBAR_BOTTOM_HEIGHT (f
))
4808 FRAME_TOOLBAR_RIGHT_WIDTH (f
) = FRAME_TOOLBAR_LEFT_WIDTH (f
)
4809 = FRAME_TOOLBAR_TOP_HEIGHT (f
) = FRAME_TOOLBAR_BOTTOM_HEIGHT (f
) = 0;
4810 FRAME_TOOLBAR_LEFT_WIDTH (f
) = nl
;
4811 FRAME_TOOLBAR_RIGHT_WIDTH (f
) = nr
;
4812 FRAME_TOOLBAR_TOP_HEIGHT (f
) = nt
;
4813 FRAME_TOOLBAR_BOTTOM_HEIGHT (f
) = nb
;
4822 find_icon_from_name (char *name
,
4823 GtkIconTheme
*icon_theme
,
4826 #if ! GTK_CHECK_VERSION (3, 10, 0)
4827 GtkStockItem stock_item
;
4830 if (name
[0] == 'n' && name
[1] == ':')
4832 *icon_name
= name
+ 2;
4835 if (! gtk_icon_theme_has_icon (icon_theme
, *icon_name
))
4839 #if ! GTK_CHECK_VERSION (3, 10, 0)
4840 else if (gtk_stock_lookup (name
, &stock_item
))
4843 else if (gtk_icon_theme_has_icon (icon_theme
, name
))
4858 /* Update the tool bar for frame F. Add new buttons and remove old. */
4861 update_frame_tool_bar (struct frame
*f
)
4864 struct x_output
*x
= f
->output_data
.x
;
4865 int hmargin
= 0, vmargin
= 0;
4866 GtkToolbar
*wtoolbar
;
4868 GtkTextDirection dir
;
4870 bool text_image
, horiz
;
4871 struct xg_frame_tb_info
*tbinfo
;
4873 GtkIconTheme
*icon_theme
;
4876 if (! FRAME_GTK_WIDGET (f
))
4881 if (RANGED_INTEGERP (1, Vtool_bar_button_margin
, INT_MAX
))
4883 hmargin
= XFASTINT (Vtool_bar_button_margin
);
4884 vmargin
= XFASTINT (Vtool_bar_button_margin
);
4886 else if (CONSP (Vtool_bar_button_margin
))
4888 if (RANGED_INTEGERP (1, XCAR (Vtool_bar_button_margin
), INT_MAX
))
4889 hmargin
= XFASTINT (XCAR (Vtool_bar_button_margin
));
4891 if (RANGED_INTEGERP (1, XCDR (Vtool_bar_button_margin
), INT_MAX
))
4892 vmargin
= XFASTINT (XCDR (Vtool_bar_button_margin
));
4895 /* The natural size (i.e. when GTK uses 0 as margin) looks best,
4896 so take DEFAULT_TOOL_BAR_BUTTON_MARGIN to mean "default for GTK",
4897 i.e. zero. This means that margins less than
4898 DEFAULT_TOOL_BAR_BUTTON_MARGIN has no effect. */
4899 hmargin
= max (0, hmargin
- DEFAULT_TOOL_BAR_BUTTON_MARGIN
);
4900 vmargin
= max (0, vmargin
- DEFAULT_TOOL_BAR_BUTTON_MARGIN
);
4902 if (! x
->toolbar_widget
)
4903 xg_create_tool_bar (f
);
4905 wtoolbar
= GTK_TOOLBAR (x
->toolbar_widget
);
4906 dir
= gtk_widget_get_direction (GTK_WIDGET (wtoolbar
));
4908 style
= Ftool_bar_get_system_style ();
4909 screen
= gtk_widget_get_screen (GTK_WIDGET (wtoolbar
));
4910 icon_theme
= gtk_icon_theme_get_for_screen (screen
);
4912 /* Are we up to date? */
4913 tbinfo
= g_object_get_data (G_OBJECT (FRAME_GTK_OUTER_WIDGET (f
)),
4916 if (! NILP (tbinfo
->last_tool_bar
) && ! NILP (f
->tool_bar_items
)
4917 && tbinfo
->n_last_items
== f
->n_tool_bar_items
4918 && tbinfo
->hmargin
== hmargin
&& tbinfo
->vmargin
== vmargin
4919 && tbinfo
->dir
== dir
4920 && ! NILP (Fequal (tbinfo
->style
, style
))
4921 && ! NILP (Fequal (tbinfo
->last_tool_bar
, f
->tool_bar_items
)))
4927 tbinfo
->last_tool_bar
= f
->tool_bar_items
;
4928 tbinfo
->n_last_items
= f
->n_tool_bar_items
;
4929 tbinfo
->style
= style
;
4930 tbinfo
->hmargin
= hmargin
;
4931 tbinfo
->vmargin
= vmargin
;
4934 text_image
= EQ (style
, Qtext_image_horiz
);
4935 horiz
= EQ (style
, Qboth_horiz
) || text_image
;
4937 for (i
= j
= 0; i
< f
->n_tool_bar_items
; ++i
)
4939 bool enabled_p
= !NILP (PROP (TOOL_BAR_ITEM_ENABLED_P
));
4940 bool selected_p
= !NILP (PROP (TOOL_BAR_ITEM_SELECTED_P
));
4944 struct image
*img
= NULL
;
4946 Lisp_Object stock
= Qnil
;
4947 char *stock_name
= NULL
;
4948 char *icon_name
= NULL
;
4950 GtkWidget
*wbutton
= NULL
;
4951 Lisp_Object specified_file
;
4952 bool vert_only
= ! NILP (PROP (TOOL_BAR_ITEM_VERT_ONLY
));
4954 = (EQ (style
, Qimage
) || (vert_only
&& horiz
)) ? NULL
4955 : STRINGP (PROP (TOOL_BAR_ITEM_LABEL
))
4956 ? SSDATA (PROP (TOOL_BAR_ITEM_LABEL
))
4959 ti
= gtk_toolbar_get_nth_item (GTK_TOOLBAR (wtoolbar
), j
);
4961 /* If this is a separator, use a gtk separator item. */
4962 if (EQ (PROP (TOOL_BAR_ITEM_TYPE
), Qt
))
4964 if (ti
== NULL
|| !GTK_IS_SEPARATOR_TOOL_ITEM (ti
))
4967 gtk_container_remove (GTK_CONTAINER (wtoolbar
),
4969 ti
= gtk_separator_tool_item_new ();
4970 gtk_toolbar_insert (GTK_TOOLBAR (wtoolbar
), ti
, j
);
4976 /* Otherwise, the tool-bar item is an ordinary button. */
4978 if (ti
&& GTK_IS_SEPARATOR_TOOL_ITEM (ti
))
4980 gtk_container_remove (GTK_CONTAINER (wtoolbar
), GTK_WIDGET (ti
));
4984 if (ti
) wbutton
= XG_BIN_CHILD (XG_BIN_CHILD (ti
));
4986 /* Ignore invalid image specifications. */
4987 image
= PROP (TOOL_BAR_ITEM_IMAGES
);
4988 if (!valid_image_p (image
))
4991 gtk_container_remove (GTK_CONTAINER (wtoolbar
),
4996 specified_file
= file_for_image (image
);
4997 if (!NILP (specified_file
) && !NILP (Ffboundp (Qx_gtk_map_stock
)))
4998 stock
= call1 (Qx_gtk_map_stock
, specified_file
);
5003 for (tem
= stock
; CONSP (tem
); tem
= XCDR (tem
))
5004 if (! NILP (tem
) && STRINGP (XCAR (tem
)))
5006 stock_name
= find_icon_from_name (SSDATA (XCAR (tem
)),
5009 if (stock_name
|| icon_name
) break;
5012 else if (STRINGP (stock
))
5014 stock_name
= find_icon_from_name (SSDATA (stock
),
5019 if (stock_name
|| icon_name
)
5020 icon_size
= gtk_toolbar_get_icon_size (wtoolbar
);
5022 if (stock_name
== NULL
&& icon_name
== NULL
)
5024 /* No stock image, or stock item not known. Try regular
5025 image. If image is a vector, choose it according to the
5027 if (dir
== GTK_TEXT_DIR_RTL
5028 && !NILP (rtl
= PROP (TOOL_BAR_ITEM_RTL_IMAGE
))
5030 image
= find_rtl_image (f
, image
, rtl
);
5032 if (VECTORP (image
))
5036 ? TOOL_BAR_IMAGE_ENABLED_SELECTED
5037 : TOOL_BAR_IMAGE_ENABLED_DESELECTED
);
5040 ? TOOL_BAR_IMAGE_DISABLED_SELECTED
5041 : TOOL_BAR_IMAGE_DISABLED_DESELECTED
);
5043 eassert (ASIZE (image
) >= idx
);
5044 image
= AREF (image
, idx
);
5049 img_id
= lookup_image (f
, image
);
5050 img
= IMAGE_FROM_ID (f
, img_id
);
5051 prepare_image_for_display (f
, img
);
5053 if (img
->load_failed_p
|| img
->pixmap
== None
)
5056 gtk_container_remove (GTK_CONTAINER (wtoolbar
),
5062 /* If there is an existing widget, check if it's stale; if so,
5063 remove it and make a new tool item from scratch. */
5064 if (ti
&& xg_tool_item_stale_p (wbutton
, stock_name
, icon_name
,
5067 gtk_container_remove (GTK_CONTAINER (wtoolbar
),
5076 /* Save the image so we can see if an update is needed the
5077 next time we call xg_tool_item_match_p. */
5078 if (EQ (style
, Qtext
))
5080 else if (stock_name
)
5083 #if GTK_CHECK_VERSION (3, 10, 0)
5084 w
= gtk_image_new_from_icon_name (stock_name
, icon_size
);
5086 w
= gtk_image_new_from_stock (stock_name
, icon_size
);
5088 g_object_set_data_full (G_OBJECT (w
), XG_TOOL_BAR_STOCK_NAME
,
5089 (gpointer
) xstrdup (stock_name
),
5090 (GDestroyNotify
) xfree
);
5094 w
= gtk_image_new_from_icon_name (icon_name
, icon_size
);
5095 g_object_set_data_full (G_OBJECT (w
), XG_TOOL_BAR_ICON_NAME
,
5096 (gpointer
) xstrdup (icon_name
),
5097 (GDestroyNotify
) xfree
);
5101 w
= xg_get_image_for_pixmap (f
, img
, x
->widget
, NULL
);
5102 g_object_set_data (G_OBJECT (w
), XG_TOOL_BAR_IMAGE_DATA
,
5103 (gpointer
)img
->pixmap
);
5106 #if GTK_CHECK_VERSION (3, 14, 0)
5109 gtk_widget_set_margin_start (w
, hmargin
);
5110 gtk_widget_set_margin_end (w
, hmargin
);
5111 gtk_widget_set_margin_top (w
, vmargin
);
5112 gtk_widget_set_margin_bottom (w
, vmargin
);
5115 if (w
) gtk_misc_set_padding (GTK_MISC (w
), hmargin
, vmargin
);
5117 ti
= xg_make_tool_item (f
, w
, &wbutton
, label
, i
, horiz
, text_image
);
5118 gtk_toolbar_insert (GTK_TOOLBAR (wtoolbar
), ti
, j
);
5123 gtk_widget_set_sensitive (wbutton
, enabled_p
);
5127 /* Remove buttons not longer needed. */
5130 ti
= gtk_toolbar_get_nth_item (GTK_TOOLBAR (wtoolbar
), j
);
5132 gtk_container_remove (GTK_CONTAINER (wtoolbar
), GTK_WIDGET (ti
));
5133 } while (ti
!= NULL
);
5135 if (f
->n_tool_bar_items
!= 0)
5137 if (! x
->toolbar_is_packed
)
5138 xg_pack_tool_bar (f
, FRAME_TOOL_BAR_POSITION (f
));
5139 gtk_widget_show_all (x
->toolbar_widget
);
5140 if (xg_update_tool_bar_sizes (f
))
5143 = ((f
->after_make_frame
5144 && !f
->tool_bar_resized
5145 && (EQ (frame_inhibit_implied_resize
, Qt
)
5146 || (CONSP (frame_inhibit_implied_resize
)
5147 && !NILP (Fmemq (Qtool_bar_lines
,
5148 frame_inhibit_implied_resize
))))
5149 /* This will probably fail to DTRT in the
5150 fullheight/-width cases. */
5151 && NILP (get_frame_param (f
, Qfullscreen
)))
5155 frame_size_history_add (f
, Qupdate_frame_tool_bar
, 0, 0, Qnil
);
5156 adjust_frame_size (f
, -1, -1, inhibit
, 0, Qtool_bar_lines
);
5158 f
->tool_bar_resized
= f
->tool_bar_redisplayed
;
5164 /* Deallocate all resources for the tool bar on frame F.
5165 Remove the tool bar. */
5168 free_frame_tool_bar (struct frame
*f
)
5170 struct x_output
*x
= f
->output_data
.x
;
5172 if (x
->toolbar_widget
)
5174 struct xg_frame_tb_info
*tbinfo
;
5175 GtkWidget
*top_widget
= x
->toolbar_widget
;
5178 if (x
->toolbar_is_packed
)
5180 if (x
->toolbar_in_hbox
)
5181 gtk_container_remove (GTK_CONTAINER (x
->hbox_widget
),
5184 gtk_container_remove (GTK_CONTAINER (x
->vbox_widget
),
5188 gtk_widget_destroy (x
->toolbar_widget
);
5190 x
->toolbar_widget
= 0;
5191 x
->toolbar_widget
= 0;
5192 x
->toolbar_is_packed
= false;
5193 FRAME_TOOLBAR_TOP_HEIGHT (f
) = FRAME_TOOLBAR_BOTTOM_HEIGHT (f
) = 0;
5194 FRAME_TOOLBAR_LEFT_WIDTH (f
) = FRAME_TOOLBAR_RIGHT_WIDTH (f
) = 0;
5196 tbinfo
= g_object_get_data (G_OBJECT (FRAME_GTK_OUTER_WIDGET (f
)),
5201 g_object_set_data (G_OBJECT (FRAME_GTK_OUTER_WIDGET (f
)),
5206 frame_size_history_add (f
, Qfree_frame_tool_bar
, 0, 0, Qnil
);
5207 adjust_frame_size (f
, -1, -1, 2, 0, Qtool_bar_lines
);
5214 xg_change_toolbar_position (struct frame
*f
, Lisp_Object pos
)
5216 struct x_output
*x
= f
->output_data
.x
;
5217 GtkWidget
*top_widget
= x
->toolbar_widget
;
5219 if (! x
->toolbar_widget
|| ! top_widget
)
5223 g_object_ref (top_widget
);
5224 if (x
->toolbar_is_packed
)
5226 if (x
->toolbar_in_hbox
)
5227 gtk_container_remove (GTK_CONTAINER (x
->hbox_widget
),
5230 gtk_container_remove (GTK_CONTAINER (x
->vbox_widget
),
5234 xg_pack_tool_bar (f
, pos
);
5235 g_object_unref (top_widget
);
5237 if (xg_update_tool_bar_sizes (f
))
5239 frame_size_history_add (f
, Qxg_change_toolbar_position
, 0, 0, Qnil
);
5240 adjust_frame_size (f
, -1, -1, 2, 0, Qtool_bar_lines
);
5249 /***********************************************************************
5251 ***********************************************************************/
5253 xg_initialize (void)
5255 GtkBindingSet
*binding_set
;
5256 GtkSettings
*settings
;
5259 /* Work around a bug with corrupted data if libXft gets unloaded. This way
5260 we keep it permanently linked in. */
5265 xg_ignore_gtk_scrollbar
= 0;
5266 xg_menu_cb_list
.prev
= xg_menu_cb_list
.next
=
5267 xg_menu_item_cb_list
.prev
= xg_menu_item_cb_list
.next
= 0;
5269 id_to_widget
.max_size
= id_to_widget
.used
= 0;
5270 id_to_widget
.widgets
= 0;
5272 settings
= gtk_settings_get_for_screen (gdk_display_get_default_screen
5273 (gdk_display_get_default ()));
5274 #if ! GTK_CHECK_VERSION (3, 10, 0)
5275 /* Remove F10 as a menu accelerator, it does not mix well with Emacs key
5276 bindings. It doesn't seem to be any way to remove properties,
5277 so we set it to "" which in means "no key". */
5278 gtk_settings_set_string_property (settings
,
5279 "gtk-menu-bar-accel",
5284 /* Make GTK text input widgets use Emacs style keybindings. This is
5286 #if GTK_CHECK_VERSION (3, 16, 0)
5287 g_object_set (settings
, "gtk-key-theme-name", "Emacs", NULL
);
5289 gtk_settings_set_string_property (settings
,
5290 "gtk-key-theme-name",
5295 /* Make dialogs close on C-g. Since file dialog inherits from
5296 dialog, this works for them also. */
5297 binding_set
= gtk_binding_set_by_class (g_type_class_ref (GTK_TYPE_DIALOG
));
5298 gtk_binding_entry_add_signal (binding_set
, GDK_KEY_g
, GDK_CONTROL_MASK
,
5301 /* Make menus close on C-g. */
5302 binding_set
= gtk_binding_set_by_class (g_type_class_ref
5303 (GTK_TYPE_MENU_SHELL
));
5304 gtk_binding_entry_add_signal (binding_set
, GDK_KEY_g
, GDK_CONTROL_MASK
,
5306 update_theme_scrollbar_width ();
5307 update_theme_scrollbar_height ();
5309 #ifdef HAVE_FREETYPE
5310 x_last_font_name
= NULL
;
5314 #endif /* USE_GTK */