gadget-copy ( gadget clipboard -- )

Vocabulary

ui.clipboards

Inputs

gadget	an object
clipboard	an object

Outputs

None

Definition

USING: kernel ui.gadgets ;

IN: ui.clipboards

: gadget-copy ( gadget clipboard -- )
    over gadget-selection?
    [ [ [ gadget-selection ] keep ] dip copy-clipboard ]
    [ 2drop ] if ;