[mcclim-cvs] CVS update: mcclim/Backends/CLX/port.lisp

[Andy Hefner]

Update of /project/mcclim/cvsroot/mcclim/Backends/CLX
In directory common-lisp.net:/tmp/cvs-serv13053/Backends/CLX

Modified Files:
	port.lisp 
Log Message:
Fix mixed up arguments to set-port-keyboard-focus.

Renamed set-port-keyboard-focus to %set-port-keyboard-focus to avoid
confusion with the CLIM 2.0 function port-keyboard-input-focus.

Added a timestamp keyword to %set-port-keyboard-focus (not used by 
any callers yet).

Added some comments about how the keyboard focus functions are connected.


Date: Tue Feb 22 04:14:28 2005
Author: ahefner

Index: mcclim/Backends/CLX/port.lisp
diff -u mcclim/Backends/CLX/port.lisp:1.106 mcclim/Backends/CLX/port.lisp:1.107
--- mcclim/Backends/CLX/port.lisp:1.106	Thu Feb 10 10:54:27 2005
+++ mcclim/Backends/CLX/port.lisp	Tue Feb 22 04:14:28 2005
@@ -1230,16 +1230,13 @@
 	       ;; reasonable timestamp.
 	       :timestamp 0))))))))
   
-  
-  
 
 ;;; Set the keyboard input focus for the port.
-;;; (oops, we lose the timestamp here.)
 
-(defmethod set-port-keyboard-focus (focus (port clx-port))
+(defmethod %set-port-keyboard-focus ((port clx-port) focus &key timestamp)
   (let ((mirror (sheet-mirror focus)))
     (when mirror
-      (xlib:set-input-focus (clx-port-display port) mirror :parent nil))))
+      (xlib:set-input-focus (clx-port-display port) mirror :parent timestamp))))
 
 (defmethod port-force-output ((port clx-port))
   (xlib:display-force-output (clx-port-display port)))