more d'n'd functions

[cl-gtk2.git] / gtk / gtk.dnd.lisp

diff --git a/gtk/gtk.dnd.lisp b/gtk/gtk.dnd.lisp
index 8a2b409..cfb504b 100644 (file)
--- a/gtk/gtk.dnd.lisp
+++ b/gtk/gtk.dnd.lisp
@@ -1,9 +1,20 @@
 (in-package :gtk)
 
 (define-g-flags "GtkTargetFlags" target-flags
-    (:export t :type-initializer "gdk_target_flags_get_type")
+    (:export t :type-initializer "gtk_target_flags_get_type")
   (:same-app 1)
   (:same-widget 2)
   (:other-app 4)
   (:other-widget 8))
 
+(defcfun gtk-drag-finish :void
+  (context g-object)
+  (success :boolean)
+  (del :boolean)
+  (time :uint32))
+
+(defun drag-finish (context success del time)
+  (gtk-drag-finish context success del time))
+
+(export 'drag-finish)
+