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