factor/library/ui/x11/clipboard.factor

! Copyright (C) 2006 Slava Pestov
! See http://factorcode.org/license.txt for BSD license.
USING: alien kernel math namespaces ;
IN: x11

! This code was inspired by McCLIM's Backends/CLX/port.lisp.

: selection-property ( -- n )
    dpy get "org.factorcode.Factor.SELECTION" 0 XInternAtom ;

: convert-selection ( win -- n )
    >r dpy get XA_PRIMARY XA_STRING selection-property r>
    CurrentTime XConvertSelection ;

: snarf-property ( length-return prop-return -- string )
    swap *ulong zero? [ drop f ] [ *char* ] if ;

: window-property ( win prop delete? -- string )
    >r dpy get -rot 0 -1 r> AnyProperty
    0 <Atom> 0 <int> 0 <ulong> 0 <ulong> f <void*>
    [ XGetWindowProperty ] 2keep snarf-property ;

: selection-from-event ( event -- string )
    dup XSelectionEvent-property zero?
    [ drop f ] [ selection-property 1 window-property ] if ;