[clfswm-cvs] CVS clfswm

[pbrochard]

Update of /project/clfswm/cvsroot/clfswm
In directory clnet:/tmp/cvs-serv6191

Modified Files:
	clfswm-internal.lisp 
Log Message:
use wm-size-hints-min-width instead of wm-size-hints-max-width

--- /project/clfswm/cvsroot/clfswm/clfswm-internal.lisp	2007/12/31 16:38:36	1.9
+++ /project/clfswm/cvsroot/clfswm/clfswm-internal.lisp	2007/12/31 16:49:25	1.10
@@ -1,7 +1,7 @@
 ;;; --------------------------------------------------------------------------
 ;;; CLFSWM - FullScreen Window Manager
 ;;;
-;;; #Date#: Mon Dec 31 17:36:46 2007
+;;; #Date#: Mon Dec 31 17:46:55 2007
 ;;;
 ;;; --------------------------------------------------------------------------
 ;;; Documentation: Main functions
@@ -311,13 +311,17 @@
     (t (multiple-value-bind (x y width height)
 	   (get-group-size (current-group))
 	 (let* ((hints (xlib:wm-normal-hints window))
-		(min-width (or (and hints (xlib:wm-size-hints-max-width hints)) 0))
-		(min-height (or (and hints (xlib:wm-size-hints-max-height hints)) 0)))
+		(min-width (or (and hints (xlib:wm-size-hints-min-width hints)) 0))
+		(min-height (or (and hints (xlib:wm-size-hints-min-height hints)) 0)))
+	   ;;(dbg min-width min-height)
 	   (setf (drawable-width window) (max min-width (drawable-width window))
 		 (drawable-height window) (max min-height (drawable-height window)))
 	   (setf (drawable-x window) (truncate (+ x (/ (- width (drawable-width window)) 2)))
 		 (drawable-y window) (truncate (+ y (/ (- height (drawable-height window)) 2))))))))
+  ;;(dbg (drawable-x window) (drawable-y window) (drawable-width window) (drawable-height window))
   (add-window-in-group window (current-group))
+  ;;(dbg (drawable-x window) (drawable-y window) (drawable-width window) (drawable-height window))
+  ;;(format t "-------------------------------~%")
   (netwm-add-in-client-list window))