[mcclim-cvs] CVS update: mcclim/Backends/beagle/native/lisp-window-delegate.lisp

[Duncan Rose]

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

Modified Files:
	lisp-window-delegate.lisp 
Log Message:
Fixed annoying (and long term) issue with key focus. Focus is
now (or at least, appears to now be) set correctly.

Updated README.txt accordingly.

Date: Tue May 17 22:12:38 2005
Author: drose

Index: mcclim/Backends/beagle/native/lisp-window-delegate.lisp
diff -u mcclim/Backends/beagle/native/lisp-window-delegate.lisp:1.1 mcclim/Backends/beagle/native/lisp-window-delegate.lisp:1.2
--- mcclim/Backends/beagle/native/lisp-window-delegate.lisp:1.1	Tue May 17 00:13:17 2005
+++ mcclim/Backends/beagle/native/lisp-window-delegate.lisp	Tue May 17 22:12:37 2005
@@ -47,20 +47,6 @@
 ;;; in the events.lisp file.
 ;;;
 
-#||
-
-(define-objc-method ((:void :window-did-expose notification) lisp-window-delegate)
-  (nslog (format nil "LISP-WINDOW-DELEGATE: received windowDidExpose event"))
-  (nslog (format nil "Notification name is: ~A" (description (send notification 'name))))
-  ;; Window extents should be non-nil in this case... We can get an NSExposedRect out of the userInfo
-  ;; dictionary in the notification and pass this back to CLIM. Should speed things up a little...
-  #+nyi (slet ((rect (send (send notification 'object) 'frame)))
-    (add-notification-to-queue (send notification 'object) notification
-			       (pref rect :<NSR>ect.origin.x)
-			       (pref rect :<NSR>ect.origin.y)
-			       (pref rect :<NSR>ect.size.width)
-			       (pref rect :<NSR>ect.size.height))))
-||#
 
 (define-objc-method ((:void :window-did-resize notification) lisp-window-delegate)
 ;;;  (nslog (format nil "LISP-WINDOW-DELEGATE: received windowDidResize event"))
@@ -73,7 +59,14 @@
 			       (pref rect :<NSR>ect.size.width)
 			       (pref rect :<NSR>ect.size.height))))
 
+(define-objc-method ((:void :window-did-become-key notification) lisp-window-delegate)
+  (add-notification-to-queue (send notification 'object) notification))
+
+;;; No notifications below this point that we're interested in.
 #||
+
+;;; ... although this one might be useful. Especially wrt native cut&paste.
+
 (define-objc-method ((:void :window-will-close notification) lisp-window-delegate)
   (nslog (format nil "LISP-WINDOW-DELEGATE: received windowWillClose event"))
   (nslog (format nil "Notification name is: ~A" (description (send notification 'name))))
@@ -86,9 +79,6 @@
 
 ||#
 
-(define-objc-method ((:void :window-did-become-key notification) lisp-window-delegate)
-  (nslog (format nil "LISP-WINDOW-DELEGATE: received windowDidBecomeKey event"))
-  (add-notification-to-queue (send notification 'object) notification))
 
 #||
 (define-objc-method ((:void :window-did-change-screen notification) lisp-window-delegate)
@@ -148,6 +138,20 @@
 ;;;  (nslog (format nil "LISP-WINDOW-DELEGATE: received windowDidWillResize event"))
 ;;;  size)
 ;;;  (send-super :window-will-resize ns-window :to-size size))
+
+
+
+;;;(define-objc-method ((:void :window-did-expose notification) lisp-window-delegate)
+;;;  (nslog (format nil "LISP-WINDOW-DELEGATE: received windowDidExpose event"))
+;;;  (nslog (format nil "Notification name is: ~A" (description (send notification 'name))))
+;;;  ;; Window extents should be non-nil in this case... We can get an NSExposedRect out of the userInfo
+;;;  ;; dictionary in the notification and pass this back to CLIM. Should speed things up a little...
+;;;  #+nyi (slet ((rect (send (send notification 'object) 'frame)))
+;;;    (add-notification-to-queue (send notification 'object) notification
+;;;                               (pref rect :<NSR>ect.origin.x)
+;;;                               (pref rect :<NSR>ect.origin.y)
+;;;                               (pref rect :<NSR>ect.size.width)
+;;;                               (pref rect :<NSR>ect.size.height))))