From d2cd68a20b154b079d6c5fdb4ce34b7dfa79ec12 Mon Sep 17 00:00:00 2001 From: Andrey Kutejko Date: Wed, 11 Nov 2009 23:46:49 +0200 Subject: [PATCH] new files --- gtk/gtk.dnd.lisp | 9 +++++++++ gtk/gtk.selections.lisp | 9 +++++++++ 2 files changed, 18 insertions(+) create mode 100644 gtk/gtk.dnd.lisp create mode 100644 gtk/gtk.selections.lisp 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)) + -- 1.7.10.4