trjp_sawfish
Fork

提交

修订版	9a87464104b205469b86a17e5968913f1c45e715 (tree)
时间	2010-11-17 21:57:16
作者	Michal Maruska <mmaruska@gmai...>
Commiter	Michal Maruska

unmap_notify: run Qframe_unmap_notify_hook

--- a/src/events.c

+++ b/src/events.c

		@@ -82,6 +82,7 @@ DEFSYM(visibility_notify_hook, "visibility-notify-hook");
82	82	DEFSYM(destroy_notify_hook, "destroy-notify-hook");
83	83	DEFSYM(map_notify_hook, "map-notify-hook");
84	84	DEFSYM(unmap_notify_hook, "unmap-notify-hook");
	85	+DEFSYM(frame_unmap_notify_hook, "frame-unmap-notify-hook");
85	86	DEFSYM(reparent_notify_hook, "reparent-notify-hook");
86	87	DEFSYM(property_notify_hook, "property-notify-hook");
87	88	DEFSYM(enter_notify_hook, "enter-notify-hook");

		@@ -910,6 +911,20 @@ unmap_notify (XEvent *ev)
910	911	to reuse the window. */
911	912	XDeleteProperty (dpy, ev->xunmap.window, xa_wm_state);
912	913	}
	914	+ else if ((w = find_window_by_frame (ev->xunmap.window)))
	915	+ {
	916	+ if (ev->xunmap.event == root_window) /* why: to not act twice!*/
	917	+ Fcall_window_hook (Qframe_unmap_notify_hook, rep_VAL(w), Qnil, Qnil);
	918	+ }
	919	+ else if ((w = find_window_by_frame_part (ev->xunmap.window)))
	920	+ {
	921	+ /* a frame part unmapped */
	922	+ }
	923	+ else
	924	+ {
	925	+ /* maybe the lisp structure --- pointers from a lisp window to X windows
	926	+ * /frame parts ---was already destroyed */
	927	+ }
913	928	}
914	929
915	930	static inline repv

		@@ -1853,6 +1868,7 @@ events_init (void)
1853	1868	rep_INTERN_SPECIAL(destroy_notify_hook);
1854	1869	rep_INTERN_SPECIAL(map_notify_hook);
1855	1870	rep_INTERN_SPECIAL(unmap_notify_hook);
	1871	+ rep_INTERN_SPECIAL(frame_unmap_notify_hook);
1856	1872	rep_INTERN_SPECIAL(reparent_notify_hook);
1857	1873	rep_INTERN_SPECIAL(property_notify_hook);
1858	1874	rep_INTERN_SPECIAL(enter_notify_hook);