Update of /project/mcclim/cvsroot/mcclim/Backends/beagle In directory common-lisp.net:/tmp/cvs-serv19834

Modified Files: events.lisp Log Message: Commit Tom Winchester's patch to make events.lisp compile with the new backend protocol.

Date: Fri Mar 4 08:35:40 2005 Author: afuchs

Index: mcclim/Backends/beagle/events.lisp diff -u mcclim/Backends/beagle/events.lisp:1.4 mcclim/Backends/beagle/events.lisp:1.5 --- mcclim/Backends/beagle/events.lisp:1.4 Sat Aug 21 22:51:28 2004 +++ mcclim/Backends/beagle/events.lisp Fri Mar 4 08:35:39 2005 @@ -28,7 +28,7 @@

#||

-$Id: events.lisp,v 1.4 2004/08/21 20:51:28 duncan Exp $ +$Id: events.lisp,v 1.5 2005/03/04 07:35:39 afuchs Exp $

All these are copied pretty much from CLX/port.lisp

@@ -334,7 +334,7 @@ (target-sheet (port-lookup-sheet-for-view *beagle-port* target-view))) (unless (null target-sheet) (format *debug-io* "Setting focus in *beagle-port* onto (hopefully correct) sheet: ~S~%" target-sheet) - (set-port-keyboard-focus target-sheet *beagle-port*)))))) + (%set-port-keyboard-focus target-sheet *beagle-port*)))))) ((send (send notification 'name) :is-equal-to-string #@"NSWindowDidExposeNotification") (setf return-event (make-instance 'window-repaint-event :timestamp (incf timestamp) @@ -720,7 +720,7 @@ ;;; Cocoa note: the Frame (NSWindow) must be made key for us to receive events; but they ;;; must then be sent to the Sheet that has focus.

-(defmethod set-port-keyboard-focus (focus (port beagle-port)) +(defmethod %set-port-keyboard-focus (focus (port beagle-port) &key timestamp) (let ((mirror (sheet-mirror focus))) (debug-log 2 "events.lisp:set-port-keyboard-focus - got mirror ~S~%" mirror) (when mirror