[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 667775e1ae 1/2: Make GTK inspector available on PGTK
From: |
Po Lu |
Subject: |
master 667775e1ae 1/2: Make GTK inspector available on PGTK |
Date: |
Thu, 17 Mar 2022 00:01:02 -0400 (EDT) |
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);