Commit eb29cb6a authored by csr21's avatar csr21
Browse files

Fix clipboard handling according to

Fix clipboard handling according to
<http://bugzilla.gnome.org/show_bug.cgi?id9844>

darcs-hash:20041129161405-ed5a3-f3e650654e02fd1f415617ddf14806a3ad1c9296.gz
parent 47dc55f6
-*- Text -*- -*- Text -*-
--- Changes in SBCL CLX 0.6.1, FILL IN TIMESTAMP ---
The ICCCM-compliant selection handling in demo/clipboard.lisp is now
more ICCCM-compliant.
--- Changes in SBCL CLX 0.6, Tue Nov 16 2004 --- --- Changes in SBCL CLX 0.6, Tue Nov 16 2004 ---
A port to ECL has been merged (Juan Jose Garcia Ripoll) A port to ECL has been merged (Juan Jose Garcia Ripoll)
......
...@@ -20,6 +20,12 @@ ...@@ -20,6 +20,12 @@
;;; flipped on that most clients select on at least one of those ;;; flipped on that most clients select on at least one of those
;;; events. This bug is fixed below. ;;; events. This bug is fixed below.
;;; ;;;
;;; * [ Update 2004-11-29, superseding to some extent the above ] in
;;; fact, these two things are related. ICCCM says that the event
;;; disclaiming the ability to send in a given format should be sent
;;; with an empty event mask ("2.2 Responsibilities of the Selection
;;; Owner").
;;;
;;; As ever with these things, the divisions in intellectual property ;;; As ever with these things, the divisions in intellectual property
;;; between the writer of the original C program, Tor Andersson ;;; between the writer of the original C program, Tor Andersson
;;; (contactable at tor [dot] andersson [at] gmail [dot] com) and the ;;; (contactable at tor [dot] andersson [at] gmail [dot] com) and the
...@@ -106,16 +112,7 @@ ...@@ -106,16 +112,7 @@
(defun send-copy (selection target property requestor time) (defun send-copy (selection target property requestor time)
(case target (case target
;; we are being a little liberal in what we accept here: no ((:string)
;; requestor should ask us for a UTF8_STRING selection because we
;; don't advertise the capability (see the TARGETS clause below).
;; However, Xt-based requestors appear not to query TARGETS,
;; instead trying UTF8_STRING, COMPOUND_TEXT and STRING in order;
;; Gdk-based requestors don't query TARGETS either, trying just
;; UTF8_STRING (and giving up if the selection owner returns a
;; null property). So pretend that we can send UTF8_STRING
;; selections.
((:string :utf8_string)
(format t "~&> sending text data~%") (finish-output) (format t "~&> sending text data~%") (finish-output)
(change-property requestor property (change-property requestor property
"Hello, World (from the CLX clipboard)!" target 8 "Hello, World (from the CLX clipboard)!" target 8
...@@ -127,8 +124,7 @@ ...@@ -127,8 +124,7 @@
(t (t
(format t "~&> sending none~%") (finish-output) (format t "~&> sending none~%") (finish-output)
(setf property nil))) (setf property nil)))
(send-event requestor :selection-notify (send-event requestor :selection-notify (make-event-mask)
(make-event-mask :button-press :property-change)
:selection selection :target target :property property :time time :selection selection :target target :property property :time time
:event-window requestor :window requestor)) :event-window requestor :window requestor))
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment