added get-clipboard

diff --git a/gtk/gtk.misc.lisp b/gtk/gtk.misc.lisp
index f20f586..0c8cff1 100644 (file)
--- 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