Christophe Rhodes csr21@cam.ac.uk writes:
If it's still not working for you, could you please try the attached patch?
With the latest McCLIM CVS sources, I can correctly paste text from the CLIM Listener to a Konsole. But I get an endless stream of identical messages like this in the Konsole from which I start McCLIM:
<CLIM-CLX::CLX-SELECTION-REQUEST-EVENT {59E5A935}> is an instance of type CLX-SELECTION-REQUEST-EVENT it has the following slots: TIMESTAMP: 3664352 SHEET: #<CLIM:INTERACTOR-PANE CLIM-LISTENER::INTERACTOR {59EC4F6D}> REGION: <unbound> SELECTION: :PRIMARY REQUESTOR: #<XLIB:WINDOW :0 31457298> TARGET: :COMPOUND_TEXT PROPERTY: :_QT_SELECTION ;; clim-clx::send-selection - Requested target COMPOUND_TEXT, sent COMPOUND_TEXT to property _QT_SELECTION.
If this fails to work correctly, could you provide me with a few more
With your patch applied to the latest CVS sources, when I Shift-middle-click to paste some text from the CLIM Listener to a Konsole, the Listener and the Konsole hang for a few tens of seconds and then I get the message, error and backtrace included below.
details about your setup? You're working in Konsole -- could you tell me also what your LANG and LC_ALL settings are, and what the following
LANG: en_US. LC_ALL is not set.
program produces?
#include <stdlib.h> #include <langinfo.h>
int main () { printf("CODESET: %s\n", nl_langinfo(CODESET)); }
It produces:
CODESET: ANSI_X3.4-1968
I use KDE 3.2.3.
Paolo
-------------------------------------------------------------------------- #<CLIM-CLX::CLX-SELECTION-REQUEST-EVENT {59F6E7A5}> is an instance of type CLX-SELECTION-REQUEST-EVENT it has the following slots: TIMESTAMP: 2845031 SHEET: #<CLIM:INTERACTOR-PANE CLIM-LISTENER::INTERACTOR {59730C45}> REGION: <unbound> SELECTION: :PRIMARY REQUESTOR: #<XLIB:WINDOW :0 31457298> TARGET: :TARGETS PROPERTY: :_QT_SELECTION ;; clim-clx::send-selection - Requested target TARGETS, sent TARGETS to property _QT_SELECTION. Received CLX LENGTH-ERROR in process "#<CLIM-CLX::CLX-PORT :HOST "" :DISPLAY-ID 0 {5832166D}>'s event process."
Asynchronous LENGTH-ERROR in request 10634 (last request was 10635) Code 110.0 [ListHosts] [Condition of type XLIB:LENGTH-ERROR]
Restarts: 0: [CONTINUE ] Ignore 1: [RESTART-EVENT-LOOP] Restart CLIM's event loop. 2: [DESTROY ] Destroy the process
Debug (type H for help)
(XLIB::READ-ERROR-INPUT #<XLIB:DISPLAY :0 (The X.Org Foundation R60700000)> 10634 #S(XLIB::REPLY-BUFFER :SIZE 32 :IBUF8 #(0 16 138 41 38 ...) :NEXT #S(XLIB::REPLY-BUFFER :SIZE 32 :IBUF8 # :NEXT # :DATA-SIZE 32) :DATA-SIZE 32) #<Process #<CLIM-CLX::CLX-PORT :HOST "" :DISPLAY-ID 0 {5832166D}>'s event process. {59729FED}>) Source: Error finding source: Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM: Source file no longer exists: target:clx/input.lisp. 0] backtrace
0: (XLIB::READ-ERROR-INPUT #<XLIB:DISPLAY :0 (The X.Org Foundation R60700000)> 10634 #S(XLIB::REPLY-BUFFER :SIZE 32 :IBUF8 #(0 16 138 41 38 ...) :NEXT #S(XLIB::REPLY-BUFFER :SIZE 32 :IBUF8 # :NEXT # :DATA-SIZE 32) :DATA-SIZE 32) #<Process #<CLIM-CLX::CLX-PORT :HOST "" :DISPLAY-ID 0 {5832166D}>'s event process. {59729FED}>) 1: (XLIB::READ-INPUT #<XLIB:DISPLAY :0 (The X.Org Foundation R60700000)> NIL NIL #<Function "DEFUN READ-REPLY" {592186B1}> ...) 2: (XLIB::READ-REPLY #<XLIB:DISPLAY :0 (The X.Org Foundation R60700000)> #S(XLIB::PENDING-COMMAND :SEQUENCE 10635 :REPLY-BUFFER NIL :PROCESS #<Process #<CLIM-CLX::CLX-PORT :HOST "" :DISPLAY-ID 0 {5832166D}>'s event process. {59729FED}> :NEXT NIL)) 3: (XLIB::WITH-BUFFER-REQUEST-AND-REPLY-FUNCTION #<XLIB:DISPLAY :0 (The X.Org Foundation R60700000)> NIL #<Function (FLET XLIB::.REQUEST-BODY. XLIB:DISPLAY-FINISH-OUTPUT) {5914D091}> #<Function (FLET XLIB::.REPLY-BODY. XLIB:DISPLAY-FINISH-OUTPUT) {5914D051}>) 4: (XLIB:DISPLAY-FINISH-OUTPUT #<XLIB:DISPLAY :0 (The X.Org Foundation R60700000)>) 5: ((METHOD CLIM-BACKEND:GET-NEXT-EVENT NIL (CLIM-CLX::CLX-PORT)) (#(14) . #()) #<unused-arg> #<CLIM-CLX::CLX-PORT :HOST "" :DISPLAY-ID 0 {5832166D}> (:WAIT-FUNCTION NIL :TIMEOUT NIL)) 6: ("LAMBDA (.KEYARGS-START. .VALID-KEYS. G6851 G6852 G6853)" #<unused-arg> #<unused-arg> #<CLIM-CLX::CLX-PORT :HOST "" :DISPLAY-ID 0 {5832166D}> (:WAIT-FUNCTION NIL :TIMEOUT NIL)) 7: ((METHOD CLIM:PROCESS-NEXT-EVENT NIL (CLIM:BASIC-PORT)) (#() . #(#)) #<unused-arg> #<CLIM-CLX::CLX-PORT :HOST "" :DISPLAY-ID 0 {5832166D}> NIL) 8: ("DEFMETHOD INITIALIZE-CLX (CLX-PORT)") 9: ("DEFUN MAKE-PROCESS")
0] --------------------------------------------------------------------------