*** /Users/tom/.asdf-install-openmcl-dir/extra/mcclim/Backends/beagle/events.lisp	Tue Mar  1 22:19:35 2005
--- /Users/tom/Desktop/events.lisp	Tue Mar  1 22:19:51 2005
***************
*** 334,340 ****
  		   (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*))))))
         ((send (send notification 'name) :is-equal-to-string #@"NSWindowDidExposeNotification")
  	(setf return-event
  	      (make-instance 'window-repaint-event :timestamp (incf timestamp)
--- 334,340 ----
  		   (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*))))))
         ((send (send notification 'name) :is-equal-to-string #@"NSWindowDidExposeNotification")
  	(setf return-event
  	      (make-instance 'window-repaint-event :timestamp (incf timestamp)
***************
*** 720,726 ****
  ;;; 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))
    (let ((mirror (sheet-mirror focus)))
      (debug-log 2 "events.lisp:set-port-keyboard-focus - got mirror ~S~%" mirror)
      (when mirror
--- 720,726 ----
  ;;; 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) &key timestamp)
    (let ((mirror (sheet-mirror focus)))
      (debug-log 2 "events.lisp:set-port-keyboard-focus - got mirror ~S~%" mirror)
      (when mirror