From 9c9533da2304de4c58f3e917be9ec6cb9f9154bc Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Thu, 19 Mar 2009 02:18:19 +0300 Subject: [PATCH] added get-clipboard --- gtk/gtk.misc.lisp | 5 +++++ 1 file changed, 5 insertions(+) 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 -- 1.7.10.4