added GtkTreeDragSource, GtkTreeDragDest vtables

diff --git a/gtk/cl-gtk2-gtk.asd b/gtk/cl-gtk2-gtk.asd
index c6c6d32..1bccf83 100644 (file)
--- a/gtk/cl-gtk2-gtk.asd
+++ b/gtk/cl-gtk2-gtk.asd
@@ -60,6 +60,7 @@
                (:file "gtk.paned")
                (:file "gtk.child-properties")
                (:file "gtk.widget")
+               (:file "gtk.tree-view-dnd")
                (:file "gtk.builder")
                (:file "gtk.assistant")
                (:file "gtk.link-button")

diff --git a/gtk/gtk.tree-view-dnd.lisp b/gtk/gtk.tree-view-dnd.lisp
new file mode 100644 (file)
index 0000000..224ace6
--- /dev/null
+++ b/gtk/gtk.tree-view-dnd.lisp
@@ -0,0 +1,28 @@
+(in-package :gtk)
+
+(define-vtable ("GtkTreeDragSource" tree-drag-source)
+  (:skip parent-instance g-type-interface)
+  ;;methods
+  (row-draggable (:boolean
+                 (tree-drag-source g-object)
+                 (path (g-boxed-foreign tree-path))))
+  (drag-data-get (:boolean
+                 (tree-drag-source g-object)
+                 (path (g-boxed-foreign tree-path))
+                 (selection-data (g-boxed-foreign selection-data))))
+  (drag-data-delete (:boolean
+                    (tree-drag-source g-object)
+                    (path (g-boxed-foreign tree-path)))))
+
+(define-vtable ("GtkTreeDragDest" tree-drag-dest)
+  (:skip parent-instance g-type-interface)
+  ;;methods
+  (drag-data-received (:boolean
+                      (tree-drag-dest g-object)
+                      (path (g-boxed-foreign tree-path))
+                      (selection-data (g-boxed-foreign selection-data))))
+  (row-drop-possible (:boolean
+                     (tree-drag-dest g-object)
+                     (path (g-boxed-foreign tree-path))
+                     (selection-data (g-boxed-foreign selection-data)))))
+