gdk/gdk.dnd.lisp

   1 (in-package :gdk)
   2
   3 (defcfun gdk-drop-finish :void
   4   (context g-object)
   5   (success :boolean)
   6   (time :uint32))
   7
   8 (defun drop-finish (context success time)
   9   (gdk-drop-finish context success time))
  10
  11 (export 'drop-finish)
  12
  13 (defcfun gdk-drag-status :void
  14   (context g-object)
  15   (action drag-action)
  16   (time :uint))
  17
  18 (defun drag-status (context action time)
  19   (gdk-drag-status context action time))
  20
  21 (export 'drag-status)
  22