fix accessors
parent
04fde42125
commit
c2c23fd6ea
|
@ -149,7 +149,7 @@ M: world selection-notify-event
|
||||||
>r 8 PropModeReplace r>
|
>r 8 PropModeReplace r>
|
||||||
[
|
[
|
||||||
XSelectionRequestEvent-selection
|
XSelectionRequestEvent-selection
|
||||||
clipboard-for-atom x-clipboard-contents
|
clipboard-for-atom contents>>
|
||||||
] keep encode-clipboard dup length XChangeProperty drop ;
|
] keep encode-clipboard dup length XChangeProperty drop ;
|
||||||
|
|
||||||
M: world selection-request-event
|
M: world selection-request-event
|
||||||
|
@ -188,16 +188,16 @@ M: x11-ui-backend do-events
|
||||||
[ [ 2dup handle-event ] assert-depth ] when 2drop ;
|
[ [ 2dup handle-event ] assert-depth ] when 2drop ;
|
||||||
|
|
||||||
: x-clipboard@ ( gadget clipboard -- prop win )
|
: x-clipboard@ ( gadget clipboard -- prop win )
|
||||||
x-clipboard-atom swap
|
atom>> swap
|
||||||
find-world handle>> window>> ;
|
find-world handle>> window>> ;
|
||||||
|
|
||||||
M: x-clipboard copy-clipboard
|
M: x-clipboard copy-clipboard
|
||||||
[ x-clipboard@ own-selection ] keep
|
[ x-clipboard@ own-selection ] keep
|
||||||
set-x-clipboard-contents ;
|
(>>clipboard-contents) ;
|
||||||
|
|
||||||
M: x-clipboard paste-clipboard
|
M: x-clipboard paste-clipboard
|
||||||
>r find-world handle>> window>>
|
>r find-world handle>> window>>
|
||||||
r> x-clipboard-atom convert-selection ;
|
r> atom>> convert-selection ;
|
||||||
|
|
||||||
: init-clipboard ( -- )
|
: init-clipboard ( -- )
|
||||||
XA_PRIMARY <x-clipboard> selection set-global
|
XA_PRIMARY <x-clipboard> selection set-global
|
||||||
|
|
Loading…
Reference in New Issue