[sawfish: 3/6] Fix focus behaviour of KDE Run Command (alt-F2).

[Christopher Bratusek <chrisb src gnome org>]

commit 696d93a380905b534314baa77ed5ba848f234cfe
Author: Timo Korvola <tkorvola iki fi>
Date:   Sat Sep 22 19:31:36 2007 +0200

    Fix focus behaviour of KDE Run Command (alt-F2).
    
    Some KDE popups such as Run Command are transients for the
    file manager desktop window instead of root. Treat them as transients
    for root when deciding whether to give them focus when mapped. This
    means that whether they get focus can be customized.

 lisp/sawfish/wm/state/transient.jl |   13 ++++++++-----
 1 files changed, 8 insertions(+), 5 deletions(-)
---
diff --git a/lisp/sawfish/wm/state/transient.jl b/lisp/sawfish/wm/state/transient.jl
index 67edf85..e22e961 100644
--- a/lisp/sawfish/wm/state/transient.jl
+++ b/lisp/sawfish/wm/state/transient.jl
@@ -158,16 +158,19 @@ the level of any transient windows it has."
   ;; 2. Transients of root belonging to the same window group as the
   ;;    currently focused window get focus, unless the currently focused
   ;;    window is also transient (wacky special case code in transient-of-p).
-  ;; 3. Other transients for root or non-transients may get focus depending
-  ;;    on options (yes, we also handle non-transients).
+  ;; 3. Other transients for root, transients for a desktop window
+  ;;    or non-transients may get focus depending on options (yes, we
+  ;;    also handle non-transients).
   (define (transient-map-window w)
     (when (and (window-really-wants-input-p w)
                (window-visible-p w)
                (or (let ((focus (input-focus)))
                      (and focus (transient-of-p w focus #:allow-root t)))
-                   (let ((x-for (window-transient-p w)))
-                     (and (or (not x-for)
-                              (eql x-for (root-window-id)))
+                   (let ((x-for-id (window-transient-p w)))
+                     (and (or (not x-for-id)
+                              (eql x-for-id (root-window-id))
+                              (let ((x-for (get-window-by-id x-for-id)))
+                                (and x-for (window-get x-for 'desktop))))
                           (or (and
                                focus-windows-when-mapped
                                (not (window-get w 'never-focus))