projects
/
cl-gtk2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Improved gtk-demo: ensure that leave-gtk-main is called; use show-message instead...
[cl-gtk2.git]
/
gtk
/
gtk.dnd.lisp
diff --git
a/gtk/gtk.dnd.lisp
b/gtk/gtk.dnd.lisp
index
8a2b409
..
0470321
100644
(file)
--- a/
gtk/gtk.dnd.lisp
+++ b/
gtk/gtk.dnd.lisp
@@
-1,9
+1,10
@@
(in-package :gtk)
(in-package :gtk)
-(define-g-flags "GtkTargetFlags" target-flags
- (:export t :type-initializer "gdk_target_flags_get_type")
- (:same-app 1)
- (:same-widget 2)
- (:other-app 4)
- (:other-widget 8))
+(defcfun (drag-finish "gtk_drag_finish") :void
+ (context (g-object drag-context))
+ (success :boolean)
+ (del :boolean)
+ (time :uint32))
+
+(export 'drag-finish)