(:file "gdk.objects")
(:file "gdk.functions")
(:file "gdk.general")
+ (:file "gdk.dnd")
(:file "gdk.display")
(:file "gdk.screen")
(:file "gdk.region")
(:file "gdk.drag-and-drop")
(:file "gdk.input-devices")
(:file "gdk.pango"))
- :depends-on (:cl-gtk2-glib :cffi :cl-gtk2-pango))
\ No newline at end of file
+ :depends-on (:cl-gtk2-glib :cffi :cl-gtk2-pango))
--- /dev/null
+(in-package :gdk)
+
+(defcfun gdk-drop-finish :void
+ (context g-object)
+ (success :boolean)
+ (time :uint32))
+
+(defun drop-finish (context success time)
+ (gdk-drop-finish context success time))
+
+(export 'drop-finish)
+
+(defcfun gdk-drag-status :void
+ (context g-object)
+ (action drag-action)
+ (time :uint))
+
+(defun drag-status (context action time)
+ (gdk-drag-status context action time))
+
+(export 'drag-status)
+
(in-package :gtk)
(define-g-flags "GtkTargetFlags" target-flags
- (:export t :type-initializer "gdk_target_flags_get_type")
+ (:export t :type-initializer "gtk_target_flags_get_type")
(:same-app 1)
(:same-widget 2)
(:other-app 4)
(:other-widget 8))
+(defcfun gtk-drag-finish :void
+ (context g-object)
+ (success :boolean)
+ (del :boolean)
+ (time :uint32))
+
+(defun drag-finish (context success del time)
+ (gtk-drag-finish context success del time))
+
+(export 'drag-finish)
+