[mcclim-cvs] CVS mcclim

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))))))