diff options
author | Po Lu <luangruo@yahoo.com> | 2022-03-17 11:51:32 +0800 |
---|---|---|
committer | Po Lu <luangruo@yahoo.com> | 2022-03-17 11:51:32 +0800 |
commit | 667775e1ae259dc2fe0dee96ebb506beeef4d5ce (patch) | |
tree | 38d5d02d6abe82bfa97fadc6a622cfc1894347c0 | |
parent | bbfad0a7880c4202a90001cd76ad7844a12b9273 (diff) | |
download | emacs-667775e1ae259dc2fe0dee96ebb506beeef4d5ce.tar.gz |
Make GTK inspector available on PGTK
* src/pgtkfns.c (Fx_gtk_debug): New function.
(syms_of_pgtkfns): Define new subr.
-rw-r--r-- | src/pgtkfns.c | 19 |
1 files changed, 19 insertions, 0 deletions
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); |