Update of /project/mcclim/cvsroot/mcclim/Backends/CLX In directory common-lisp.net:/tmp/cvs-serv6179
Modified Files: port.lisp Log Message: Fix to send-selection to make requests for :STRING and :TEXT work correctly.
Date: Sat Dec 11 22:15:23 2004 Author: ahefner
Index: mcclim/Backends/CLX/port.lisp diff -u mcclim/Backends/CLX/port.lisp:1.99 mcclim/Backends/CLX/port.lisp:1.100 --- mcclim/Backends/CLX/port.lisp:1.99 Tue Dec 7 05:49:51 2004 +++ mcclim/Backends/CLX/port.lisp Sat Dec 11 22:15:22 2004 @@ -1371,14 +1371,14 @@ (xlib:change-property requestor property (utf-8-encode (concatenate 'vector (map 'vector #'char-code string))) - #|(list #x20AC) (list #x2261)|# - :UTF8_STRING ;### + ;;:UTF8_STRING ;### + target 8) (xlib:send-event requestor :selection-notify nil :window requestor :selection :primary - :target :UTF8_STRING ;;target (?) + :target target ;; :UTF8_STRING :property property :time time)) ((member target '(:COMPOUND_TEXT))