From: Andrey Kutejko <andy128k@gmail.com>
Date: Mon, 22 Feb 2010 14:58:38 +0000 (+0200)
Subject: added clipboard-clear
X-Git-Url: http://repo.macrolet.net/gitweb/?p=cl-gtk2.git;a=commitdiff_plain;h=b6c62d5549aafd422300412c2a3f53a6f9a415b9

added clipboard-clear
---

diff --git a/gtk/gtk.clipboard.lisp b/gtk/gtk.clipboard.lisp
index 846e107..269d1db 100644
--- 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)
+