From pbrochard at common-lisp.net Tue May 7 19:00:44 2013 From: pbrochard at common-lisp.net (Philippe Brochard) Date: Tue, 7 May 2013 12:00:44 -0700 (PDT) Subject: [clfswm-git]CLFSWM - A(nother) Common Lisp FullScreen Window Manager branch master updated. R-1212-29-gcc5ba0e Message-ID: <20130507190045.00A13356480@mail.common-lisp.net> 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 cc5ba0e7ace5f8b2f4a8a1ff2bb83db2802ef834 (commit) from 47265bb0579045b5528894e5db88df44fd029774 (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 cc5ba0e7ace5f8b2f4a8a1ff2bb83db2802ef834 Author: Philippe Brochard Date: Tue May 7 21:00:43 2013 +0200 Takes care of *steal-focus* variable in run-or-raise function diff --git a/src/clfswm-util.lisp b/src/clfswm-util.lisp index 5489dc9..68e00a6 100644 --- a/src/clfswm-util.lisp +++ b/src/clfswm-util.lisp @@ -1807,7 +1807,8 @@ For window: set current child to window or its parent according to window-parent (put-child-on-top window parent) (when maximized (change-root (find-root parent) parent)) - (focus-all-children window parent) + (when *steal-focus* + (focus-all-children window parent)) (show-all-children t)) (funcall run-fn)))) ----------------------------------------------------------------------- Summary of changes: src/clfswm-util.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) hooks/post-receive -- CLFSWM - A(nother) Common Lisp FullScreen Window Manager From pbrochard at common-lisp.net Tue May 7 18:55:39 2013 From: pbrochard at common-lisp.net (Philippe Brochard) Date: Tue, 7 May 2013 11:55:39 -0700 (PDT) Subject: [clfswm-git]CLFSWM - A(nother) Common Lisp FullScreen Window Manager branch master updated. R-1212-28-g47265bb Message-ID: <20130507185540.00DFA356480@mail.common-lisp.net> 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 47265bb0579045b5528894e5db88df44fd029774 (commit) from cdadcb842a0a5aa26a818bc756df2a9429c910f4 (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 47265bb0579045b5528894e5db88df44fd029774 Author: Philippe Brochard Date: Tue May 7 20:55:37 2013 +0200 Fixe unmap-notify request diff --git a/src/clfswm.lisp b/src/clfswm.lisp index 42386c2..d6c75bf 100644 --- a/src/clfswm.lisp +++ b/src/clfswm.lisp @@ -110,7 +110,7 @@ (when (find-child window *root-frame*) (setf (window-state window) +withdrawn-state+) (remove-child-in-all-frames window) - (xlib:unmap-window window) + ;;(xlib:unmap-window window) (show-all-children)))) ----------------------------------------------------------------------- Summary of changes: src/clfswm.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) hooks/post-receive -- CLFSWM - A(nother) Common Lisp FullScreen Window Manager