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

[pbrochard at common-lisp.net]

Author: pbrochard
Date: Wed Apr  2 14:15:33 2008
New Revision: 65

Modified:
   clfswm/ChangeLog
   clfswm/TODO
   clfswm/src/clfswm-internal.lisp
Log:
Limit minimal child size to 1x1.


Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Wed Apr  2 14:15:33 2008
@@ -1,3 +1,8 @@
+2008-04-02  Philippe Brochard  <pbrochard at common-lisp.net>
+
+	* src/clfswm-internal.lisp (adapt-child-to-father): Limit minimal
+	child size to 1x1.
+
 2008-04-01  Philippe Brochard  <pbrochard at common-lisp.net>
 
 	* src/bindings.lisp: Bind Alt+mouse-1/3 to move or resize a frame

Modified: clfswm/TODO
==============================================================================
--- clfswm/TODO	(original)
+++ clfswm/TODO	Wed Apr  2 14:15:33 2008
@@ -8,7 +8,6 @@
 Should handle these soon.
 
 Rewrote all useful code present in 0801 version.
-- Hide a window when its size is less than minimal hint size. [Philippe]
 - Bind alt+1/2/3/4... to a particular child (current root and current child) [Philippe]
   Open a menu: Space -> jump to child  Enter -> bind current child to key
 

Modified: clfswm/src/clfswm-internal.lisp
==============================================================================
--- clfswm/src/clfswm-internal.lisp	(original)
+++ clfswm/src/clfswm-internal.lisp	Wed Apr  2 14:15:33 2008
@@ -339,12 +339,14 @@
       (get-fullscreen-size)))
 
 
+
 (defgeneric adapt-child-to-father (child father))
 
 (defmethod adapt-child-to-father ((window xlib:window) father)
   (with-xlib-protect
       (multiple-value-bind (nx ny nw nh raise-p)
 	  (get-father-layout window father)
+	(setf nw (max nw 1)  nh (max nh 1))
 	(let ((change (or (/= (xlib:drawable-x window) nx)
 			  (/= (xlib:drawable-y window) ny)
 			  (/= (xlib:drawable-width window) nw)
@@ -360,7 +362,9 @@
       (multiple-value-bind (nx ny nw nh raise-p)
 	  (get-father-layout frame father)
 	(with-slots (rx ry rw rh window) frame
-	  (setf rx nx  ry ny  rw nw  rh nh)
+	  (setf rx nx  ry ny
+		rw (max nw 1)
+		rh (max nh 1))
 	  (let ((change (or (/= (xlib:drawable-x window) rx)
 			    (/= (xlib:drawable-y window) ry)
 			    (/= (xlib:drawable-width window) rw)