From: Andrey Kutejko <andy128k@gmail.com>
Date: Wed, 11 Nov 2009 21:46:49 +0000 (+0200)
Subject: new files
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=d2cd68a20b154b079d6c5fdb4ce34b7dfa79ec12;p=cl-gtk2.git

new files
---

diff --git a/gtk/gtk.dnd.lisp b/gtk/gtk.dnd.lisp
new file mode 100644
index 0000000..8a2b409
--- /dev/null
+++ b/gtk/gtk.dnd.lisp
@@ -0,0 +1,9 @@
+(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))
+
diff --git a/gtk/gtk.selections.lisp b/gtk/gtk.selections.lisp
new file mode 100644
index 0000000..d97d014
--- /dev/null
+++ b/gtk/gtk.selections.lisp
@@ -0,0 +1,9 @@
+(in-package :gtk)
+
+(define-g-boxed-cstruct target-entry "GtkTargetEntry"
+  (target :string :initform 0)
+  (flags target-flags :initform 0)
+  (info :uint :initform 0))
+
+(export (boxed-related-symbols 'target-entry))
+