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

2011-09-29 13:02:23 -07:00 · 2011-09-29 13:02:23 -07:00 · bee1c0c61e
parent 1934cac946
commit bee1c0c61e
1 changed files with 3 additions and 0 deletions
--- a/basis/ui/clipboards/clipboards.factor
+++ b/basis/ui/clipboards/clipboards.factor
@ -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 ;