[clfswm-cvs] [clfswm-git]CLFSWM - A(nother) Common Lisp FullScreen Window Manager branch master updated. R-1212-17-g4834bf0

[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  4834bf07a3faeb9de9d6c99069810c49ead1f581 (commit)
       via  b5b38f044d1e523dac522bd5ab4938090f11f6c3 (commit)
      from  13ebf0682b1a9c5960af1a48173751a47c0e0029 (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 4834bf07a3faeb9de9d6c99069810c49ead1f581
Author: Philippe Brochard <pbrochard at common-lisp.net>
Date:   Fri Mar 22 23:11:38 2013 +0100

    Do not destroy manually windows on destroy notify event (clfswm is a non reparent window manager)

diff --git a/src/clfswm.lisp b/src/clfswm.lisp
index e2f6ce5..34f50ad 100644
--- a/src/clfswm.lisp
+++ b/src/clfswm.lisp
@@ -117,8 +117,7 @@
               (xlib:window-equal window event-window))
     (when (find-child window *root-frame*)
       (delete-child-in-all-frames window)
-      (show-all-children)
-      (xlib:destroy-window window))))
+      (show-all-children))))
 
 
 (define-handler main-mode :enter-notify  (window root-x root-y)

commit b5b38f044d1e523dac522bd5ab4938090f11f6c3
Author: Philippe Brochard <pbrochard at common-lisp.net>
Date:   Fri Mar 22 23:10:09 2013 +0100

    Use child coordinates instead of stored rectangle coordinates

diff --git a/src/clfswm-util.lisp b/src/clfswm-util.lisp
index 6ccabf1..56a2a85 100644
--- a/src/clfswm-util.lisp
+++ b/src/clfswm-util.lisp
@@ -367,23 +367,22 @@ Write (defparameter *contrib-dir* \"/usr/local/lib/clfswm/\") in ~A.~%"
 
 (defun find-child-under-mouse-in-child-tree (x y)
   (dolist (child-rect (get-displayed-child))
-    (when (in-rect x y (child-rect-x child-rect) (child-rect-y child-rect)
-                   (child-rect-w child-rect) (child-rect-h child-rect))
-      (return-from find-child-under-mouse-in-child-tree (child-rect-child child-rect)))))
+    (let ((child (child-rect-child child-rect)))
+      (when (in-rect x y (x-drawable-x child) (x-drawable-y child)
+                   (x-drawable-width child) (x-drawable-height child))
+        (return-from find-child-under-mouse-in-child-tree (child-rect-child child-rect))))))
 
 
 
 (defun find-child-under-mouse (x y &optional also-never-managed)
   "Return the child under the mouse"
   (or (and also-never-managed
-	   (find-child-under-mouse-in-never-managed-windows x y))
+           (find-child-under-mouse-in-never-managed-windows x y))
       (find-child-under-mouse-in-child-tree x y)))
 
 
 
 
-
-
 ;;; Selection functions
 (defun clear-selection ()
   "Clear the current selection"
@@ -1206,7 +1205,10 @@ For window: set current child to window or its parent according to window-parent
                              (format nil "Window class: ~A" (xlib:get-wm-class window))
                              (format nil "Window type:  ~:(~A~)" (window-type window))
                              (format nil "Window id:    0x~X" (xlib:window-id window))
-                             (format nil "Window transparency: ~A" (* 100 (window-transparency window))))
+                             (format nil "Window transparency: ~A" (* 100 (window-transparency window)))
+                             (format nil " X=~A  Y=~A  W=~A  H=~A"
+                                     (x-drawable-x window) (x-drawable-y window)
+                                     (x-drawable-width window) (x-drawable-height window)))
                        (split-string (format nil "~A" (xlib:wm-normal-hints window)) #\Newline))))
   (leave-second-mode))
 

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

Summary of changes:
 src/clfswm-util.lisp |   16 +++++++++-------
 src/clfswm.lisp      |    3 +--
 2 files changed, 10 insertions(+), 9 deletions(-)


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