+(defcfun (drag-get-data "gtk_drag_get_data") :void
+ (widget (g-object widget))
+ (context (g-object drag-context))
+ (target gdk-atom-as-string)
+ (time :uint32))
+
+(export 'drag-get-data)
+
+(defcfun (drag-get-source-widget "gtk_drag_get_source_widget")
+ (g-object widget)
+ (context (g-object drag-context)))
+
+(export 'drag-get-source-widget)
+
+(defcfun (drag-highlight "gtk_drag_highlight") :void
+ (widget (g-object widget)))
+
+(export 'drag-highlight)
+
+(defcfun (drag-unhighlight "gtk_drag_unhighlight") :void
+ (widget (g-object widget)))
+
+(export 'drag-unhighlight)
+
+(defcfun (gtk-drag-begin "gtk_drag_begin") (g-object drag-context :free-from-foreign nil)
+ (widget (g-object widget))
+ (targets (g-boxed-foreign target-list))
+ (actions gdk-drag-action)
+ (button :int)
+ (event (g-object gdk:event)))
+
+(defun drag-begin (widget targets actions button event)
+ (let* ((target-list (make-target-list targets))
+ (context (gtk-drag-begin widget target-list actions button event)))
+ (gtk-target-list-unref target-list)
+ context))
+
+(export 'drag-begin)
+
+(defcfun (drag-set-icon-widget "gtk_drag_set_icon_widget") :void
+ (context (g-object drag-context))
+ (widget (g-object widget))
+ (hot-x :int)
+ (hot-y :int))
+
+(export 'drag-set-icon-widget)
+
+(defcfun (drag-set-icon-pixbuf "gtk_drag_set_icon_pixbuf") :void
+ (context (g-object drag-context))
+ (pixbuf (g-object pixbuf))
+ (hot-x :int)
+ (hot-y :int))
+
+(export 'drag-set-icon-pixbuf)
+
+(defcfun (drag-set-icon-stock "gtk_drag_set_icon_stock") :void
+ (context (g-object drag-context))
+ (stock-id :string)
+ (hot-x :int)
+ (hot-y :int))
+
+(export 'drag-set-icon-stock)
+
+(defcfun (drag-set-icon-name "gtk_drag_set_icon_name") :void
+ (context (g-object drag-context))
+ (icon-name :string)
+ (hot-x :int)
+ (hot-y :int))
+
+(export 'drag-set-icon-name)
+
+(defcfun (drag-set-icon-default "gtk_drag_set_icon_default") :void
+ (context (g-object drag-context)))
+
+(export 'drag-set-icon-default)
+
+(defcfun (drag-check-threshold "gtk_drag_check_threshold") :boolean
+ (widget (g-object widget))
+ (start-x :int)
+ (start-y :int)
+ (current-x :int)
+ (current-y :int))
+
+(export 'drag-check-threshold)
+
+(defcfun (gtk-drag-source-set "gtk_drag_source_set") :void
+ (widget (g-object widget))
+ (start-button-mask modifier-type)
+ (targets :pointer)
+ (n-targets :int)
+ (actions gdk-drag-action))
+
+(defun drag-source-set (widget button-mask targets actions)
+ (with-foreign-boxed-array (n-targets targets-ptr target-entry targets)
+ (gtk-drag-source-set widget button-mask targets-ptr n-targets actions)))
+
+(export 'drag-source-set)
+
+(defcfun (drag-source-set-icon-pixbuf "gtk_drag_source_set_icon_pixbuf") :void
+ (widget (g-object widget))
+ (pixbuf (g-object pixbuf)))
+
+(export 'drag-source-set-icon-pixbuf)
+
+(defcfun (drag-source-set-icon-stock "gtk_drag_source_set_icon_stock") :void
+ (widget (g-object widget))
+ (stock-id :string))
+
+(export 'drag-source-set-icon-stock)
+
+(defcfun (drag-source-set-icon-name "gtk_drag_source_set_icon_name") :void
+ (widget (g-object widget))
+ (icon-name :string))
+
+(export 'drag-source-set-icon-name)
+
+(defcfun (gtk-drag-source-unset "gtk_drag_source_unset") :void
+ (widget (g-object widget))
+ (target-list :pointer))
+
+(defun drag-source-unset (widget targets)
+ (let ((target-list (make-target-list targets)))
+ (gtk-drag-source-unset widget target-list)
+ (gtk-target-list-unref target-list)
+ nil))
+
+(export 'drag-source-unset)
+
+(defcfun (drag-source-add-text-targets "gtk_drag_source_add_text_targets") :void
+ (widget (g-object widget)))
+
+(export 'drag-source-add-text-targets)
+
+(defcfun (drag-source-add-image-targets "gtk_drag_source_add_image_targets") :void
+ (widget (g-object widget)))
+
+(export 'drag-source-add-image-targets)
+
+(defcfun (drag-source-add-uri-targets "gtk_drag_source_add_uri_targets") :void
+ (widget (g-object widget)))
+
+(export 'drag-source-add-uri-targets)