Handbook
Glossary
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
;