[clfswm-cvs] r404 - clfswm/src

[Philippe Brochard]

Author: pbrochard
Date: Wed Feb  9 17:09:55 2011
New Revision: 404

Log:
mouse-focus-move/resize-generic: do not focus a never managed window

Modified:
   clfswm/src/clfswm-util.lisp

Modified: clfswm/src/clfswm-util.lisp
==============================================================================
--- clfswm/src/clfswm-util.lisp	(original)
+++ clfswm/src/clfswm-util.lisp	Wed Feb  9 17:09:55 2011
@@ -634,8 +634,7 @@
 	     (raise-window child)
 	     (funcall (cond ((eql mouse-fn #'move-frame) #'move-window)
 			    ((eql mouse-fn #'resize-frame) #'resize-window))
-		      child root-x root-y)
-	     (focus-window child)))
+		      child root-x root-y)))
     (let ((child (find-child-under-mouse root-x root-y nil t)))
       (multiple-value-bind (never-managed raise)
 	  (never-managed-window-p child)