From 3c32d09dada39cad6340a7ad6ed6caa38f38f832 Mon Sep 17 00:00:00 2001 From: Andrey Kutejko Date: Wed, 22 Dec 2010 11:34:04 +0200 Subject: [PATCH] added GtkTreeDragSource, GtkTreeDragDest vtables --- gtk/cl-gtk2-gtk.asd | 1 + gtk/gtk.tree-view-dnd.lisp | 28 ++++++++++++++++++++++++++++ 2 files changed, 29 insertions(+) create mode 100644 gtk/gtk.tree-view-dnd.lisp diff --git a/gtk/cl-gtk2-gtk.asd b/gtk/cl-gtk2-gtk.asd index c6c6d32..1bccf83 100644 --- 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 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))))) + -- 1.7.10.4