From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Wed, 18 Mar 2009 23:18:19 +0000 (+0300)
Subject: added get-clipboard
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=9c9533da2304de4c58f3e917be9ec6cb9f9154bc;p=cl-gtk2.git

added get-clipboard
---

diff --git a/gtk/gtk.misc.lisp b/gtk/gtk.misc.lisp
index f20f586..0c8cff1 100644
--- a/gtk/gtk.misc.lisp
+++ b/gtk/gtk.misc.lisp
@@ -2,3 +2,8 @@
 
 (defcallback stable-pointer-free-destroy-notify-callback :void ((data :pointer))
   (free-stable-pointer data))
+
+(defcfun (get-clipboard "gtk_clipboard_get") g-object
+  (selection gdk-atom-as-string))
+
+(export 'get-clipboard)
\ No newline at end of file