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

[pbrochard at common-lisp.net]

Author: pbrochard
Date: Wed Jun  4 08:08:44 2008
New Revision: 143

Modified:
   clfswm/ChangeLog
   clfswm/src/clfswm-nw-hooks.lisp
Log:
leave-focus-frame-nw-hook: Adapt behaviour to the new raise/lower property.

Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Wed Jun  4 08:08:44 2008
@@ -1,5 +1,8 @@
 2008-06-04  Philippe Brochard  <pbrochard at common-lisp.net>
 
+	* src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): Adapt
+	behaviour to the new raise/lower property.
+
 	* src/bindings.lisp (mouse-click-to-focus-and-move-window)
 	(mouse-click-to-focus-and-resize-window): Stop button event. This
 	prevent a keyboard/pointer freeze.

Modified: clfswm/src/clfswm-nw-hooks.lisp
==============================================================================
--- clfswm/src/clfswm-nw-hooks.lisp	(original)
+++ clfswm/src/clfswm-nw-hooks.lisp	Wed Jun  4 08:08:44 2008
@@ -175,10 +175,9 @@
   "Open the next window in the current frame and leave the focus on the current child"
   (leave-if-not-frame *current-child*)
   (when (frame-p *current-child*)
-    (pushnew window (frame-child *current-child*))
-    (when (second (frame-child *current-child*))
-      (rotatef (first (frame-child *current-child*))
-	       (second (frame-child *current-child*)))))
+    (with-slots (child) *current-child*
+      (pushnew window child)
+      (setf child (rotate-list child))))
   (default-window-placement *current-child* window)
   (clear-nw-hook frame))