mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-25 23:10:47 -08:00
Code Issues Projects Releases Wiki Activity

Make GTK inspector available on PGTK

Browse source 
* src/pgtkfns.c (Fx_gtk_debug): New function.
(syms_of_pgtkfns): Define new subr.
This commit is contained in:
Po Lu 2022-03-17 11:51:32 +08:00
parent bbfad0a788
commit 667775e1ae
1 changed files with 19 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

19
src/pgtkfns.c
View file

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