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

[Philippe Brochard]

Author: pbrochard
Date: Tue Feb 17 21:55:33 2009
New Revision: 202

Log:
null-size-window-p): Better check of null sized windows.

Modified:
   clfswm/ChangeLog
   clfswm/src/clfswm.lisp
   clfswm/src/xlib-util.lisp

Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Tue Feb 17 21:55:33 2009
@@ -1,3 +1,8 @@
+2009-02-17  Philippe Brochard  <pbrochard at common-lisp.net>
+
+	* src/xlib-util.lisp (null-size-window-p): Better check of null
+	sized windows.
+
 2009-02-14  Philippe Brochard  <pbrochard at common-lisp.net>
 
 	* src/clfswm.lisp (handle-map-request): Add a fix to manage

Modified: clfswm/src/clfswm.lisp
==============================================================================
--- clfswm/src/clfswm.lisp	(original)
+++ clfswm/src/clfswm.lisp	Tue Feb 17 21:55:33 2009
@@ -98,11 +98,8 @@
     (unhide-window window)
     (process-new-window window)
     (xlib:map-window window)
-    (let* ((hints (xlib:wm-normal-hints window))
-	   (width (and hints (xlib:wm-size-hints-width hints)))
-	   (height (and hints (xlib:wm-size-hints-height hints))))
-      (when (and width height)
-	(show-all-children)))))
+    (unless (null-size-window-p window)
+      (show-all-children))))
 
 
 

Modified: clfswm/src/xlib-util.lisp
==============================================================================
--- clfswm/src/xlib-util.lisp	(original)
+++ clfswm/src/xlib-util.lisp	Tue Feb 17 21:55:33 2009
@@ -115,6 +115,18 @@
   (eql (window-state window) +iconic-state+))
 
 
+(defun null-size-window-p (window)
+  (let ((hints (xlib:wm-normal-hints window)))
+    (and hints
+	 (not (or (xlib:wm-size-hints-width hints)
+		  (xlib:wm-size-hints-height hints)
+		  (xlib:wm-size-hints-win-gravity hints)))
+	 (xlib:wm-size-hints-user-specified-position-p hints))))
+
+
+
+
+
 
 (defun unhide-window (window)
   (when window