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

ui.clipboards: adding a gadget-copy-all.

db4
John Benediktsson 2011-09-29 13:02:23 -07:00
parent aa0f7d0f72
commit 73bc2bbbd1
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -37,6 +37,9 @@ SYMBOL: selection
[ 2drop ] [ 2drop ]
if ; if ;
: gadget-copy-all ( gadget clipboard -- )
[ [ gadget-text ] keep ] dip copy-clipboard ;
: com-copy ( gadget -- ) clipboard get gadget-copy ; : com-copy ( gadget -- ) clipboard get gadget-copy ;
: com-copy-selection ( gadget -- ) selection get gadget-copy ; : com-copy-selection ( gadget -- ) selection get gadget-copy ;