3 (defcfun gtk-clipboard-set-text :void
4 (clipboard (g-object clipboard))
8 (defun clipboard-set-text (clipboard text)
9 (gtk-clipboard-set-text clipboard text -1))
11 (export 'clipboard-set-text)
13 (defcfun (clipboard-clear "gtk_clipboard_clear") :void
14 (clipboard (g-object clipboard)))
16 (export 'clipboard-clear)