Christophe Rhodes <csr21@cam.ac.uk> writes:
Paolo Amoroso <amoroso@mclink.it> writes: [...]
Can you try running the clim-listener single-threaded, please -- there
Do you mean starting the Listener like this?
(clim-listener:run-listener)
If so, I already did this for these tests.
Well, maybe, but the backtrace you provided indicates that multithreading was running. Could you turn it off completely, please?
To do these tests I start CMUCL with CLX, load the CLIM Listener with: (asdf:operate 'asdf:load-op :mcclim) and start it with: (clim-listener:run-listener) Just before starting the Listener, the state of CMUCL multithreading is as follows: * (mp:show-processes) -> #<Process Initial {58B8442D}> "Run" ACTIVE NIL * Is multithreading running at this stage? If so, how do I turn it off?
Oh, yes, CMUCL's clx doesn't have this useful feature. Please replace the call to OPEN-DEFAULT-DISPLAY with however you manage to open displays; maybe (open-display "localhost") or (open-display "your-host-name") or (open-display "").
I replaced it with (open-display "localhost") and run the test, i.e. started the program, left clicked in its window, and midlle-clicked in a Konsole. The pasted string is: Hello, World (from the CLX clipboard)! Just after starting the program, the output is: * (clipboard:main) PropertyNotify :_KDE_NET_WM_USER_CREATION_TIME :NEW-VALUE PropertyNotify :_NET_WM_DESKTOP :NEW-VALUE PropertyNotify :_KDE_NET_WM_FRAME_STRUT :NEW-VALUE PropertyNotify :_NET_WM_ALLOWED_ACTIONS :NEW-VALUE PropertyNotify :WM_STATE :NEW-VALUE PropertyNotify :_NET_WM_STATE :NEW-VALUE PropertyNotify :_NET_WM_ICON_GEOMETRY :NEW-VALUE PropertyNotify :_NET_WM_ICON_GEOMETRY :NEW-VALUE ButtonPress When left clicking, an endless loop displaying messages like this starts:
set-selection-owner SelectionRequest :PRIMARY :TIMESTAMP :KLIPPER sending none SelectionRequest :PRIMARY :TARGETS :_QT_SELECTION sending targets list SelectionRequest :PRIMARY :STRING :_QT_SELECTION sending text data SelectionRequest :PRIMARY :TIMESTAMP :KLIPPER sending none SelectionRequest :PRIMARY :TARGETS :_QT_SELECTION sending targets list SelectionRequest :PRIMARY :STRING :_QT_SELECTION sending text data SelectionRequest :PRIMARY :TIMESTAMP :KLIPPER sending none SelectionRequest :PRIMARY :TARGETS :_QT_SELECTION sending targets list SelectionRequest :PRIMARY :STRING :_QT_SELECTION sending text data SelectionRequest :PRIMARY :TIMESTAMP :KLIPPER sending none PropertyNotify :_NET_WM_ICON_GEOMETRY :NEW-VALUE SelectionRequest :PRIMARY :TARGETS :_QT_SELECTION sending targets list SelectionRequest :PRIMARY :STRING :_QT_SELECTION sending text data SelectionRequest :PRIMARY :TARGETS :_QT_SELECTION sending targets list SelectionRequest :PRIMARY :STRING :_QT_SELECTION sending text data SelectionRequest :PRIMARY :TIMESTAMP :KLIPPER sending none [...]
Paolo -- Lisp Propulsion Laboratory log - http://www.paoloamoroso.it/log