steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix load order issues

release
slava 2006-07-24 01:45:35 +00:00
parent 1d8e9ccafa
commit 242f6c7010
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
library/ui/x11/clipboard.factor
View File

@ -3,7 +3,14 @@
USING: alien arrays gadgets kernel math namespaces sequences ; USING: alien arrays gadgets kernel math namespaces sequences ;
IN: x11 IN: x11
! This code was inspired by McCLIM's Backends/CLX/port.lisp. ! This code was based on by McCLIM's Backends/CLX/port.lisp
! and http://common-lisp.net/~crhodes/clx/demo/clipboard.lisp.
TUPLE: x-clipboard atom contents ;
C: x-clipboard ( atom -- clipboard )
[ set-x-clipboard-atom ] keep
"" over set-x-clipboard-contents ;
: selection-property ( -- n ) : selection-property ( -- n )
"org.factorcode.Factor.SELECTION" x-atom ; "org.factorcode.Factor.SELECTION" x-atom ;
@ -79,12 +86,6 @@ IN: x11
: send-notify-failure ( evt -- ) : send-notify-failure ( evt -- )
0 send-notify ; 0 send-notify ;
TUPLE: x-clipboard atom contents ;
C: x-clipboard ( atom -- clipboard )
[ set-x-clipboard-atom ] keep
"" over set-x-clipboard-contents ;
: x-clipboard@ ( gadget clipboard -- prop win ) : x-clipboard@ ( gadget clipboard -- prop win )
x-clipboard-atom swap find-world world-handle first ; x-clipboard-atom swap find-world world-handle first ;