Clean up after merge

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

diff --git a/gtk/gtk.clipboard.lisp b/gtk/gtk.clipboard.lisp
index 846e107..9dc244f 100644 (file)
--- a/gtk/gtk.clipboard.lisp
+++ b/gtk/gtk.clipboard.lisp
@@ -1,7 +1,7 @@
 (in-package :gtk)
 
 (defcfun gtk-clipboard-set-text :void
-  (clipboard g-object)
+  (clipboard (g-object clipboard))
   (text :string)
   (len :int))
 
@@ -10,3 +10,8 @@
 
 (export 'clipboard-set-text)
 
+(defcfun (clipboard-clear "gtk_clipboard_clear") :void
+  (clipboard (g-object clipboard)))
+
+(export 'clipboard-clear)
+