Changed patch to conform

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

diff --git a/gtk/gtk.dnd.lisp b/gtk/gtk.dnd.lisp
index cfb504b..0470321 100644 (file)
--- a/gtk/gtk.dnd.lisp
+++ b/gtk/gtk.dnd.lisp
@@ -1,20 +1,10 @@
 (in-package :gtk)
 
-(define-g-flags "GtkTargetFlags" target-flags
-    (: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)
+(defcfun (drag-finish "gtk_drag_finish") :void
+  (context (g-object drag-context))
   (success :boolean)
   (del :boolean)
   (time :uint32))
 
-(defun drag-finish (context success del time)
-  (gtk-drag-finish context success del time))
-
 (export 'drag-finish)