Squashed andy128k patch
[cl-gtk2.git] / 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