[ It appears that this mail, and three others like it, didn't make it to mcclim-devel, and I didn't realise this until today... ]

This fix seems uncontroversial, so I have merged it; thank you. I've never run into this problem myself; do you remember how you triggered it?

Thanks,

Christophe

Juliusz Chroboczek jch@pps.jussieu.fr writes:

Index: stream-input.lisp

RCS file: /project/mcclim/cvsroot/mcclim/stream-input.lisp,v retrieving revision 1.54 diff -u -r1.54 stream-input.lisp --- stream-input.lisp 1 May 2008 21:45:23 -0000 1.54 +++ stream-input.lisp 2 Mar 2009 22:12:58 -0000 @@ -215,7 +215,7 @@ ;;; Do streams care about any other events? (defun handle-non-stream-event (buffer) (let* ((event (event-queue-peek buffer))

•    (sheet (event-sheet event)))
  

•    (sheet (and event (event-sheet event))))
  

  (if (and event (or (and (gadgetp sheet) (gadget-active-p sheet))