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