parent
73bc2bbbd1
commit
002972c3b4
|
@ -37,9 +37,6 @@ 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 ;
|
||||||
|
|
Loading…
Reference in New Issue