From a289b2035ed1526cbf5ec8b18cb0bf7f1b3c5a2f Mon Sep 17 00:00:00 2001 From: Andrey Kutejko Date: Mon, 4 Jan 2010 21:11:33 +0200 Subject: [PATCH] clipboard functions --- gtk/cl-gtk2-gtk.asd | 1 + gtk/gtk.clipboard.lisp | 12 ++++++++++++ 2 files changed, 13 insertions(+) create mode 100644 gtk/gtk.clipboard.lisp 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) + -- 1.7.10.4