X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.dnd.lisp;h=04703218f0029bf37c415f3b80c1c07a62eb99af;hb=1f9c939a43d645eaf55e4d375f6b1b609dd1c5bd;hp=cfb504b49b1f29505702289221febecb90ee55db;hpb=63f391cab3c8ff44f201e9170c2270c6ed0f5820;p=cl-gtk2.git

diff --git a/gtk/gtk.dnd.lisp b/gtk/gtk.dnd.lisp
index cfb504b..0470321 100644
--- 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)