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

[Philippe Brochard]

Author: pbrochard
Date: Fri May  6 16:22:29 2011
New Revision: 451

Log:
src/clfswm-layout.lisp (update-layout-managed-children): Fix a bug by using the parent frame instead of the current child.

Modified:
   clfswm/ChangeLog
   clfswm/src/clfswm-layout.lisp

Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Fri May  6 16:22:29 2011
@@ -1,5 +1,8 @@
 2011-05-06  Philippe Brochard  <pbrochard at common-lisp.net>
 
+	* src/clfswm-layout.lisp (update-layout-managed-children): Fix a
+	bug by using the parent frame instead of the current child.
+
 	* src/clfswm-circulate-mode.lisp
 	(select-brother-generic-spatial-move+right/left/up/down): New
 	function to select a brother from another in a spatial move.

Modified: clfswm/src/clfswm-layout.lisp
==============================================================================
--- clfswm/src/clfswm-layout.lisp	(original)
+++ clfswm/src/clfswm-layout.lisp	Fri May  6 16:22:29 2011
@@ -220,8 +220,8 @@
 (defun tile-layout-ask-keep-position ()
   (when (frame-p *current-child*)
     (if (query-yes-or-no "Keep frame children positions?")
-	(setf (frame-data-slot *current-child* :tile-layout-keep-positiion) :yes)
-	(remove-frame-data-slot *current-child* :tile-layout-keep-positiion))))
+	(setf (frame-data-slot *current-child* :tile-layout-keep-position) :yes)
+	(remove-frame-data-slot *current-child* :tile-layout-keep-position))))
 
 
 (defun set-layout-managed-children ()
@@ -243,7 +243,7 @@
     managed-children))
 
 (defun update-layout-managed-children (child parent)
-  (if (eql (frame-data-slot *current-child* :tile-layout-keep-positiion) :yes)
+  (if (eql (frame-data-slot parent :tile-layout-keep-position) :yes)
       (update-layout-managed-children-keep-position child parent)
       (get-managed-child parent)))