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

ui.clipboards: Stick with names based on old accessors

db4
Eduardo Cavazos 2008-08-29 19:10:18 -05:00
parent 04f8eaf220
commit 2d7bbbd95d
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
basis/ui/clipboards/clipboards.factor
View File

@ -6,7 +6,17 @@ USING: kernel accessors ui.gadgets ui.gestures namespaces ;
IN: ui.clipboards IN: ui.clipboards
! Two text transfer buffers ! Two text transfer buffers
TUPLE: clipboard contents ; TUPLE: clipboard contents ;
GENERIC: clipboard-contents ( clipboard -- string )
GENERIC: set-clipboard-contents ( string clipboard -- )
M: clipboard clipboard-contents contents>> ;
M: clipboard set-clipboard-contents (>>contents) ;
: <clipboard> ( -- clipboard ) "" clipboard boa ; : <clipboard> ( -- clipboard ) "" clipboard boa ;
GENERIC: paste-clipboard ( gadget clipboard -- ) GENERIC: paste-clipboard ( gadget clipboard -- )
@ -22,11 +32,10 @@ SYMBOL: clipboard
SYMBOL: selection SYMBOL: selection
: gadget-copy ( gadget clipboard -- ) : gadget-copy ( gadget clipboard -- )
over gadget-selection? [ over gadget-selection?
>r [ gadget-selection ] keep r> copy-clipboard [ >r [ gadget-selection ] keep r> copy-clipboard ]
] [ [ 2drop ]
2drop if ;
] if ;
: com-copy ( gadget -- ) clipboard get gadget-copy ; : com-copy ( gadget -- ) clipboard get gadget-copy ;