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

View File

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