[clfswm-cvs] [clfswm-git]CLFSWM - A(nother) Common Lisp FullScreen Window Manager branch master updated. R-1106-1-g4ced474

[Philippe Brochard]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CLFSWM - A(nother) Common Lisp FullScreen Window Manager".

The branch, master has been updated
       via  4ced474d5047017face5ff5f4796aa6a5b5046c6 (commit)
      from  59cd35db78c29e540c7b4af221c0c42662d231af (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 4ced474d5047017face5ff5f4796aa6a5b5046c6
Author: Philippe Brochard <pbrochard at common-lisp.net>
Date:   Sun Jun 12 15:22:18 2011 +0200

    src/clfswm-internal.lisp (process-existing-windows): Do not process the notify window.

diff --git a/ChangeLog b/ChangeLog
index 6ed6989..8d4d1ba 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2011-06-12  Philippe Brochard  <pbrochard at common-lisp.net>
+
+	* src/clfswm-internal.lisp (process-existing-windows): Do not
+	process the notify window.
+
 2011-06-08  Philippe Brochard  <pbrochard at common-lisp.net>
 
 	* *: **** Release 1106 ****
diff --git a/src/clfswm-internal.lisp b/src/clfswm-internal.lisp
index b50c937..a331406 100644
--- a/src/clfswm-internal.lisp
+++ b/src/clfswm-internal.lisp
@@ -1256,7 +1256,8 @@ managed."
 	(let ((map-state (xlib:window-map-state win))
 	      (wm-state (window-state win)))
 	  (unless (or (eql (xlib:window-override-redirect win) :on)
-		      (eql win *no-focus-window*))
+		      (eql win *no-focus-window*)
+                      (is-notify-window-p win))
 	    (when (or (eql map-state :viewable)
 		      (eql wm-state +iconic-state+))
 	      (format t "Processing ~S: type=~A ~S~%" (xlib:wm-name win) (window-type win) win)

-----------------------------------------------------------------------

Summary of changes:
 ChangeLog                |    5 +++++
 src/clfswm-internal.lisp |    3 ++-
 2 files changed, 7 insertions(+), 1 deletions(-)


hooks/post-receive
-- 
CLFSWM - A(nother) Common Lisp FullScreen Window Manager