added clipboard-clear

[cl-gtk2.git] / gtk / gtk.clipboard.lisp

diff --git a/gtk/gtk.clipboard.lisp b/gtk/gtk.clipboard.lisp
index 846e107..269d1db 100644 (file)
--- a/gtk/gtk.clipboard.lisp
+++ b/gtk/gtk.clipboard.lisp
@@ -10,3 +10,11 @@
 
 (export 'clipboard-set-text)
 
+(defcfun gtk-clipboard-clear :void
+  (clipboard g-object))
+
+(defun clipboard-clear (clipboard)
+  (gtk-clipboard-clear clipboard))
+
+(export 'clipboard-clear)
+