trjp_sawfish
Fork

提交

修订版	3f06671635587b393905d27e5ae686676aa0409b (tree)
时间	2010-11-17 20:55:54
作者	Michal Maruska <mmaruska@gmai...>
Commiter	Michal Maruska

select-input x.c

--- a/src/x.c

+++ b/src/x.c

		@@ -710,6 +710,22 @@ window is created unmapped.
710	710	return rep_VAL (w);
711	711	}
712	712
	713	+DEFUN("x-window-select-input", Fx_window_select_input, Sx_window_select_input,
	714	+ (repv win, repv mask), rep_Subr2)
	715	+/*
	716	+ ::doc:sawfish.wm.windows.subrs#x-window-select-input::
	717	+ x-window-select-input WINDOW MASK
	718	+
	719	+ ask the X server for future events on the WINDOW, which are matched by the MASK.
	720	+ ::end:: */
	721	+{
	722	+ rep_DECLARE1 (win, X_WINDOWP);
	723	+ rep_DECLARE2(mask, rep_INTEGERP);
	724	+ XSelectInput (dpy, VX_DRAWABLE (win)->id, rep_INT(mask));
	725	+ return Qnil;
	726	+}
	727	+
	728	+
713	729	DEFUN ("x-create-pixmap", Fx_create_pixmap,
714	730	Sx_create_pixmap, (repv wh), rep_Subr1)
715	731	{

		@@ -1552,6 +1568,7 @@ rep_dl_init (void)
1552	1568	x_window_sweep, x_window_mark,
1553	1569	0, 0, 0, 0, 0, 0, 0);
1554	1570	rep_ADD_SUBR (Sx_create_window);
	1571	+ rep_ADD_SUBR (Sx_window_select_input);
1555	1572	rep_ADD_SUBR (Sx_create_pixmap);
1556	1573	rep_ADD_SUBR (Sx_create_bitmap);
1557	1574	rep_ADD_SUBR (Sx_map_window);