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