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

Modified Files: port.lisp Log Message: SEND-SELECTION: selection slot of ;selection-notify event now matches selection event.

Date: Mon Nov 28 13:58:18 2005 Author: gbaumann

Index: mcclim/Backends/CLX/port.lisp diff -u mcclim/Backends/CLX/port.lisp:1.112 mcclim/Backends/CLX/port.lisp:1.113 --- mcclim/Backends/CLX/port.lisp:1.112 Thu Jun 16 11:27:49 2005 +++ mcclim/Backends/CLX/port.lisp Mon Nov 28 13:58:18 2005 @@ -1431,8 +1431,7 @@ ;;; TODO: INCR property? ;;; ;;; FIXME: per ICCCM we MUST support :MULTIPLE -(defmethod send-selection - ((port clx-port) (event clx-selection-request-event) string) +(defmethod send-selection ((port clx-port) (event clx-selection-request-event) string) (let ((requestor (selection-event-requestor event)) (property (selection-event-property event)) (target (selection-event-target event)) @@ -1447,17 +1446,17 @@ ;; debugging output, but the KDE Klipper client turns out ;; to poll other clients for selection, which means it ;; would be bad to print at every request. - #+nil + #+nil (format *trace-output* - "~&;; clim-clx::send-selection - Requested target ~A, sent ~A to property ~A.~%" + "~&;; clim-clx::send-selection - Requested target ~A, sent ~A to property ~A. time ~S~%" (selection-event-target event) target - property) + property time) (xlib:send-event requestor :selection-notify nil :window requestor :event-window requestor - :selection :primary + :selection (climi::selection-event-selection event) :target target :property property :time time)))