[mcclim-cvs] CVS update: mcclim/Backends/beagle/events.lisp

[Andreas Fuchs]

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