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

added some window-exists? checks

This commit is contained in:
frese 2003-04-27 18:51:21 +00:00
parent dcbf6b7bbb
commit cdc6803b7d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/button.scm
View File

@ -40,11 +40,11 @@
(let loop ((state 'up)) (let loop ((state 'up))
(let ((e (receive event-channel))) (let ((e (receive event-channel)))
(cond (cond
((expose-event? e) ((and (expose-event? e) (window-exists? dpy window))
(draw-button button gc state) (draw-button button gc state)
(loop state)) (loop state))
((destroy-window-event? e) 'destroyed) ((destroy-window-event? e) 'destroyed)
((button-event? e) ((and (button-event? e) (window-exists? dpy window))
(if (eq? (event-type button-press) (if (eq? (event-type button-press)
(button-event-type e)) (button-event-type e))
(begin (begin