gtk/gtk.clipboard.lisp

   1 (in-package :gtk)
   2
   3 (defcfun gtk-clipboard-set-text :void
   4   (clipboard (g-object clipboard))
   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 (clipboard-clear "gtk_clipboard_clear") :void
  14   (clipboard (g-object clipboard)))
  15
  16 (export 'clipboard-clear)
  17