[mcclim-cvs] CVS mcclim/Backends/beagle/windowing

[rschlatte]

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