[mcclim-cvs] CVS mcclim

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim
In directory clnet:/tmp/cvs-serv7044

Modified Files:
	stream-input.lisp 
Log Message:
Change policy from "gadgets eat all events" to "active gadgets eat all
events".


--- /project/mcclim/cvsroot/mcclim/stream-input.lisp	2006/10/13 20:15:55	1.48
+++ /project/mcclim/cvsroot/mcclim/stream-input.lisp	2006/10/27 22:50:40	1.49
@@ -170,7 +170,8 @@
   (let* ((event (event-queue-peek buffer))
 	 (sheet (event-sheet event)))
     (if (and event
-	     (or (gadgetp sheet)
+	     (or (and (gadgetp sheet)
+                      (gadget-active-p sheet))
 		 (not (and (typep sheet 'clim-stream-pane)
 			   (or (typep event 'key-press-event)
 			       (typep event 'pointer-button-press-event))))))