From: Andrey Kutejko <andy128k@gmail.com>
Date: Mon, 4 Jan 2010 19:11:33 +0000 (+0200)
Subject: clipboard functions
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=a289b2035ed1526cbf5ec8b18cb0bf7f1b3c5a2f;p=cl-gtk2.git

clipboard functions
---

diff --git a/gtk/cl-gtk2-gtk.asd b/gtk/cl-gtk2-gtk.asd
index e548b8c..52871c3 100644
--- 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
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)
+