From 090c3088145ebebe75975e220cd8399563449996 Mon Sep 17 00:00:00 2001 From: Philippe Brochard Date: Tue, 17 Aug 2010 00:35:14 +0200 Subject: [PATCH] src/clfswm-util.lisp (mouse-click-to-focus-generic): Fix an unwanted flickering with unmanaged windows. --- ChangeLog | 5 +++++ TODO | 5 ++++- src/clfswm-util.lisp | 8 +++----- 3 files changed, 12 insertions(+), 6 deletions(-) diff --git a/ChangeLog b/ChangeLog index 724837c..845638b 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2010-08-17 Philippe Brochard + + * src/clfswm-util.lisp (mouse-click-to-focus-generic): Fix an + unwanted flickering with unmanaged windows. + 2010-08-16 Philippe Brochard * src/package.lisp: Remove event handler hooks as they're not diff --git a/TODO b/TODO index 2e60a86..7f8adb3 100644 --- a/TODO +++ b/TODO @@ -7,7 +7,10 @@ URGENT PROBLEMS =============== 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 ===== diff --git a/src/clfswm-util.lisp b/src/clfswm-util.lisp index b88eb5c..eaeb054 100644 --- a/src/clfswm-util.lisp +++ b/src/clfswm-util.lisp @@ -569,13 +569,11 @@ mouse-fun is #'move-frame or #'resize-frame" (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))))) -- 2.11.4.GIT