ui.clipboards: add some helper words

diff --git a/basis/ui/clipboards/clipboards.factor b/basis/ui/clipboards/clipboards.factor
index 34df97a29c5fe1e2d9ce86d2f6a5ec7e13cd3061..87f3fd9b5232f48668dd86564898202d24b1a26a 100644 (file)
--- a/basis/ui/clipboards/clipboards.factor
+++ b/basis/ui/clipboards/clipboards.factor
@@ -40,3 +40,9 @@ SYMBOL: selection
 : com-copy ( gadget -- ) clipboard get gadget-copy ;
 
 : com-copy-selection ( gadget -- ) selection get gadget-copy ;
+
+: >clipboard ( string -- )
+    clipboard get set-clipboard-contents ;
+
+: clipboard> ( -- string )
+    clipboard get clipboard-contents ;