added clipboard-clear
[cl-gtk2.git] / gtk / gtk.clipboard.lisp
1 (in-package :gtk)
2
3 (defcfun gtk-clipboard-set-text :void
4   (clipboard g-object)
5   (text :string)
6   (len :int))
7
8 (defun clipboard-set-text (clipboard text)
9   (gtk-clipboard-set-text clipboard text -1))
10
11 (export 'clipboard-set-text)
12
13 (defcfun gtk-clipboard-clear :void
14   (clipboard g-object))
15
16 (defun clipboard-clear (clipboard)
17   (gtk-clipboard-clear clipboard))
18
19 (export 'clipboard-clear)
20