added some window-exists? checks

2003-04-27 18:51:21 +00:00 · 2003-04-27 18:51:21 +00:00 · cdc6803b7d
parent dcbf6b7bbb
commit cdc6803b7d
1 changed files with 2 additions and 2 deletions
--- a/src/button.scm
+++ b/src/button.scm
@ -40,11 +40,11 @@
 	  (let loop ((state 'up))
 	    (let ((e (receive event-channel)))
 	      (cond
-	       ((expose-event? e)
+	       ((and (expose-event? e) (window-exists? dpy window))
 		(draw-button button gc state)
 		(loop state))
 	       ((destroy-window-event? e) 'destroyed)
-	       ((button-event? e)
+	       ((and (button-event? e) (window-exists? dpy window))
 		(if (eq? (event-type button-press)
 			 (button-event-type e))
 		    (begin