[mcclim-cvs] CVS mcclim/Backends/Null

[crhodes]

Update of /project/mcclim/cvsroot/mcclim/Backends/Null
In directory clnet:/tmp/cvs-serv16608/Backends/Null

Modified Files:
	port.lisp 
Log Message:
New click-to-focus policy for text-editor gadgets and panes, implemented
for the CLX, Null and gtkairo backends (but gtk_window_get_focus() 
hand-inserted into gtkairo/ffi.lisp).

PORT-KEYBOARD-INPUT-FOCUS is now a trampoline to 
PORT-FRAME-KEYBOARD-INPUT-FOCUS, a per-port function to set the keyboard 
focus for a particular frame.  Not implemented for Beagle or OpenGL 
backends.

Now Drei / Goatee gadgets don't have to do their own keyboard 
focus handling on arm/disarm any more.  Various kludges sprinkled all 
over the place to make this so.


--- /project/mcclim/cvsroot/mcclim/Backends/Null/port.lisp	2006/10/29 00:21:35	1.2
+++ /project/mcclim/cvsroot/mcclim/Backends/Null/port.lisp	2007/02/07 12:44:19	1.3
@@ -155,9 +155,16 @@
 (defmethod synthesize-pointer-motion-event ((pointer null-pointer))
   ())
 
-;;; Set the keyboard input focus for the port.
+(defmethod port-frame-keyboard-input-focus ((port null-port) frame)
+  (frame-properties frame 'focus))
+(defmethod (setf port-frame-keyboard-input-focus) 
+    (focus (port null-port) frame)
+  (setf (frame-properties frame 'focus) focus))
 
-(defmethod %set-port-keyboard-focus (focus (port null-port) &key timestamp)
+(defmethod (setf port-keyboard-input-focus) (focus (port null-port))
+  focus)
+
+(defmethod port-keyboard-input-focus ((port null-port))
   ())
 
 (defmethod port-force-output ((port null-port))