コミット: 9a87464104b205469b86a17e5968913f1c45e715 - trjp_sawfish (git)

Japanese translation of message catalog for Sawfish Window-Manager

コミットメタ情報

• リビジョン: 9a87464104b205469b86a17e5968913f1c45e715 (tree)
• 日時: 2010-11-17 21:57:16
• 作者: Michal Maruska <mmaruska@gmai...>
• コミッター: Michal Maruska

ログメッセージ

unmap_notify: run Qframe_unmap_notify_hook

変更サマリ

• modified: src/events.c

差分

--- a/src/events.c
+++ b/src/events.c
@@ -82,6 +82,7 @@ DEFSYM(visibility_notify_hook, "visibility-notify-hook");
 DEFSYM(destroy_notify_hook, "destroy-notify-hook");
 DEFSYM(map_notify_hook, "map-notify-hook");
 DEFSYM(unmap_notify_hook, "unmap-notify-hook");
+DEFSYM(frame_unmap_notify_hook, "frame-unmap-notify-hook");
 DEFSYM(reparent_notify_hook, "reparent-notify-hook");
 DEFSYM(property_notify_hook, "property-notify-hook");
 DEFSYM(enter_notify_hook, "enter-notify-hook");
@@ -910,6 +911,20 @@ unmap_notify (XEvent *ev)
 	   to reuse the window. */
 	XDeleteProperty (dpy, ev->xunmap.window, xa_wm_state);
     }
+    else if ((w = find_window_by_frame (ev->xunmap.window)))
+    {
+        if (ev->xunmap.event == root_window) /* why: to not act twice!*/
+            Fcall_window_hook (Qframe_unmap_notify_hook, rep_VAL(w), Qnil, Qnil);
+    }
+    else if ((w = find_window_by_frame_part (ev->xunmap.window)))
+    {
+        /* a frame part unmapped */
+    }
+    else
+    {
+        /* maybe the lisp structure --- pointers from a lisp window to X windows
+         * /frame parts ---was already destroyed */
+    }
 }
 
 static inline repv
@@ -1853,6 +1868,7 @@ events_init (void)
     rep_INTERN_SPECIAL(destroy_notify_hook);
     rep_INTERN_SPECIAL(map_notify_hook);
     rep_INTERN_SPECIAL(unmap_notify_hook);
+    rep_INTERN_SPECIAL(frame_unmap_notify_hook);
     rep_INTERN_SPECIAL(reparent_notify_hook);
     rep_INTERN_SPECIAL(property_notify_hook);
     rep_INTERN_SPECIAL(enter_notify_hook);