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