X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.dnd.lisp;fp=gtk%2Fgtk.dnd.lisp;h=c52cb3ec55aa2c548c92b9d3ccbd0bb530ec52f5;hb=a96dde2b8a0d1c9fed57faf6a828eeef4d2b8218;hp=04703218f0029bf37c415f3b80c1c07a62eb99af;hpb=3aac876ec530d646852acfd28ed60de0b50a3371;p=cl-gtk2.git

diff --git a/gtk/gtk.dnd.lisp b/gtk/gtk.dnd.lisp
index 0470321..c52cb3e 100644
--- a/gtk/gtk.dnd.lisp
+++ b/gtk/gtk.dnd.lisp
@@ -1,5 +1,73 @@
 (in-package :gtk)
 
+;;
+(define-g-boxed-opaque target-list "GtkTargetList"
+  :alloc (error "Use make-target-list to allocate GtkTargetList"))
+
+(defcfun (gtk-target-list-new "gtk_target_list_new")
+    (g-boxed-foreign target-list :free-from-foreign nil)
+  (targets :pointer)
+  (n-targets :int))
+
+(defun make-target-list (targets)
+  (with-foreign-boxed-array (n-targets targets-ptr target-entry targets)
+    (gtk-target-list-new targets-ptr n-targets)))
+
+(defcfun (gtk-target-list-ref "gtk_target_list_ref")
+    (g-boxed-foreign target-list :free-from-foreign nil)
+  (target-list (g-boxed-foreign target-list)))
+
+(defcfun (gtk-target-list-unref "gtk_target_list_unref") :void
+  (target-list (g-boxed-foreign target-list)))
+
+(export (boxed-related-symbols 'target-list))
+
+;;
+
+(defcfun (gtk-drag-dest-set "gtk_drag_dest_set") :void
+  (widget (g-object widget))
+  (flags dest-defaults)
+  (targets :pointer)
+  (n-targets :int)
+  (actions gdk-drag-action))
+
+(defun drag-dest-set (widget flags targets actions)
+  (with-foreign-boxed-array (n-targets targets-ptr target-entry targets)
+    (gtk-drag-dest-set widget flags targets-ptr n-targets actions)))
+
+(export 'drag-dest-set)
+
+(defcfun (drag-dest-unset "gtk_drag_dest_unset") :void
+  (widget (g-object widget)))
+
+(export 'drag-dest-unset)
+
+(defcfun (drag-dest-add-text-targets "gtk_drag_dest_add_text_targets") :void
+  (widget (g-object widget)))
+
+(export 'drag-dest-add-text-targets)
+
+(defcfun (drag-dest-add-image-targets "gtk_drag_dest_add_image_targets") :void
+  (widget (g-object widget)))
+
+(export 'drag-dest-add-image-targets)
+
+(defcfun (drag-dest-add-uri-targets "gtk_drag_dest_add_uri_targets") :void
+  (widget (g-object widget)))
+
+(export 'drag-dest-add-uri-targets)
+
+(defcfun (drag-dest-set-track-motion "gtk_drag_dest_set_track_motion") :void
+  (widget (g-object widget))
+  (track-motion :boolean))
+
+(export 'drag-dest-set-track-motion)
+
+(defcfun (drag-dest-get-track-motion "gtk_drag_dest_get_track_motion") :boolean
+  (widget (g-object widget)))
+
+(export 'drag-dest-get-track-motion)
+
 (defcfun (drag-finish "gtk_drag_finish") :void
   (context (g-object drag-context))
   (success :boolean)
@@ -8,3 +76,145 @@
 
 (export 'drag-finish)
 
+(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)