Make GTK inspector available on PGTK

* src/pgtkfns.c (Fx_gtk_debug): New function.
(syms_of_pgtkfns): Define new subr.

diff --git a/src/pgtkfns.c b/src/pgtkfns.c
index dd2e305965aaf888a9b16a20e98ebda32e1773a8..38e60858432a78cb0afe6ce6d276227cf332465e 100644 (file)
--- 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);