gtk/gtk.dnd.lisp

   1 (in-package :gtk)
   2
   3 (define-g-flags "GtkTargetFlags" target-flags
   4     (:export t :type-initializer "gtk_target_flags_get_type")
   5   (:same-app 1)
   6   (:same-widget 2)
   7   (:other-app 4)
   8   (:other-widget 8))
   9
  10 (defcfun gtk-drag-finish :void
  11   (context g-object)
  12   (success :boolean)
  13   (del :boolean)
  14   (time :uint32))
  15
  16 (defun drag-finish (context success del time)
  17   (gtk-drag-finish context success del time))
  18
  19 (export 'drag-finish)
  20