master 667775e1ae 1/2: Make GTK inspector available on PGTK

[Po Lu]

branch: master
commit 667775e1ae259dc2fe0dee96ebb506beeef4d5ce
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>

    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 dd2e305965..38e6085843 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);