scsh-conservatory
/
orion-wm
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add check for windows being #f.

This commit is contained in:
mainzelm 2003-10-24 11:38:38 +00:00
parent 43866aff9e
commit 91754f0b95
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/utils.scm
View File

@ -295,8 +295,11 @@
(window-path dpy p)))))
(define (window-viewable? dpy window)
(eq? (window-attribute:map-state (get-window-attributes dpy window))
(map-state is-viewable)))
(and window
(let ((attrs (get-window-attributes dpy window)))
(and attrs
(eq? (window-attribute:map-state attrs)
(map-state is-viewable))))))
(define (window-mapped? dpy window)
(and window