From: Po Lu <luangruo@yahoo.com>
Date: Thu, 17 Mar 2022 03:51:32 +0000 (+0800)
Subject: Make GTK inspector available on PGTK
X-Git-Tag: emacs-29.0.90~1931^2~1084
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=667775e1ae259dc2fe0dee96ebb506beeef4d5ce;p=emacs.git

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 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);