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))