From cdc6803b7d591ced44c507ae496c974e39be1042 Mon Sep 17 00:00:00 2001
From: frese <frese>
Date: Sun, 27 Apr 2003 18:51:21 +0000
Subject: [PATCH] added some window-exists? checks

---
 src/button.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/button.scm b/src/button.scm
index 6d4163a..2a43c09 100644
--- 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