Update of /project/mcclim/cvsroot/mcclim/Backends/CLX In directory common-lisp:/tmp/cvs-serv26111/Backends/CLX
Modified Files: port.lisp Log Message: Clean up arg list of event-handler Date: Tue Jan 17 10:57:47 2006 Author: tmoore
Index: mcclim/Backends/CLX/port.lisp diff -u mcclim/Backends/CLX/port.lisp:1.117 mcclim/Backends/CLX/port.lisp:1.118 --- mcclim/Backends/CLX/port.lisp:1.117 Fri Jan 13 05:05:06 2006 +++ mcclim/Backends/CLX/port.lisp Tue Jan 17 10:57:47 2006 @@ -644,13 +644,11 @@ ;; pointer-event-buttons slot to pointer events. -- moore ;;
-(defun event-handler (&rest event-slots - &key display window event-key code state mode time +(defun event-handler (&key display window event-key code state mode time type width height x y root-x root-y data override-redirect-p send-event-p hint-p target property requestor selection &allow-other-keys) - (declare (ignorable event-slots)) (declare (special *clx-port*)) (let ((sheet (and window (port-lookup-sheet *clx-port* window))))