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

[Philippe Brochard]

Author: pbrochard
Date: Wed May 13 10:17:03 2009
New Revision: 231

Log:
reorder-brother: Ensure that the parent is a frame.

Modified:
   clfswm/ChangeLog
   clfswm/src/clfswm-circulate-mode.lisp

Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Wed May 13 10:17:03 2009
@@ -1,5 +1,8 @@
 2009-05-13  Philippe Brochard  <pbrochard at common-lisp.net>
 
+	* src/clfswm-circulate-mode.lisp (reorder-brother): Ensure that
+	the parent is a frame.
+
 	* src/clfswm-second-mode.lisp (sm-handle-motion-notify): Handle
 	motion with a default modifier.
 

Modified: clfswm/src/clfswm-circulate-mode.lisp
==============================================================================
--- clfswm/src/clfswm-circulate-mode.lisp	(original)
+++ clfswm/src/clfswm-circulate-mode.lisp	Wed May 13 10:17:03 2009
@@ -90,9 +90,10 @@
       (reset-circulate-brother))
     (let ((len (length *circulate-orig*)))
       (when (plusp len)
-	(let ((elem (nth (mod  (incf *circulate-hit* direction) len) *circulate-orig*)))
-	  (setf (frame-child *circulate-parent*) (nconc (list elem) (remove elem *circulate-orig*))
-		*current-child* (frame-selected-child *circulate-parent*)))
+	(when (frame-p *circulate-parent*)
+	  (let ((elem (nth (mod  (incf *circulate-hit* direction) len) *circulate-orig*)))
+	    (setf (frame-child *circulate-parent*) (nconc (list elem) (remove elem *circulate-orig*))
+		  *current-child* (frame-selected-child *circulate-parent*))))
 	(when frame-is-root?
 	  (setf *current-root* *current-child*))))
     (show-all-children (if frame-is-root?