clipboard functions

diff --git a/gtk/cl-gtk2-gtk.asd b/gtk/cl-gtk2-gtk.asd
index e548b8c..52871c3 100644 (file)
--- a/gtk/cl-gtk2-gtk.asd
+++ b/gtk/cl-gtk2-gtk.asd
@@ -64,6 +64,7 @@
                (:file "gtk.link-button")
                (:file "gtk.list-store")
                (:file "gtk.tree-store")
+               (:file "gtk.clipboard")
                
                (:file "gtk.main-loop-events")
                

diff --git a/gtk/gtk.clipboard.lisp b/gtk/gtk.clipboard.lisp
new file mode 100644 (file)
index 0000000..846e107
--- /dev/null
+++ b/gtk/gtk.clipboard.lisp
@@ -0,0 +1,12 @@
+(in-package :gtk)
+
+(defcfun gtk-clipboard-set-text :void
+  (clipboard g-object)
+  (text :string)
+  (len :int))
+
+(defun clipboard-set-text (clipboard text)
+  (gtk-clipboard-set-text clipboard text -1))
+
+(export 'clipboard-set-text)
+