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

fix accessors

db4
Doug Coleman 2008-09-02 03:00:25 -05:00
parent 04fde42125
commit c2c23fd6ea
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/ui/x11/x11.factor
View File

@ -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