Re: Event handling question

Bill wrote:

> To be specific for example:
> 
>       (xlib:event-case (*vl-display* :discard-p t :force-output-p t
>       :timeout 1/2)
>         (:exposure (event-window count)
>            (setf cls (get-class (xlib:window-id event-window)))
>            (if (equal count 0)
>                (if (not (eql cls nil))
>                    (expose cls)))
>            t)
> 
> This code picks up an expose event and executes the expose event for
> the proper class.  I get warnings because event-window and count are
> unbound, as indeed they are.  I have no idea how to declare them and
> still make the code work.

Can you post an example of one of these warnings?  I'm not able to
reproduce them with CLX 0.7.1 and SBCL 0.9.1, though I do get some
"note: deleting unreachable code" warnings.

--
RmK

_______________________________________________
Portable-clx mailing list
[email protected]
http://lists.metacircles.com/cgi-bin/mailman/listinfo/portable-clx
See http://www.cliki.net/clx for darcs URL(s)