[mcclim-devel] Copying text to clipboard loops displaying messages to Konsole

[Paolo Amoroso]

Christophe Rhodes <csr21 at 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]
--------------------------------------------------------------------------

-- 
Lisp Propulsion Laboratory log - http://www.paoloamoroso.it/log