gtk/gtk.tree-view-dnd.lisp

   1 (in-package :gtk)
   2
   3 (define-vtable ("GtkTreeDragSource" tree-drag-source)
   4   (:skip parent-instance g-type-interface)
   5   ;;methods
   6   (row-draggable (:boolean
   7                   (tree-drag-source g-object)
   8                   (path (g-boxed-foreign tree-path))))
   9   (drag-data-get (:boolean
  10                   (tree-drag-source g-object)
  11                   (path (g-boxed-foreign tree-path))
  12                   (selection-data (g-boxed-foreign selection-data))))
  13   (drag-data-delete (:boolean
  14                      (tree-drag-source g-object)
  15                      (path (g-boxed-foreign tree-path)))))
  16
  17 (define-vtable ("GtkTreeDragDest" tree-drag-dest)
  18   (:skip parent-instance g-type-interface)
  19   ;;methods
  20   (drag-data-received (:boolean
  21                        (tree-drag-dest g-object)
  22                        (path (g-boxed-foreign tree-path))
  23                        (selection-data (g-boxed-foreign selection-data))))
  24   (row-drop-possible (:boolean
  25                       (tree-drag-dest g-object)
  26                       (path (g-boxed-foreign tree-path))
  27                       (selection-data (g-boxed-foreign selection-data)))))
  28