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

[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  51b0a027b1e29efb046d40f4962095fdbb3d2fe8 (commit)
      from  8b8ecaab723374838d43fd9fafc098ab4f63da7c (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 51b0a027b1e29efb046d40f4962095fdbb3d2fe8
Author: Philippe Brochard <pbrochard at common-lisp.net>
Date:   Sat Oct 15 21:41:44 2011 +0200

    src/clfswm-internal.lisp (place-window-from-hints): Use with-placement macro to place unmanaged windows in an arbitrary place.

diff --git a/ChangeLog b/ChangeLog
index cac88ce..a3e8984 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2011-10-15  Philippe Brochard  <pbrochard at common-lisp.net>
+
+	* src/clfswm-internal.lisp (place-window-from-hints): Use
+	with-placement macro to place unmanaged windows in an arbitrary
+	place.
+
 2011-06-16  Philippe Brochard  <pbrochard at common-lisp.net>
 
 	* src/clfswm-internal.lisp (clean-windows-in-all-frames): Prevent
diff --git a/src/clfswm-internal.lisp b/src/clfswm-internal.lisp
index 744c8e6..86759f7 100644
--- a/src/clfswm-internal.lisp
+++ b/src/clfswm-internal.lisp
@@ -1205,8 +1205,9 @@ Warning:frame window and gc are freeed."
 		      (xlib:drawable-height window))))
     (setf (xlib:drawable-width window) (min (max min-width rwidth *default-window-width*) max-width)
 	  (xlib:drawable-height window) (min (max min-height rheight *default-window-height*) max-height))
-    (setf (xlib:drawable-x window) (truncate (/ (- (xlib:screen-width *screen*) (+ (xlib:drawable-width window) 2)) 2))
-	  (xlib:drawable-y window) (truncate (/ (- (xlib:screen-height *screen*) (+ (xlib:drawable-height window) 2)) 2)))
+    (with-placement (*unmanaged-window-placement* x y (xlib:drawable-width window) (xlib:drawable-height window))
+      (setf (xlib:drawable-x window) x
+            (xlib:drawable-y window) y))
     (xlib:display-finish-output *display*)))
 
 
diff --git a/src/package.lisp b/src/package.lisp
index f14945a..297ff7a 100644
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -228,7 +228,8 @@ loading configuration file and before opening the display.")
   'Placement "Notify window placement")
 (defconfig *ask-close/kill-placement* 'top-right-placement
   'Placement "Ask close/kill window placement")
-
+(defconfig *unmanaged-window-placement* 'middle-middle-child-placement
+  'PLACEMENT "Unmanager window placement")
 
 
 (defparameter *in-process-existing-windows* nil)
diff --git a/src/xlib-util.lisp b/src/xlib-util.lisp
index eb7b500..e93ca16 100644
--- a/src/xlib-util.lisp
+++ b/src/xlib-util.lisp
@@ -201,7 +201,7 @@ Expand in handle-event-fun-main-mode-key-press"
 
 
 (defun window-state (win)
-  "Get the state (iconic, normal, withdraw of a window."
+  "Get the state (iconic, normal, withdrawn) of a window."
   (first (xlib:get-property win :WM_STATE)))
 
 

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

Summary of changes:
 ChangeLog                |    6 ++++++
 src/clfswm-internal.lisp |    5 +++--
 src/package.lisp         |    3 ++-
 src/xlib-util.lisp       |    2 +-
 4 files changed, 12 insertions(+), 4 deletions(-)


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