X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.tree-view.lisp;h=6c475678b78c170f8b52aebe08da59a13e6f3e4c;hb=c36dad68c5724171792b032fe56d6d531fc2571a;hp=50efebc38834faf0cf9957e52b85af9d9881ce0e;hpb=b2130e9cb154952b30935ed7a38872c8d127f396;p=cl-gtk2.git

diff --git a/gtk/gtk.tree-view.lisp b/gtk/gtk.tree-view.lisp
index 50efebc..6c47567 100644
--- a/gtk/gtk.tree-view.lisp
+++ b/gtk/gtk.tree-view.lisp
@@ -325,10 +325,10 @@
 (export 'tree-view-convert-widget-to-tree-coords)
 
 (defcfun gtk-tree-view-enable-model-drag-dest :void
-  (tree-view g-object)
+  (tree-view (g-object tree-view))
   (targets :pointer)
   (n-targets :int)
-  (actions gdk:drag-action))
+  (actions gdk-drag-action))
 
 (defun tree-view-enable-model-drag-dest (tree-view targets actions)
   (with-foreign-boxed-array (n-targets targets-ptr target-entry targets)
@@ -337,11 +337,11 @@
 (export 'tree-view-enable-model-drag-dest)
 
 (defcfun gtk-tree-view-enable-model-drag-source :void
-  (tree-view g-object)
-  (start-button-mask gdk:modifier-type)
+  (tree-view (g-object tree-view))
+  (start-button-mask modifier-type)
   (targets :pointer)
   (n-targets :int)
-  (actions gdk:drag-action))
+  (actions gdk-drag-action))
 
 (defun tree-view-enable-model-drag-source (tree-view start-button-mask targets actions)
   (with-foreign-boxed-array (n-targets targets-ptr target-entry targets)
@@ -358,7 +358,7 @@
 ; TOOD: gtk_tree_view_get_drag_dest_row
 
 (defcfun gtk-tree-view-get-dest-row-at-pos :boolean
-  (tree_view g-object)
+  (tree_view (g-object tree-view))
   (drag-x :int)
   (drag-y :int)
   (path :pointer)