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

[Philippe Brochard]

Author: pbrochard
Date: Mon Aug 16 18:34:09 2010
New Revision: 293

Log:
src/clfswm-util.lisp (mouse-click-to-focus-generic): Fix an unwanted flickering with unmanaged windows.

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

Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Mon Aug 16 18:34:09 2010
@@ -1,3 +1,8 @@
+2010-08-17  Philippe Brochard  <pbrochard at common-lisp.net>
+
+	* src/clfswm-util.lisp (mouse-click-to-focus-generic): Fix an
+	unwanted flickering with unmanaged windows.
+
 2010-08-16  Philippe Brochard  <pbrochard at common-lisp.net>
 
 	* src/package.lisp: Remove event handler hooks as they're not

Modified: clfswm/TODO
==============================================================================
--- clfswm/TODO	(original)
+++ clfswm/TODO	Mon Aug 16 18:34:09 2010
@@ -7,7 +7,10 @@
 ===============
 Should handle these soon.
 
-Nothing here :)
+BUGS: - Unwanted flickering with unmanaged windows.
+      - Focus with multiple copy of the same window fall in the wrong frame.
+
+######Nothing here :)
 
 MAYBE
 =====

Modified: clfswm/src/clfswm-util.lisp
==============================================================================
--- clfswm/src/clfswm-util.lisp	(original)
+++ clfswm/src/clfswm-util.lisp	Mon Aug 16 18:34:09 2010
@@ -569,13 +569,11 @@
 		(unless (equal (type-of child) 'frame)
 		  (setf child (find-frame-window child *current-root*)))
 		(setf parent (find-parent-frame child)))))
-	(when (and child parent)
-	  (focus-all-children child parent)
-	  (show-all-children))
 	(when (equal (type-of child) 'frame)
 	  (funcall mouse-fn child parent root-x root-y))
-  	(when (show-all-children *current-root*)
-	  (setf to-replay nil)))
+	(when (and child parent (focus-all-children child parent))
+	  (when (show-all-children *current-root*)
+	    (setf to-replay nil))))
       (if to-replay
 	  (replay-button-event)
 	  (stop-button-event)))))