fix of window-contains-focus? for non existent windows

2003-04-17 14:16:45 +00:00 · 2003-04-17 14:16:45 +00:00 · 68e7a41372
parent 7a8a3c977d
commit 68e7a41372
1 changed files with 1 additions and 1 deletions
--- a/src/utils.scm
+++ b/src/utils.scm
@ -280,7 +280,7 @@
  (or (window-focused? dpy window)
      (any (lambda (child)
 	     (window-contains-focus? dpy child))
-	   (window-children dpy window))))
+	   (or (window-children dpy window) '()))))

 (define (take-focus dpy window time)
  ;; implements the TAKE_FOCUS protocol