From 667775e1ae259dc2fe0dee96ebb506beeef4d5ce Mon Sep 17 00:00:00 2001 From: Po Lu Date: Thu, 17 Mar 2022 11:51:32 +0800 Subject: [PATCH] Make GTK inspector available on PGTK * src/pgtkfns.c (Fx_gtk_debug): New function. (syms_of_pgtkfns): Define new subr. --- src/pgtkfns.c | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) diff --git a/src/pgtkfns.c b/src/pgtkfns.c index dd2e305965a..38e60858432 100644 --- a/src/pgtkfns.c +++ b/src/pgtkfns.c @@ -3872,6 +3872,21 @@ nil, it defaults to the selected frame. */) return unbind_to (count, font); } +#if GTK_CHECK_VERSION (3, 14, 0) +DEFUN ("x-gtk-debug", Fx_gtk_debug, Sx_gtk_debug, 1, 1, 0, + doc: /* Toggle interactive GTK debugging. */) + (Lisp_Object enable) +{ + gboolean enable_debug = !NILP (enable); + + block_input (); + gtk_window_set_interactive_debugging (enable_debug); + unblock_input (); + + return NILP (enable) ? Qnil : Qt; +} +#endif /* GTK_CHECK_VERSION (3, 14, 0) */ + /* ========================================================================== Lisp interface declaration @@ -3971,6 +3986,10 @@ be used as the image of the icon representing the frame. */); defsubr (&Sx_close_connection); defsubr (&Sx_display_list); +#if GTK_CHECK_VERSION (3, 14, 0) + defsubr (&Sx_gtk_debug); +#endif + defsubr (&Spgtk_hide_others); defsubr (&Spgtk_hide_emacs); -- 2.39.5