- mcclim-devel - mailman3.common-lisp.net

[mcclim-devel] MORE ALIENS (or Freetype on SBCL)
by Brian Mastenbrook 17 Feb '05

17 Feb '05

A little bit ago I tried looking into Freetype on SBCL. I got to the point where after some random amount of fooling around with recompiling forms from SLIME, it works - but not by default; it appears to either have some invisible problems with alien struct circularity, or I'm just being boneheaded about something. The latest tarball of my progress is here: http://www.unmutual.info/software/freetype.tar.gz To use this, remove Experimental/freetype from your McCLIM tree and replace it with the result of untarring this. The mcclim-freetype.asd system should load everything, but compilation of freetype-fonts.lisp will fail due to alien type problems. Your mission, should you choose to accept it, is to figure out why SBCL doesn't understand that the alien type face is more than just (struct face-rec-); it must have slots as well. Good luck! -- Brian Mastenbrook bmastenb(a)cs.indiana.edu http://cs.indiana.edu/~bmastenb/

1 0

[mcclim-devel] Patch for gadgets.lisp
by Anthony Juckel 17 Feb '05

17 Feb '05

Attached is a simple patch to fix a problem I was having with gadget-output-record after the recent change in standard-rectangle from individual slots to a coordinates slot. Anthony W. Juckel

1 0

[mcclim-devel] Install instructions for mcclim.asd
by Andreas Fuchs 16 Feb '05

16 Feb '05

Hi, (this will probably morph into some form of INSTALL file, hopefully before the release happens. Feedback appreciated (-:) Installing McCLIM using mcclim.asd ================================== To tell ASDF about the wherabouts of McCLIM and to compile it for the first time, perform these steps: 1. Symlink mcclim.asd to a directory in your asdf:*central-repository* list. E.g., for SBCL, that would be: $ ln -sf /path/to/mcclim.asd ~/.sbcl/systems/ 2. If you are using a Lisp implementation that requires a separate CLX to be installed, do this now and symlink the clx's .asd file to your asdf:*central-repository*, as above. 3. On your Lisp's REPL (with ASDF loaded), type (asdf:oos 'asdf:load-op :mcclim) ; compilation messages should zip past After step 3, McCLIM and a suitable backend should be loaded and you are good to go. When you restart your lisp image, you will need to perform step 3 to load McCLIM again. Installing mcclim.asd if you were using ASDF & system.lisp before ================================================================= Make sure to remove all symlinks in your asdf:*central-repository* to system.lisp and replace them with symlinks to mcclim.asd. Keeping the old links around will break loading the McCLIM system in subtle ways. After replacing the symlinks, follow the "Installing McCLIM..." section above, beginning at step 1 - the symlink mcclim.asd itself is required, too. Writing a system that depends on McCLIM ======================================= In an ASDF system that depends on a loaded CLIM, use the following code to declare a dependency on McCLIM: (defsystem :your-clim-using-system :depends-on (:mcclim #| other dependencies |#) :components (#| components |#) ) The dependency on the McCLIM system will also load a suitable display backend on implementations where it can determine one. Have fun, -- Andreas Fuchs, <asf(a)boinkor.net>, asf(a)jabber.at, antifuchs

1 0

[mcclim-devel] Statement of intent: release McCLIM on Mothering Sunday (2005-03-06)
by Andreas Fuchs 16 Feb '05

16 Feb '05

Hi all, I'd like to use my new-found McCLIM committer powers to push a new release of McCLIM out the door. This is the schedule that Xophe came up with on #lisp a few days ago (augmented with real dates): * Freeze McCLIM proper on 2005-02-21 * Freeze Apps/ and Examples/ on 2005-02-28 * Release on 2005-03-06 If that isn't messing with anybody's plans, I'd like to stick to that schedule and upload a nice official tarball in the end. (-: If this release goes well, we could try a bi-monthly release schedule based on that - hack a 6 weeks, freeze two (or just one) weeks, release. Evidence from the mcclim-cvs list archive of the last few months suggests that this could provide usable snapshots of a steadily progressing McCLIM. Happy hacking, -- Andreas Fuchs, <asf(a)boinkor.net>, asf(a)jabber.at, antifuchs

8 13

[mcclim-devel] No presentation type error for STANDARD-GENERIC-FUNCTION when running inspector example
by Paolo Amoroso 15 Feb '05

15 Feb '05

When I run this sample inspector form: (clouseau:inspector #'documentation) from the Clouseau documentation in Apps/Inspector/INSTALL, I get the error and backtrace included below. I use the latest McCLIM CVS sources (rebuilt from source after deleting old fasl files) with CMUCL Snapshot 2005-02 under Slackware Linux 10.0. Paolo ------------------------------------------------------------------------- Error in function CLIM-INTERNALS::PROTOTYPE-OR-ERROR: STANDARD-GENERIC-FUNCTION is an unknown presentation type [Condition of type SIMPLE-ERROR] Restarts: 0: [ABORT] Return to application command loop 1: Return to Top-Level. Debug (type H for help) (CLIM-INTERNALS::PROTOTYPE-OR-ERROR STANDARD-GENERIC-FUNCTION) Source: ; File: /home/paolo/src/mcclim/presentations.lisp (ERROR "~S is an unknown presentation type" NAME) 0] backtrace 0: (CLIM-INTERNALS::PROTOTYPE-OR-ERROR STANDARD-GENERIC-FUNCTION) 1: (CLIM-INTERNALS::PRESENTATION-CONTAINS-POSITION #<CLIM:STANDARD-PRESENTATION 0.0:400,0.0:365.0 STANDARD-GENERIC-FUNCTION {58242285}> 367 296) 2: (CLIM-INTERNALS::MAP-OVER-PRESENTATIONS-CONTAINING-POSITION #<Closure Over Function "DEFUN MAP-APPLICABLE-TRANSLATORS" {58727589}> #<CLIM:STANDARD-PRESENTATION 0.0:400,0.0:365.0 STANDARD-GENERIC-FUNCTION {58242285}> 367 296) 3: ((METHOD CLIM:MAP-OVER-OUTPUT-RECORDS-CONTAINING-POSITION NIL (T CLIM:STANDARD-SEQUENCE-OUTPUT-RECORD T T)) (#(6) . #()) #<unused-arg> #<Closure Over Function "DEFUN MAP-OVER-PRESENTATIONS-CONTAINING-POSITION" {587275C1}> #<CLIM:STANDARD-TREE-OUTPUT-HISTORY X 0.0:400 Y 0.0:365.0 {5816BCED}> ...) 4: (CLIM-INTERNALS::MAP-OVER-PRESENTATIONS-CONTAINING-POSITION #<Closure Over Function "DEFUN MAP-APPLICABLE-TRANSLATORS" {58727589}> #<CLIM:STANDARD-TREE-OUTPUT-HISTORY X 0.0:400 Y 0.0:365.0 {5816BCED}> 367 296) 5: (CLIM-INTERNALS::MAP-APPLICABLE-TRANSLATORS #<Closure Over Function "DEFUN FIND-INNERMOST-PRESENTATION-MATCH" {58727559}> #<CLIM:STANDARD-TREE-OUTPUT-HISTORY X 0.0:400 Y 0.0:365.0 {5816BCED}> ((# . #) (# . #) (CLIM:MENU-ITEM . #)) #<CLOUSEAU:INSPECTOR {58EEFEF5}> ...) 6: (CLIM-INTERNALS::FIND-INNERMOST-PRESENTATION-MATCH ((# . #) (# . #) (CLIM:MENU-ITEM . #)) #<CLIM:STANDARD-TREE-OUTPUT-HISTORY X 0.0:400 Y 0.0:365.0 {5816BCED}> #<CLOUSEAU:INSPECTOR {58EEFEF5}> #<CLIM:APPLICATION-PANE CLOUSEAU::APP {581199FD}> ...) 7: (CLIM:FIND-INNERMOST-APPLICABLE-PRESENTATION ((# . #) (# . #) (CLIM:MENU-ITEM . #)) #<CLIM:APPLICATION-PANE CLOUSEAU::APP {581199FD}> 367 296 ...) 8: (CLIM-INTERNALS::FRAME-HIGHLIGHT-AT-POSITION #<CLOUSEAU:INSPECTOR {58EEFEF5}> #<CLIM:APPLICATION-PANE CLOUSEAU::APP {581199FD}> 367 296 ...) 9: ((METHOD CLIM-INTERNALS::FRAME-INPUT-CONTEXT-TRACK-POINTER (:BEFORE) (CLIM:STANDARD-APPLICATION-FRAME T CLIM:OUTPUT-RECORDING-STREAM T)) #<unused-arg> #<unused-arg> #<CLOUSEAU:INSPECTOR {58EEFEF5}> ((# . #) (# . #) (CLIM:MENU-ITEM . #)) ...) 10: ("LAMBDA (G4238 G4239 G4240)" #<unused-arg> #<unused-arg> #<CLOUSEAU:INSPECTOR {58EEFEF5}> ((# . #) (# . #) (CLIM:MENU-ITEM . #)) ...) 11: (CLIM:HIGHLIGHT-APPLICABLE-PRESENTATION #<CLOUSEAU:INSPECTOR {58EEFEF5}> #<CLIM:INTERACTOR-PANE CLOUSEAU::INT {5800378D}> ((# . #) (# . #) (CLIM:MENU-ITEM . #)) T) 12: ((METHOD CLIM:STREAM-READ-GESTURE NIL (CLIM:STANDARD-EXTENDED-INPUT-STREAM)) (#(60) . #(#)) #<unused-arg> #<CLIM:INTERACTOR-PANE CLOUSEAU::INT {5800378D}> (:TIMEOUT NIL :INPUT-WAIT-TEST #<Function CLIM-INTERNALS::INPUT-CONTEXT-WAIT-TEST {1155E391}> :INPUT-WAIT-HANDLER ...)) 13: ((METHOD CLIM:STREAM-READ-GESTURE NIL (CLIM:STANDARD-INPUT-EDITING-STREAM)) (#(3 4 7 5 0 ...) . #()) #<unused-arg> #<CLIM:STANDARD-INPUT-EDITING-STREAM {58604CED}> (:TIMEOUT NIL :PEEK-P NIL :INPUT-WAIT-TEST ...)) 14: ((METHOD CLIM:STREAM-READ-GESTURE (:AROUND) (CLIM-INTERNALS::EMPTY-INPUT-MIXIN)) #<unused-arg> #S(PCL::FAST-METHOD-CALL :FUNCTION #<Function # {1142FC09}> :PV-CELL (# . #) :NEXT-METHOD-CALL #S(PCL::FAST-METHOD-CALL :FUNCTION # :PV-CELL # :NEXT-METHOD-CALL NIL :ARG-INFO #) :ARG-INFO (1 . T)) #<CLIM:STANDARD-INPUT-EDITING-STREAM {58604CED}> (:TIMEOUT NIL :PEEK-P NIL :INPUT-WAIT-TEST ...)) 15: (CLIM-INTERNALS::READ-COMPLETION-GESTURE #<CLIM:STANDARD-INPUT-EDITING-STREAM {58604CED}> (#\ ) T) 16: (CLIM:COMPLETE-INPUT #<CLIM:STANDARD-INPUT-EDITING-STREAM {58604CED}> #<Closure Over Function "DEFINE-PRESENTATION-METHOD ACCEPT" {58606E29}> :PARTIAL-COMPLETERS (#\ ) ...) 17: ((METHOD CLIM-INTERNALS::%ACCEPT NIL (CLIM-INTERNALS::|(presentation-type CLIM::COMMAND-NAME)| T T CLIM:TEXTUAL-VIEW)) #<unused-arg> #<unused-arg> #<CLIM-INTERNALS::|(presentation-type CLIM::COMMAND-NAME)| {28430CF5}> (CLIM:COMMAND-NAME :COMMAND-TABLE #<CLIM:STANDARD-COMMAND-TABLE CLOUSEAU:INSPECTOR {58C75FAD}>) ...) 18: ("DEFUN ACCEPT-1" #<CLIM:STANDARD-INPUT-EDITING-STREAM {58604CED}>) 19: (CLIM:ACCEPT (CLIM:COMMAND-NAME :COMMAND-TABLE #<CLIM:STANDARD-COMMAND-TABLE CLOUSEAU:INSPECTOR {58C75FAD}>) :STREAM #<CLIM:STANDARD-INPUT-EDITING-STREAM {58604CED}> :PROMPT ...) 20: (CLIM:COMMAND-LINE-COMMAND-PARSER #<CLIM:STANDARD-COMMAND-TABLE CLOUSEAU:INSPECTOR {58C75FAD}> #<CLIM:STANDARD-INPUT-EDITING-STREAM {58604CED}>) 21: ((METHOD CLIM-INTERNALS::%ACCEPT NIL (CLIM-INTERNALS::|(presentation-type CLIM::COMMAND)| T T CLIM:TEXTUAL-VIEW)) #<unused-arg> #<unused-arg> #<CLIM-INTERNALS::|(presentation-type CLIM::COMMAND)| {28430995}> (CLIM:COMMAND :COMMAND-TABLE #<CLIM:STANDARD-COMMAND-TABLE CLOUSEAU:INSPECTOR {58C75FAD}>) ...) 22: ("DEFUN ACCEPT-1" #<CLIM:STANDARD-INPUT-EDITING-STREAM {58604CED}>) 23: ((METHOD CLIM-INTERNALS::INVOKE-WITH-INPUT-EDITING NIL (CLIM:EXTENDED-INPUT-STREAM T T T T)) #<unused-arg> #<unused-arg> #<CLIM:INTERACTOR-PANE CLOUSEAU::INT {5800378D}> #<Closure Over Function "DEFUN ACCEPT-1" {586047F9}> ...) 24: ((METHOD CLIM-INTERNALS::INVOKE-WITH-INPUT-EDITING (:AROUND) (CLIM:EXTENDED-OUTPUT-STREAM T T T T)) (#(49) . #()) #S(PCL::FAST-METHOD-CALL :FUNCTION #<Function # {11539EC1}> :PV-CELL NIL :NEXT-METHOD-CALL #S(PCL::FAST-METHOD-CALL :FUNCTION # :PV-CELL NIL :NEXT-METHOD-CALL NIL :ARG-INFO #) :ARG-INFO (5)) #<CLIM:INTERACTOR-PANE CLOUSEAU::INT {5800378D}> #<Closure Over Function "DEFUN ACCEPT-1" {586047F9}> ...) 25: (CLIM:ACCEPT (CLIM:COMMAND :COMMAND-TABLE #<CLIM:STANDARD-COMMAND-TABLE CLOUSEAU:INSPECTOR {58C75FAD}>) :STREAM #<CLIM:INTERACTOR-PANE CLOUSEAU::INT {5800378D}> :PROMPT ...) 26: (CLIM:READ-COMMAND #<CLIM:STANDARD-COMMAND-TABLE CLOUSEAU:INSPECTOR {58C75FAD}> :STREAM #<CLIM:INTERACTOR-PANE CLOUSEAU::INT {5800378D}> :COMMAND-PARSER ...) 27: (CLIM:READ-COMMAND-USING-KEYSTROKES #<CLIM:STANDARD-COMMAND-TABLE CLOUSEAU:INSPECTOR {58C75FAD}> NIL :STREAM #<CLIM:INTERACTOR-PANE CLOUSEAU::INT {5800378D}> ...) 28: (CLIM:READ-COMMAND #<CLIM:STANDARD-COMMAND-TABLE CLOUSEAU:INSPECTOR {58C75FAD}> :STREAM #<CLIM:INTERACTOR-PANE CLOUSEAU::INT {5800378D}> :COMMAND-PARSER ...) 29: ((METHOD CLIM:READ-FRAME-COMMAND (:AROUND) (CLIM:APPLICATION-FRAME)) (#(5) . #()) #S(PCL::FAST-METHOD-CALL :FUNCTION #<Function # {11566721}> :PV-CELL (# . #) :NEXT-METHOD-CALL NIL :ARG-INFO (1 . T)) #<CLOUSEAU:INSPECTOR {58EEFEF5}> (:STREAM #<CLIM:INTERACTOR-PANE CLOUSEAU::INT {5800378D}>)) 30: ((METHOD CLIM:DEFAULT-FRAME-TOP-LEVEL NIL (CLIM:APPLICATION-FRAME)) (#() . #(# # # # # ...)) #<unused-arg> #<CLOUSEAU:INSPECTOR {58EEFEF5}> NIL) 31: ("LAMBDA (.KEYARGS-START. .VALID-KEYS. G4230)" #<unused-arg> #<unused-arg> #<CLOUSEAU:INSPECTOR {58EEFEF5}> NIL) 32: ((METHOD CLIM:RUN-FRAME-TOP-LEVEL NIL (CLIM:APPLICATION-FRAME)) (#(20) . #()) #<unused-arg> #<CLOUSEAU:INSPECTOR {58EEFEF5}> #<unused-arg>) 33: ((METHOD CLIM:RUN-FRAME-TOP-LEVEL (:AROUND) (CLIM:APPLICATION-FRAME)) (#(16 15) . #(#)) #S(PCL::FAST-METHOD-CALL :FUNCTION #<Function # {116898C1}> :PV-CELL (# . #) :NEXT-METHOD-CALL NIL :ARG-INFO (1 . T)) #<CLOUSEAU:INSPECTOR {58EEFEF5}> NIL) 34: ((FLET CLOUSEAU::RUN CLOUSEAU:INSPECTOR)) 35: (INTERACTIVE-EVAL (CLOUSEAU:INSPECTOR #'DOCUMENTATION)) 36: (LISP::%TOP-LEVEL) 37: ((LABELS LISP::RESTART-LISP SAVE-LISP)) 0] ------------------------------------------------------------------------- -- Lisp Propulsion Laboratory log - http://www.paoloamoroso.it/log

4 3

[mcclim-devel] draw-circle*
by Christophe Rhodes 14 Feb '05

14 Feb '05

Hi, Am I confused, or is something wrong? At the CLIM listener, (clim:draw-circle* *standard-output* 100 100 100) draws a big black circle at the top left of the pane. However, (clim:with-room-for-graphics (*standard-output*) (clim:draw-circle* *standard-output* 100 100 100)) leaves enough space for a circle, but doesn't actually draw anything visible. However, (clim:with-room-for-graphics (*standard-output*) (clim:draw-line* *standard-output* 0 0 100 100)) behaves much as I expect. Help? Cheers, Christophe

1 0

[mcclim-devel] Missing CLIMI::Y2 slot error when selecting text for copying
by Paolo Amoroso 14 Feb '05

14 Feb '05

When I run the CLIM Listener, evaluate (princ "Paolo"), Shift-left-button drag to select the previously output `Paolo' string for copying, and then release the shift key, I get the error with backtrace included below. I use the latest McCLIM CVS sources (rebuilt from source after deleting old fasl files) with CMUCL Snapshot 2005-02 under Slackware Linux 10.0. Paolo ---------------------------------------------------------------------- Error in function "DEFMETHOD SLOT-MISSING (T T T T)": When attempting to read the slot's value (slot-value), the slot CLIM-INTERNALS::Y2 is missing from the object #<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 0,17 ("Paolo") {582664A5}>. [Condition of type SIMPLE-ERROR] Restarts: 0: [RESTART-EVENT-LOOP] Restart CLIM's event loop. 1: [DESTROY ] Destroy the process Debug (type H for help) ("DEFMETHOD SLOT-MISSING (T T T T)" #<unused-arg> #<unused-arg> #<unused-arg> #<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 0,17 ("Paolo") {582664A5}> ...) Source: Error finding source: Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM: Source file no longer exists: target:pcl/slots.lisp. 0] backtrace 0: ("DEFMETHOD SLOT-MISSING (T T T T)" #<unused-arg> #<unused-arg> #<unused-arg> #<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 0,17 ("Paolo") {582664A5}> ...) 1: (SLOT-VALUE #<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 0,17 ("Paolo") {582664A5}> CLIM-INTERNALS::Y2) 2: ("DEFUN FETCH-SELECTION" #<CLIM-INTERNALS::STRING-MARKING {58974585}>) 3: (MAP NIL #<Closure Over Function "DEFUN FETCH-SELECTION" {58A00559}> (#<CLIM-INTERNALS::STRING-MARKING {58974585}>)) 4: (CLIM-INTERNALS::FETCH-SELECTION #<CLIM:INTERACTOR-PANE CLIM-LISTENER::INTERACTOR {58F362B5}>) 5: ((METHOD CLIM:DISPATCH-EVENT (:AROUND) (CLIM-INTERNALS::CUT-AND-PASTE-MIXIN CLIM-BACKEND:SELECTION-REQUEST-EVENT)) #<unused-arg> #<unused-arg> #<CLIM:INTERACTOR-PANE CLIM-LISTENER::INTERACTOR {58F362B5}> #<CLIM-CLX::CLX-SELECTION-REQUEST-EVENT {58A0000D}>) 6: ((METHOD CLIM:PROCESS-NEXT-EVENT NIL (CLIM:BASIC-PORT)) (#() . #(#)) #<unused-arg> #<CLIM-CLX::CLX-PORT :HOST "" :DISPLAY-ID 0 {5810715D}> NIL) 7: ("DEFMETHOD INITIALIZE-CLX (CLX-PORT)") 8: ("DEFUN MAKE-PROCESS") 0] ---------------------------------------------------------------------- -- Lisp Propulsion Laboratory log - http://www.paoloamoroso.it/log

2 1

[mcclim-devel] CLX clear-area breakage
by Nyef 11 Feb '05

11 Feb '05

Hello all. medium-clear-area in Backends/CLX/medium.lisp isn't doing a transform from medium to device coordinates, nor is it clipping the coordinates to the limits allowed by CLX. This causes window-clear on streams with more than about 2800 lines (maybe less!) to break. Attached is a patch which should fix this. -- --Alastair Bridgewater

1 0

[mcclim-devel] X window manager focus
by Christophe Rhodes 09 Feb '05

09 Feb '05

Hi, Relatedly to my last message, I believe that there is another ICCCM compliance issue in the CLX backend: this one is probably related to window manager focus glitches. Given a focus-follows-mouse setup, the following occurs when I mouse into a McCLIM window: 0: (CLIM-CLX::PORT-CLIENT-MESSAGE #<CLIM-INTERNALS::TOP-LEVEL-SHEET-PANE CLIM-INTERNALS::TOP-LEVEL-SHEET {1000671781}> NIL :WM_PROTOCOLS #(230 2313329802 7859248 7859248 2313329802)) 1: (CLIM-CLX::PORT-WM-PROTOCOLS-MESSAGE #<CLIM-INTERNALS::TOP-LEVEL-SHEET-PANE CLIM-INTERNALS::TOP-LEVEL-SHEET {1000671781}> NIL :WM_TAKE_FOCUS #(230 2313329802 7859248 7859248 2313329802)) 1: CLIM-CLX::PORT-WM-PROTOCOLS-MESSAGE returned NIL 0: CLIM-CLX::PORT-CLIENT-MESSAGE returned NIL where again the relevant part is that the timestamp passed down is NIL. ICCCM has this to say (section 4.1.7): Clients that use a SetInputFocus request must set the time field to the timestamp of the event that caused them to make the attempt. This cannot be a FocusIn event because they do not have timestamps. Clients may also acquire the focus without a corresponding EnterNotify. Note that clients must not use CurrentTime in the time field. so the call to XLIB:SET-INPUT-FOCUS in the PORT-WM-PROTOCOLS-MESSAGE for :WM_TAKE_FOCUS (Backends/CLX/port.lisp) is doomed, at the moment, to violate ICCCM. However, if I'm reading this right, the WM_TAKE_FOCUS client message has the timestamp we want to pass to SET-INPUT-FOCUS in its data field somewhere: Windows with the atom WM_TAKE_FOCUS in their WM_PROTOCOLS property may receive a ClientMessage event from the window manager (as described in section 4.2.8) with WM_TAKE_FOCUS in its data[0] field and a valid timestamp (i.e. not CurrentTime) in its data[1] field. If they want the focus, they should respond with a SetInputFocus request with its window field set to the window of theirs that last had the input focus or to their default input window, and the time field set to the timestamp in the message. For further information, see section 4.2.7. and indeed (elt data 1) in the above trace seems to be a valid timestamp. Am I on the right track, do people think? Cheers, Christophe

1 2

[mcclim-devel] selections
by Christophe Rhodes 09 Feb '05

09 Feb '05

Hi, Am I right in thinking that there are at least some problems still outstanding with X select-and-paste? If so, people affected may be interested to try changing the implementation of BIND-SELECTION in Backends/CLX/port.lisp to (defmethod bind-selection ((port clx-port) window &optional time) (xlib:set-selection-owner (xlib:window-display (sheet-direct-mirror window)) :primary (sheet-direct-mirror window) time)) where the new bit is passing TIME down to XLIB:SET-SELECTION-OWNER. The CLX manual has this to say about it: NOTE: Standard conventions for inter-client communication require that a non-nil time must be specified. If possible, the time should be the time of a user event which initiated the change of ownership. Alternatively, a timestamp can be obtained by calling change-property to append zero-length data to some property; the timestamp in the resulting :property-notify event can then be used. I have no idea why, nor indeed whether this will fix any open problems. Cheers, Christophe

1 0