From 63f391cab3c8ff44f201e9170c2270c6ed0f5820 Mon Sep 17 00:00:00 2001
From: Andrey Kutejko <andy128k@gmail.com>
Date: Thu, 12 Nov 2009 01:41:08 +0200
Subject: [PATCH] more d'n'd functions

---
 gdk/cl-gtk2-gdk.asd |    3 ++-
 gdk/gdk.dnd.lisp    |   22 ++++++++++++++++++++++
 gtk/gtk.dnd.lisp    |   13 ++++++++++++-
 3 files changed, 36 insertions(+), 2 deletions(-)
 create mode 100644 gdk/gdk.dnd.lisp

diff --git a/gdk/cl-gtk2-gdk.asd b/gdk/cl-gtk2-gdk.asd
index 204344b..aa6cdfc 100644
--- a/gdk/cl-gtk2-gdk.asd
+++ b/gdk/cl-gtk2-gdk.asd
@@ -9,6 +9,7 @@
                (:file "gdk.objects")
                (:file "gdk.functions")
                (:file "gdk.general")
+               (:file "gdk.dnd")
                (:file "gdk.display")
                (:file "gdk.screen")
                (:file "gdk.region")
@@ -28,4 +29,4 @@
                (:file "gdk.drag-and-drop")
                (:file "gdk.input-devices")
                (:file "gdk.pango"))
-  :depends-on (:cl-gtk2-glib :cffi :cl-gtk2-pango))
\ No newline at end of file
+  :depends-on (:cl-gtk2-glib :cffi :cl-gtk2-pango))
diff --git a/gdk/gdk.dnd.lisp b/gdk/gdk.dnd.lisp
new file mode 100644
index 0000000..20d5344
--- /dev/null
+++ b/gdk/gdk.dnd.lisp
@@ -0,0 +1,22 @@
+(in-package :gdk)
+
+(defcfun gdk-drop-finish :void
+  (context g-object)
+  (success :boolean)
+  (time :uint32))
+
+(defun drop-finish (context success time)
+  (gdk-drop-finish context success time))
+
+(export 'drop-finish)
+
+(defcfun gdk-drag-status :void
+  (context g-object)
+  (action drag-action)
+  (time :uint))
+
+(defun drag-status (context action time)
+  (gdk-drag-status context action time))
+
+(export 'drag-status)
+
diff --git a/gtk/gtk.dnd.lisp b/gtk/gtk.dnd.lisp
index 8a2b409..cfb504b 100644
--- 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)
+
-- 
1.7.10.4