Update of /project/mcclim/cvsroot/mcclim/Backends/beagle/windowing In directory clnet:/tmp/cvs-serv30166/Backends/beagle/windowing
Modified Files: port.lisp Log Message: Beagle backend fixes * functionality not tested, but it loads under clozure cl snapshot * Patches by Greg Pfeil
Signed-off-by: Rudi Schlatte rudi@constantly.at
--- /project/mcclim/cvsroot/mcclim/Backends/beagle/windowing/port.lisp 2006/03/24 11:18:27 1.6 +++ /project/mcclim/cvsroot/mcclim/Backends/beagle/windowing/port.lisp 2007/12/18 10:54:22 1.7 @@ -234,3 +234,11 @@ (declare (ignore port)) nil)
+(defmethod port-frame-keyboard-input-focus ((port beagle-port) frame) + (declare (ignore frame)) + (beagle-port-key-focus port)) + +(defmethod (setf port-frame-keyboard-input-focus) + (focus (port beagle-port) frame) + (declare (ignore frame)) + (%set-port-keyboard-focus port focus))