[clfswm-cvs] r130 - in clfswm: . src

[pbrochard at common-lisp.net]

Author: pbrochard
Date: Sat May 17 15:54:45 2008
New Revision: 130

Modified:
   clfswm/ChangeLog
   clfswm/src/clfswm-nw-hooks.lisp
Log:
default-frame-nw-hook: Do not handle the ROX pinboard (ie: leave it lowered in the root window as expected).

Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Sat May 17 15:54:45 2008
@@ -1,5 +1,9 @@
 2008-05-17  Philippe Brochard  <pbrochard at common-lisp.net>
 
+	* src/clfswm-nw-hooks.lisp (default-frame-nw-hook): Do not handle
+	the ROX pinboard (ie: leave it lowered in the root window as
+	expected).
+
 	* src/clfswm-layout.lisp (tile-left-space-layout): New layout.
 	(tile-left-layout, tile-right-layout, tile-top-layout)
 	(tile-bottom-layout): Use all the frame space when there is only

Modified: clfswm/src/clfswm-nw-hooks.lisp
==============================================================================
--- clfswm/src/clfswm-nw-hooks.lisp	(original)
+++ clfswm/src/clfswm-nw-hooks.lisp	Sat May 17 15:54:45 2008
@@ -80,10 +80,11 @@
 (defun default-frame-nw-hook (frame window)
   "Open the next window in the current frame"
   (declare (ignore frame))
-  (leave-if-not-frame *current-child*)
-  (when (frame-p *current-child*)
-    (pushnew window (frame-child *current-child*)))
-  (default-window-placement *current-child* window))
+  (unless (string-equal (xlib:get-wm-class window) "ROX-Pinboard")
+    (leave-if-not-frame *current-child*)
+    (when (frame-p *current-child*)
+      (pushnew window (frame-child *current-child*)))
+    (default-window-placement *current-child* window)))
 
 (defun set-default-frame-nw-hook ()
   "Open the next window in the current frame"